diff options
| -rw-r--r-- | lib/Properties.hs | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs index dd680ea..f60758f 100644 --- a/lib/Properties.hs +++ b/lib/Properties.hs @@ -291,13 +291,18 @@ checkTileLayerProperty p@(Property name _value) = case name of removeProperty "bbbRoom" unwrapString p $ \str -> case parseUri str of Just ("bbb",assembly_slug, room_slug) - | "/" `isPrefixOf` room_slug && T.length room_slug >= 2 -> do - let link = "https://rc3.world/assembly/"<>assembly_slug<>"/bbb"<>room_slug - dependsOn (Link link) - setProperty "openWebsite" link - setProperty "silent" (BoolProp True) - setProperty "openWebsitePolicy" - ("fullscreen;camera;microphone;display-capture" :: Text) + | "/" `isPrefixOf` room_slug + && T.length room_slug >= 2 -> do + assemblies <- lintConfig configAssemblies + if assembly_slug `elem` assemblies + then do + let link = "https://rc3.world/assembly/"<>assembly_slug<>"/bbb"<>room_slug + dependsOn (Link link) + setProperty "openWebsite" link + setProperty "silent" (BoolProp True) + setProperty "openWebsitePolicy" + ("fullscreen;camera;microphone;display-capture" :: Text) + else complain $ prettyprint assembly_slug <> " is not a registered assembly and therefore cannot be used in `bbbUrl`." _ -> complain "the \"bbbRoom\" property must take a link of the form bbb://assembly_slug/room_slug." "bbbTrigger" -> do removeProperty "bbbTrigger" |