Fun (non-serious) small shell in babashka

bbsh.clj

#!/usr/bin/env rlwrap bb

(ns bbsh
  (:require
   [babashka.fs :as fs]
   [babashka.process :as process]
   [clojure.string :as str]))

(defmacro % [& args]
  `(do @(process/$ {:inherit true} ~@args)
       nil))

(defn next-line []
  (print (str *ns* "> "))
  (flush)
  (read-line))

(defn run-shell []
  (loop []
    (let [l (next-line)]
      (try (cond (str/starts-with? l "(")
                 (prn (load-string l))
                 (fs/which (str (read-string l)))
                 (load-string (format "(bbsh/%% %s)" l))
                 :else (prn (load-string l)))
           (catch Exception e (println (ex-message e))))
      (recur))))

(ns user
  (:require [bbsh :refer [%]]))

(bbsh/run-shell)

Demo at https://twitter.com/borkdude/status/1530170810757009412