add render-out function

This commit is contained in:
Gered 2014-03-29 17:21:12 -04:00
parent e3e0e8b67b
commit f164b57aee

View file

@ -121,3 +121,10 @@
(->> (str/split s #"\n")
(map #(render-line % flf))
(apply concat)))
(defn render-out [flf & more]
(let [s (str/join " " more)
lines (render s flf)]
(->> lines
(str/join \newline)
(clojure.core/print))))