add render-out function
This commit is contained in:
parent
e3e0e8b67b
commit
f164b57aee
|
@ -120,4 +120,11 @@
|
||||||
(defn render [^String s flf]
|
(defn render [^String s flf]
|
||||||
(->> (str/split s #"\n")
|
(->> (str/split s #"\n")
|
||||||
(map #(render-line % flf))
|
(map #(render-line % flf))
|
||||||
(apply concat)))
|
(apply concat)))
|
||||||
|
|
||||||
|
(defn render-out [flf & more]
|
||||||
|
(let [s (str/join " " more)
|
||||||
|
lines (render s flf)]
|
||||||
|
(->> lines
|
||||||
|
(str/join \newline)
|
||||||
|
(clojure.core/print))))
|
Loading…
Reference in a new issue