(defn code->hiccup
"Returns the code in the given string with Hiccup-compatible data structures added."
[code]
(let [lines (split-lines code)
tags (ts/code->tags code)
hiccup (parse-lines line->hiccup lines tags)
hiccup (apply concat (interpose ["\n"] hiccup))]
(structurize-hiccup hiccup)))