From 92945f9e855284534e103e4f29e069101033a62c Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Wed, 6 Apr 2022 18:05:42 +0200
Subject: linter: collect jitsi rooms of maps

---
 lib/Properties.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'lib/Properties.hs')

diff --git a/lib/Properties.hs b/lib/Properties.hs
index faa6db0..18a0520 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -38,7 +38,7 @@ import           LintConfig          (LintConfig (..))
 import           LintWriter          (LintWriter, adjust, askContext,
                                       askFileDepth, complain, dependsOn, forbid,
                                       lintConfig, offersBadge, offersEntrypoint,
-                                      suggest, warn, zoom, offersCWs)
+                                      suggest, warn, zoom, offersCWs, offersJitsi)
 import           Paths               (PathResult (..), RelPath (..),
                                       getExtension, isOldStyle, parsePath)
 import           Types               (Dep (Link, Local, LocalMap, MapLink))
@@ -363,9 +363,12 @@ checkTileThing removeExits p@(Property name _value) = case name of
         suggestProperty $ Property "jitsiTrigger" "onaction"
 
         -- prevents namespace clashes for jitsi room names
-        unless ("shared" `isPrefixOf` jitsiRoom) $ do
+        if "shared" `isPrefixOf` jitsiRoom then do
           assemblyname <- lintConfig configAssemblyTag
           setProperty "jitsiRoom" (assemblyname <> "-" <> jitsiRoom)
+          offersJitsi (assemblyname <> "-" <> jitsiRoom)
+        else
+          offersJitsi jitsiRoom
     "jitsiTrigger" -> do
       isString p
       unlessHasProperty "jitsiTriggerMessage"
-- 
cgit v1.2.3