diff options
author | Tom Willemse | 2022-07-01 18:58:59 -0700 |
---|---|---|
committer | Tom Willemse | 2022-09-22 23:52:01 -0700 |
commit | 642c165ebe63abfabd2273d561222e74d2d98bb6 (patch) | |
tree | 5ec2f56bbdfe368efe304d2ff1fd1ee44b10d535 /work/usr/bin | |
parent | cef7e7ad972f81b8848ce9a36d27a3724a26698e (diff) | |
download | new-dotfiles-642c165ebe63abfabd2273d561222e74d2d98bb6.tar.gz new-dotfiles-642c165ebe63abfabd2273d561222e74d2d98bb6.zip |
[work] Add option to start my rdp in a window and update options
- 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.
Diffstat (limited to 'work/usr/bin')
-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) |