2013-10-27 22:24:23 +00:00
|
|
|
;; Wrap line base on regular expression
|
|
|
|
|
(defn wrap-line [size text]
|
2017-09-23 10:01:46 +02:00
|
|
|
(re-seq (re-pattern (str ".{1," size "}\\s|.{1," size "}"))
|
2013-10-27 22:24:23 +00:00
|
|
|
(clojure.string/replace text #"\n" " ")))
|
