summaryrefslogtreecommitdiff
path: root/lib/Properties.hs
diff options
context:
space:
mode:
authortabascoeye2021-12-28 15:21:03 +0000
committertabascoeye2021-12-28 15:21:03 +0000
commit3611b48579b29c2d4e417355ea85b327effc2f2e (patch)
treeaef571b214cd536353b4f38556c5f00d82982d11 /lib/Properties.hs
parent52f379970c706a613f4a99976d45671f77bf7045 (diff)
open BBBs in new Tab so that they work now :/
PLEASE review! I have no idea of haskell
Diffstat (limited to 'lib/Properties.hs')
-rw-r--r--lib/Properties.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Properties.hs b/lib/Properties.hs
index 345f2ba..46afcb9 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -371,7 +371,7 @@ checkTileLayerProperty p@(Property name _value) = case name of
&& T.length room_slug >= 2 -> do
let link = "https://rc3.world/2021/room"<>room_slug
dependsOn (Link link)
- setProperty "openWebsite" link
+ setProperty "openTab" link
setProperty "silent" (BoolProp True)
setProperty "openWebsitePolicy"
("fullscreen;camera;microphone;display-capture" :: Text)
@@ -383,7 +383,7 @@ checkTileLayerProperty p@(Property name _value) = case name of
(setProperty "openWebsiteTrigger")
unlessHasProperty "bbbTriggerMessage" $ do
setProperty "openWebsiteTriggerMessage"
- ("press SPACE to enter bbb room" :: Text)
+ ("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