f/clojurecup2015-mailhead
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add the stages to the edges

Browse source
This commit is contained in:
Aaron Fischer 2015-12-06 15:08:20 +01:00
parent 6fc0451dfe
commit c2c9fdb4d3
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/mailhead/visualize.clj
View file

@ -9,8 +9,8 @@
(partition 2 (interleave cleaned-chain (rest cleaned-chain)))))
(defn edges [path]
(let [p (map
#(concat % [{:label "time" :fillcolor "gray" :color "gray"}])
(let [p (map-indexed
#(concat %2 [{:label (str (inc %1)) :fillcolor "gray" :color "gray"}])
(edge-path path))]
(into [] (map #(into [] %)) p)))