Return the context-lines for a result. Contexts nest, and appear before
the name line.
(defn context-lines
"Return the context-lines for a result. Contexts nest, and appear before
the name line."
[last-result this-result]
(->> (map vector
(iterate inc 0)
(concat (result-context last-result) (repeat nil))
(concat (result-context this-result)))
(drop-while descriptions-match)
(map add-indentation)))
Comments top
No comments for context-lines. Log in to add a comment.