From 1b3dad4212e6e6473ea13330cf0e43b98a0dff46 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Tue, 1 Mar 2022 21:38:50 -0800
Subject: Add script to connect to remote desktop

---
 herbstluftwm/usr/share/scsh/herbstluft.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 herbstluftwm/usr/share/scsh/herbstluft.scm

(limited to 'herbstluftwm/usr')

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))))))
-- 
cgit v1.2.3-54-g00ecf