[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

@@ -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
+    (let ((password
-                   /sound:sys:pulse +fonts "/floatbar:sticky:off,default:hidden"
+           (run/string (secret-tool lookup service vpn host vpn.relic.com))))
-                   -decorations /microphone:sys:pulse
+      (run (xfreerdp /u:WillemsenT /v:R-TWILLEMSE2223.re.sega.internal
-                   ,(string-append "/p:" (run/string (secret-tool lookup service vpn host vpn.relic.com)))
+                     /sound:sys:pulse +fonts -decorations -wallpaper /video
-                   -wallpaper -toggle-fullscreen)))
+                     ,(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)