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



(defn order-group
  [char-segs group order-attr]
  (first (reduce (fn [[segs i] char]
                   [(assoc-in segs [char order-attr :order] i)



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