#!/usr/bin/env sh
# -*- mode: scheme; -*-
IFS=" "
exec scsh -ll herbstluft.scm -o herbstluft -s "$0" "$@"
!#

(define tag-name "rdp")

(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)))
  (lambda ()
    (let ((current-tag (hc-get-attr 'tags.focus.name)))
      (if (string= current-tag tag-name)
          (hc use_previous)))
    (hc merge_tag ,tag-name)))