         (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

        {:keys [start start-line]} n']
    (when (and start start-line)
      (-> start
          (+ (* 2 start-line))
          inc))))

(defn find-up-node

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