From 642c165ebe63abfabd2273d561222e74d2d98bb6 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Fri, 1 Jul 2022 18:58:59 -0700 Subject: [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. --- work/usr/bin/r-twillemse2223 | 18 +++++++++++++----- 1 file changed, 13 insertions(+), 5 deletions(-) (limited to 'work/usr/bin/r-twillemse2223') 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) -- cgit v1.2.3-54-g00ecf