linter: remove bbb-simulating code

Readme.md

@@ -131,10 +131,8 @@ For now there are three types of such rules:
 In case an URI is encountered and there is no applicable rule, it will be rejected
 (note that this means you'll have to explicitly allow `https://` for links!)
 
-There are currently four possible scopes: `map` applies to tiled map links 
-(i.e. `exitUrl`), `website` to `openWebsite`, `audio` to `playAudio`, and
-`bbb` to Big Blue Button rooms (though that last one may be changed again,
-depending on the bbb deployment in use).
+There are currently three possible scopes: `map` applies to tiled map links 
+(i.e. `exitUrl`), `website` to `openWebsite`, `audio` to `playAudio`.
 
 
 ## Output

lib/Properties.hs

@@ -63,8 +63,8 @@ knownObjectProperties = V.fromList
 
 knownTileLayerProperites :: Vector Text
 knownTileLayerProperites = V.fromList
-  [ "jitsiRoom", "jitsiTrigger", "jitsiTriggerMessage", "jitsiWidth", "bbbRoom"
-  , "bbbTrigger", "bbbTriggerMessage", "playAudio", "audioLoop", "audioVolumne"
+  [ "jitsiRoom", "jitsiTrigger", "jitsiTriggerMessage", "jitsiWidth"
+  , "playAudio", "audioLoop", "audioVolumne"
   , "openWebsite", "openWebsiteTrigger", "openWebsiteTriggerMessage", "openTag"
   , "exitUrl", "startLayer", "silent", "getBadge", "zone", "name", "doorVariable"
   , "bindVariable", "bellVariable", "code", "openTriggerMessage"
@@ -146,7 +146,7 @@ checkMapProperty p@(Property name _) = case name of
                 not ( "%" `isInfixOf` str) &&
                 not ( "@" `isInfixOf` str))
         $ forbid "only scripts hosted on static.rc3.world are allowed."
-    | name `elem` ["jitsiRoom", "bbbRoom", "playAudio", "openWebsite"
+    | name `elem` ["jitsiRoom", "playAudio", "openWebsite"
                   , "url", "exitUrl", "silent", "getBadge"]
           -> complain $ "property " <> name
                       <> " should be set on layers, not the map directly"
@@ -375,34 +375,6 @@ checkTileThing removeExits p@(Property name _value) = case name of
       requireProperty "jitsiTrigger"
     "jitsiWidth" ->
       isIntInRange 0 100 p
-    "bbbRoom" -> do
-      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/2021/room"<>room_slug
-              dependsOn (Link link)
-              setProperty "openTab" link
-              setProperty "silent" (BoolProp True)
-              setProperty "openWebsitePolicy"
-                ("fullscreen;camera;microphone;display-capture" :: Text)
-        _ -> complain "the \"bbbRoom\" property must take a link of the form bbb://assembly_slug/room_slug."
-    "bbbTrigger" -> do
-      removeProperty "bbbTrigger"
-      requireProperty "bbbRoom"
-      unwrapString p
-        (setProperty "openWebsiteTrigger")
-      unlessHasProperty "bbbTriggerMessage" $ do
-       setProperty "openWebsiteTriggerMessage"
-         ("press SPACE to enter bbb room in a new tab" :: Text)
-       suggest "set \"bbbTriggerMessage\" to a custom message to overwrite the\
-               \default \"press SPACE to enter the bbb room\""
-    "bbbTriggerMessage" -> do
-      removeProperty "bbbTriggerMessage"
-      requireProperty "bbbRoom"
-      unwrapString p
-        (setProperty "openWebsiteTriggerMessage")
     "playAudio" -> do
       uselessEmptyLayer
       unwrapURI (Proxy @"audio") p