clean-json.cljs

#!/usr/local/bin/planck
(require '[planck.core :refer [*in* slurp]])
(require '[clojure.string :as string])

(defn replaces [s]
  (reduce
   (fn [s [k v]]
     (string/replace s k v))
   s
   {"Object {" "{"
    "Array [" "["}))

(defn map-lines [f s]
  (->> (.split s "\n")
       (map f)
       (string/join "\n")))

(defn remove+- [s]
  (let [s (.trim s)]
    (if (or (.startsWith s "+") (.startsWith s "-"))
      (.substring s 1)
      s)))

(->> *in*
     slurp
     replaces
     (map-lines remove+-)
     println)