shell.hy

(defmacro $ [&rest cmd]
  (let [var? (fn [s] (s.startswith "$"))
        rm-$ (fn [s] (slice s 1))
  `@(map (fn [s] (if (var? s) (rm-$ s) `'~s))) cmd)

(let [test "hello"
      data ($ cat foo | grep $test)]
  (print data)