luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Portal example [skip ci]

Browse source
This commit is contained in:
Michiel Borkent 2020-10-17 12:15:50 +02:00
parent 6c29ac66ed
commit 7db18749ac
1 changed files with 12 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
examples/portal.clj
View file

@ -12,21 +12,11 @@
(def cp (str/trim (:out (sh "clojure" "-Spath" "-Sdeps" "{:deps {djblue/portal {:mvn/version \"0.6.1\"}}}")))) (def cp (str/trim (:out (sh "clojure" "-Spath" "-Sdeps" "{:deps {djblue/portal {:mvn/version \"0.6.1\"}}}"))))
(cp/add-classpath cp) (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*)) (def file (first *command-line-args*))
(when-not file (when-not file
(binding [*out* *err*] (binding [*out* *err*]
"Usage: portal.clj <file.(edn|json|xml|yaml)>")) "Usage: portal.clj <file.(edn|json|xml|yaml)>")
(System/exit 1))
(def extension (last (str/split file #"\.")))
(def contents (slurp file))
(defn xml->hiccup [xml] (defn xml->hiccup [xml]
(if-let [t (:tag xml)] (if-let [t (:tag xml)]
@ -37,6 +27,8 @@
(into elt (map xml->hiccup (:content xml)))) (into elt (map xml->hiccup (:content xml))))
xml)) xml))
(def extension (last (str/split file #"\.")))
(def contents (slurp file))
(def data (case extension (def data (case extension
("edn") ("edn")
(edn/read-string contents) (edn/read-string contents)
@ -50,7 +42,14 @@
:namespace-aware false) :namespace-aware false)
(xml->hiccup)))) (xml->hiccup))))
(require '[portal.api :as p])
(.addShutdownHook (Runtime/getRuntime)
(Thread. (fn [] (p/close))))
(p/open)
(p/tap)
(tap> data) (tap> data)
@(promise) @(promise)