24 lines
826 B
Scheme
Executable file
24 lines
826 B
Scheme
Executable file
#!/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)))
|
|
|