        flatten
        (remove nil?)
        (map decorate-token)
-       split-text-tag-coll))
+       split-text-tag-coll*))
 
 (defn tokens->text-prop-pair
   [tokens]

                   :line
                   :line-meta?
                   :line-break
                   :start
                   :start-col
                   :start-column
                   :start-line
                   :string
                   :zipper)
           remove-nil-vals

        (assoc t :neighbors [out in prev next]))
      t)))

(defn split-text-tag-coll*
  [tokens]
  [(->> tokens (map :string) (apply str))
   (->> tokens
        (mapv mk-text-props)
        (remove #(or (nil? (first %)) (nil? (second %)))))])

(defn value->text-prop-pair*
  [a]
  (->> a
