From 1b3dad4212e6e6473ea13330cf0e43b98a0dff46 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Tue, 1 Mar 2022 21:38:50 -0800
Subject: Add script to connect to remote desktop

---
 work/usr/bin/r-twillemse2223 | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 work/usr/bin/r-twillemse2223

(limited to 'work')

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)))
+
-- 
cgit v1.2.3-54-g00ecf