                    :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 value->text-prop-pair*
  [a]
  (->> a

       flatten
       (remove nil?)
       (map decorate-token)
       split-text-tag-coll*))

(defn tokens->text-prop-pair
  [tokens]
