 
 
 (defn character-segments
+  "Takes character-level y info, and generates all the line segments for each
+  character's path"
   [char-ys]
   (->> char-ys
        (group-by :character)



(defn get-character-layer-pairs
  [layers characters]
  (let [char-layers (map (fn [layer]
                           (mapcat (fn [item]



(defn get-segments-by-layer-character
  "Takes character segments and organizes them by layer, and then by character"
  [char-segs layers]
  (let [layer-map (group-by #(-> % :dest :node :layer-id) char-segs)]
    (->> (drop 1 layers)
