(defn line->html
"Returns the given line with html added."
[line tags-for-line]
(let [html-per-column (into [] tags-for-line->html (sort-by :column tags-for-line))
segments (line->segments line tags-for-line true)]
(str/join (interleave segments (concat html-per-column (repeat ""))))))