diff options
author | Tom Willemse | 2022-03-01 21:38:50 -0800 |
---|---|---|
committer | Tom Willemse | 2022-03-01 21:43:31 -0800 |
commit | 1b3dad4212e6e6473ea13330cf0e43b98a0dff46 (patch) | |
tree | 34c2b25c5cf2291d686e1d9ad6ca4f11095947f9 /work/usr | |
parent | c0deec6a74d0bfea6d212730fb128f7148493c31 (diff) | |
download | new-dotfiles-1b3dad4212e6e6473ea13330cf0e43b98a0dff46.tar.gz new-dotfiles-1b3dad4212e6e6473ea13330cf0e43b98a0dff46.zip |
Add script to connect to remote desktop
Diffstat (limited to 'work/usr')
-rwxr-xr-x | work/usr/bin/r-twillemse2223 | 24 |
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))) + |