jq for edn

ceq

#!/bin/sh
#_(
   DEPS=''
   OPTS='
   -J-Xms256m -J-Xmx256m -J-client
   '

exec clojure $OPTS -Sdeps "$DEPS" "$0" "$@"
)
(require '[clojure.edn :as edn]
         '[clojure.string :as str])

(def in (slurp *in*))

(defn ->out [ret]
  (cond
    (coll? ret) (run! println ret)
    :else (println ret)))

(def query
  *command-line-args*)

(defn ->kw [s]
  (keyword (clojure.string/replace s #":" "")))

(defn lex [obj]
  (if (str/starts-with? obj ":")
    (->kw obj)
    (resolve (symbol obj))))

(def apply-fns (reduce comp (reverse (map lex *command-line-args*))))
(some->> in
         (edn/read-string)
         apply-fns
         ->out)