Add script to connect to remote desktop

1 files changed, 24 insertions, 0 deletions

diff --git a/work/usr/bin/r-twillemse2223 b/work/usr/bin/r-twillemse2223
new file mode 100755
index 0000000..a272043
--- /dev/null
+++ b/work/usr/bin/r-twillemse2223
@@ -0,0 +1,24 @@
+#!/usr/bin/env sh
+# -*- mode: scheme; -*-
+IFS=" "
+exec scsh -ll herbstluft.scm -o herbstluft -s "$0" "$@"
+!#
+
+(define tag-name "rdp")
+
+(dynamic-wind
+  (lambda () (hc add ,tag-name))
+  (lambda ()
+    (hc rule once class=xfreerdp floating=on ,(string-append "tag=" tag-name) switchtag=on)
+
+    (run (xfreerdp /u:WillemsenT /v:R-TWILLEMSE2223.re.sega.internal /f
+                   /sound:sys:pulse +fonts "/floatbar:sticky:off,default:hidden"
+                   -decorations /microphone:sys:pulse
+                   ,(string-append "/p:" (run/string (secret-tool lookup service vpn host vpn.relic.com)))
+                   -wallpaper -toggle-fullscreen)))
+  (lambda ()
+    (let ((current-tag (hc-get-attr 'tags.focus.name)))
+      (if (string= current-tag tag-name)
+          (hc use_previous)))
+    (hc merge_tag ,tag-name)))
+