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))))) (partition 2 (interleave cleaned-chain (rest cleaned-chain)))))
(defn edges [path] (defn edges [path]
(let [p (map (let [p (map-indexed
#(concat % [{:label "time" :fillcolor "gray" :color "gray"}]) #(concat %2 [{:label (str (inc %1)) :fillcolor "gray" :color "gray"}])
(edge-path path))] (edge-path path))]
(into [] (map #(into [] %)) p))) (into [] (map #(into [] %)) p)))