blob: 102e8608bceb603cff38f0a3b2dfd66fef75f41f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/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)))
|