Add #$ reader macro for shell commands

1 files changed, 13 insertions, 0 deletions

diff --git a/bs/shell.scm b/bs/shell.scm
index 8dea64f..3a5d276 100644
--- a/bs/shell.scm
+++ b/bs/shell.scm
@@ -30,3 +30,16 @@
 (define (cd path)
   (chdir path)
   (ls))
+
+;; run shell commands with #$"cmd args"
+;;   #$"who"
+;;   ben      tty7         2022-11-07 20:31 (:0)
+(read-hash-extend
+ #\$
+ (lambda (c port)
+   (let ((input (read port)))
+     ;; todo:
+     ;; - parse input for #{interpolations}
+     ;; - evaluate scheme code inside the blocks
+     ;; - then exec this
+     `(exec ,input))))