gered/clj-figlet
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

render-line now handles tab characters

Browse source
This commit is contained in:
Gered 2014-03-29 17:11:23 -04:00
parent 7bda8d1a14
commit d19d000021
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/clj_figlet/core.clj
View file

@ -92,7 +92,7 @@
(defn- get-initial-output-lines [flf] (defn- get-initial-output-lines [flf]
(take (get-in flf [:header :height]) (repeat ""))) (take (get-in flf [:header :height]) (repeat "")))
(defn- render-char [c flf lines] (defn- render-char [^Character c flf lines]
(let [char-lines (get-in flf [:chars c]) (let [char-lines (get-in flf [:chars c])
hardblank (get-in flf [:header :hardblank-str])] hardblank (get-in flf [:header :hardblank-str])]
(if char-lines (if char-lines
@ -106,11 +106,13 @@
lines) lines)
lines))) lines)))
(defn render-line [s flf] (defn render-line [^String s flf & [initial-output]]
(let [output (get-initial-output-lines flf)] (let [output (or initial-output (get-initial-output-lines flf))]
(reduce (reduce
(fn [out c] (fn [out c]
(render-char c flf out)) (condp = c
\tab (render-line " " flf out)
(render-char c flf out)))
output output
s))) s)))