diff options
| -rwxr-xr-x | work/usr/bin/r-twillemse2223 | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/work/usr/bin/r-twillemse2223 b/work/usr/bin/r-twillemse2223 index a272043..102e860 100755 --- a/work/usr/bin/r-twillemse2223 +++ b/work/usr/bin/r-twillemse2223 @@ -6,16 +6,24 @@ exec scsh -ll herbstluft.scm -o herbstluft -s "$0" "$@" (define tag-name "rdp") +(define fullscreen-arguments + '(/f "/floatbar:sticky:off,default:hidden" -toggle-fullscreen)) +(define windowed-arguments + '(/w:1920 /h:1080)) + (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))) + (let ((password + (run/string (secret-tool lookup service vpn host vpn.relic.com)))) + (run (xfreerdp /u:WillemsenT /v:R-TWILLEMSE2223.re.sega.internal + /sound:sys:pulse +fonts -decorations -wallpaper /video + ,(string-append "/p:" password) + ,@(if (member "w" command-line-arguments) + windowed-arguments + fullscreen-arguments))))) (lambda () (let ((current-tag (hc-get-attr 'tags.focus.name))) (if (string= current-tag tag-name) |