lazy regex matches

lazy-re.clj

(defn lazy-re [re pp]
  (let [re-m (re-matcher re pp)
        re-cm #(re-find re-m)
        call-lzre 
        (fn step []
          (lazy-seq
           (when-let [r (re-cm)]
             (cons r
                   (step)))))]
    (call-lzre)))

(doseq [n (lazy-re #"\{\{(.+\S*)\}\}" "{{Title}}\nsomething {{Body}}")]
  (prn n))

;;["{{Title}}" "Title"]
;;["{{Body}}" "Body"]