shell macro

macro.clj

(require '[clojure.java.shell :as sh]
         '[clojure.string :as str])

(defn format-arg [arg]
  (cond
    (symbol? arg) (str arg)
    (seq? arg) (let [f (first arg)]
                 (if (and (symbol? f) (= "unquote" (name f)))
                   (second arg)
                   arg))
    :else (pr-str arg)))

(defmacro $ [& args]
  `(let [command# (str/join " " ~(mapv format-arg args))]
     (sh/sh "bash" "-c" command#)))

(let [dir "src"
      pat "e"]
  (-> ($ find ~dir | grep ~pat)
      :out
      println))

Usage on my machine:

$ clj /tmp/macro.clj
src/dre/gateway/entrez.clj