diff options
Diffstat (limited to 'herbstluftwm')
-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)))))) |