 
 
 (defn order-group
+  "Modifies the :order attribute for segments in char-segs, for each character
+  named in `group`"
   [char-segs group order-attr]
   (first (reduce (fn [[segs i] char]
                    [(assoc-in segs [char order-attr :order] i)



(defn get-segments-by-layer-character
  [char-segs layers]
  (let [layer-map (group-by #(-> % :dest :node :layer-id) char-segs)]
    (->> (drop 1 layers)



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