                                           (into {}))]
                     (topo-sort sinks simple-preds)))]
     (map->ClassGraph {:classes classes
+                      :block-classes block-classes
                       :succs succs :preds preds
                       :sources sources :sinks sinks
                       :block-succs block-succs

            (into {}))))))


(defrecord ClassGraph [classes succs preds block-succs block-preds sources sinks
                       aligned compacted]
  YPlottable
  (ys [this node-sep char-sep]
    (memo-ys this node-sep char-sep))

                                                       compacted))
                          {}
                          classes)
           shift-ys (get-shift-ys classes block-classes class-edges node-sep
                                  char-sep rel-ys compacted)
           block-shift-ys (into {} (mapcat (fn [[class shift]]
                                             (map #(-> [% shift]) class))
                                           shift-ys))]
