diff options
author | Tom Willemse | 2022-03-01 21:38:50 -0800 |
---|---|---|
committer | Tom Willemse | 2022-03-01 21:43:31 -0800 |
commit | 1b3dad4212e6e6473ea13330cf0e43b98a0dff46 (patch) | |
tree | 34c2b25c5cf2291d686e1d9ad6ca4f11095947f9 /herbstluftwm/usr/share/scsh | |
parent | c0deec6a74d0bfea6d212730fb128f7148493c31 (diff) | |
download | new-dotfiles-1b3dad4212e6e6473ea13330cf0e43b98a0dff46.tar.gz new-dotfiles-1b3dad4212e6e6473ea13330cf0e43b98a0dff46.zip |
Add script to connect to remote desktop
Diffstat (limited to 'herbstluftwm/usr/share/scsh')
-rw-r--r-- | herbstluftwm/usr/share/scsh/herbstluft.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/herbstluftwm/usr/share/scsh/herbstluft.scm b/herbstluftwm/usr/share/scsh/herbstluft.scm new file mode 100644 index 0000000..98dc6c0 --- /dev/null +++ b/herbstluftwm/usr/share/scsh/herbstluft.scm @@ -0,0 +1,14 @@ +(define-structure herbstluft (export hc hc-get-attr) + (open scheme-with-scsh + (subset srfi-13 (string-trim-both))) + (begin + (define-syntax hc + (syntax-rules () + ((_ a ...) + (herbstclient `(a ...))))) + + (define (herbstclient args) + (run (herbstclient ,@args))) + + (define (hc-get-attr arg) + (string-trim-both (run/string (herbstclient attr ,arg)))))) |