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

        (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]
