57 lines
1.4 KiB
Clojure
57 lines
1.4 KiB
Clojure
|
#!/usr/bin/env bb
|
||
|
|
|
||
|
|
(ns portal
|
||
|
|
(:require [babashka.classpath :as cp]
|
||
|
|
[cheshire.core :as json]
|
||
|
|
[clj-yaml.core :as yaml]
|
||
|
|
[clojure.data.xml :as xml]
|
||
|
|
[clojure.edn :as edn]
|
||
|
|
[clojure.java.shell :refer [sh]]
|
||
|
|
[clojure.string :as str]))
|
||
|
|
|
||
|
|
(def cp (str/trim (:out (sh "clojure" "-Spath" "-Sdeps" "{:deps {djblue/portal {:mvn/version \"0.6.1\"}}}"))))
|
||
|
|
(cp/add-classpath cp)
|
||
|
|
|
||
|
|
(require '[portal.api :as p])
|
||
|
|
|
||
|
|
(.addShutdownHook (Runtime/getRuntime)
|
||
|
|
(Thread. (fn [] (p/close))))
|
||
|
|
|
||
|
|
(p/open)
|
||
|
|
(p/tap)
|
||
|
|
|
||
|
|
(def file (first *command-line-args*))
|
||
|
|
(when-not file
|
||
|
|
(binding [*out* *err*]
|
||
|
|
"Usage: portal.clj <file.(edn|json|xml|yaml)>"))
|
||
|
|
|
||
|
|
(def extension (last (str/split file #"\.")))
|
||
|
|
(def contents (slurp file))
|
||
|
|
|
||
|
|
(defn xml->hiccup [xml]
|
||
|
|
(if-let [t (:tag xml)]
|
||
|
|
(let [elt [t]
|
||
|
|
elt (if-let [attrs (:attr xml)]
|
||
|
|
(conj elt attrs)
|
||
|
|
elt)]
|
||
|
|
(into elt (map xml->hiccup (:content xml))))
|
||
|
|
xml))
|
||
|
|
|
||
|
|
(def data (case extension
|
||
|
|
("edn")
|
||
|
|
(edn/read-string contents)
|
||
|
|
("json")
|
||
|
|
(json/parse-string contents)
|
||
|
|
("yml" "yaml")
|
||
|
|
(yaml/parse-string contents)
|
||
|
|
("xml")
|
||
|
|
(-> (xml/parse-str contents
|
||
|
|
:skip-whitespace true
|
||
|
|
:namespace-aware false)
|
||
|
|
(xml->hiccup))))
|
||
|
|
|
||
|
|
(tap> data)
|
||
|
|
|
||
|
|
@(promise)
|
||
|
|
|