Tom Willemse
642c165ebe
- Remove the ‘/microphone’ option, since I don't use the microphone on my work PC ever. - Add the ‘-wallpaper’ option to disable the wallpaper. Hopefully this helps with the visual performance of the session. - Add the ‘/video’ option to optimize the connection for video playback, which hopefully also helps with the visual performance of the session.
32 lines
1 KiB
Scheme
Executable file
32 lines
1 KiB
Scheme
Executable file
#!/usr/bin/env sh
|
|
# -*- mode: scheme; -*-
|
|
IFS=" "
|
|
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)
|
|
|
|
(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)
|
|
(hc use_previous)))
|
|
(hc merge_tag ,tag-name)))
|
|
|