   the current cursor position."
   [text-insertion]
   (fn [source-map]
-    (println "insert into:" source-map)
     (let [old-text (:text source-map)
           cursor (:pos source-map)
           new-text (str


(defn initial-text
  [text]
  ((insert-text text)
   {:pos 0 :text ""}))

(ns text-stream.edits
  (:gen-class))

(defn consolidate
  "Takes a seq of edits and composes them into a single function. Applies from
