From 3611b48579b29c2d4e417355ea85b327effc2f2e Mon Sep 17 00:00:00 2001
From: tabascoeye <tabascoeye@gmail.com>
Date: Tue, 28 Dec 2021 15:21:03 +0000
Subject: [PATCH] open BBBs in new Tab so that they work now :/
PLEASE review! I have no idea of haskell
---
lib/Properties.hs | 4 ++--
1 file 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
--
GitLab