diff options
| -rw-r--r-- | lib/Properties.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs index 262f427..7772c26 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -154,8 +154,13 @@ checkLayerProperty p@(Property name _value) = case name of >>= setProperty "jitsiRoomAdminTag" . ("assembly-" <>) -- prepend "assembly-" to avoid namespace clashes uselessEmptyLayer - unwrapString' p - $ suggestProperty $ Property "jitsiTrigger" "onaction" + unwrapString p $ \jitsiRoom -> do + suggestProperty $ Property "jitsiTrigger" "onaction" + + -- prepend jitsi room names to avoid name clashes + unless ("shared-" `isPrefixOf` jitsiRoom) $ do + assemblyname <- lintConfig configAssemblyTag + setProperty "jitsiRoom" (assemblyname <> "-" <> jitsiRoom) "jitsiTrigger" -> do isString p unlessHasProperty "jitsiTriggerMessage" |