suggest setting map meta properties if not given

1 files changed, 9 insertions, 0 deletions

diff --git a/lib/Properties.hs b/lib/Properties.hs
index c1ade06..ce79ff8 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -27,6 +27,7 @@ import           Badges        (Badge (Badge),
                                 parseToken)
 import           Data.Data     (Proxy (Proxy))
 import           Data.Functor  ((<&>))
+import           Data.List     ((\\))
 import           Data.Maybe    (fromMaybe, isJust)
 import           Data.Set      (Set)
 import qualified Data.Set      as S
@@ -83,6 +84,14 @@ checkMap = do
   whenLayerCollisions layers (\(Property name _) -> name == "exitUrl" || name == "startLayer")
     $ \cols -> warn $ "collisions between entry and / or exit layers: " <> prettyprint cols
 
+  let missingMetaInfo =
+        ["mapName","mapDescription","mapLink","mapImage"]
+        \\ fmap getName (getProperties tiledmap)
+
+  unless (null missingMetaInfo)
+   $ suggest $ "consider adding meta information to your map using the "
+                <> prettyprint missingMetaInfo <> " properties."
+
   where
     -- recursively find all layers (to deal with nested group layers)
     collectLayers :: Tiledmap -> V.Vector Layer