blob: 98dc6c0ad9e4cb1dc4fc2a11f8d67804d2eb8e53 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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))))))
|