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

Add arrows

Browse source
This commit is contained in:
Aaron Fischer 2015-12-06 00:46:25 +01:00
parent 77da1bf687
commit 90891ab60d
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/mailhead/visualize.clj
View file

@ -2,14 +2,19 @@
(:use [tangle.core]) (:use [tangle.core])
(:require [mailhead.parser :as parser])) (:require [mailhead.parser :as parser]))
(defn nodes [receive-path] ["home" "servera" "target"]) (defn edge-path [receive-path]
(let [path (reverse receive-path)
chain (concat (map :sender (butlast path)) [(:receiver (last path))])
cleaned-chain (map clojure.string/lower-case chain)]
(partition 2 (interleave cleaned-chain (rest cleaned-chain)))))
(defn edges [receive-path] [["home" "servera" {:label "200ms" :fillcolor "gray" :color "gray"}] (defn edges [path]
["servera" "target" {:label "50min" :fillcolor "gray" :color "gray"}]]) (let [p (map #(concat % [{:label "ms" :fillcolor "gray" :color "gray"}]) (edge-path path))]
(into [] (map #(into [] %)) p)))
(defn draw-path [receive-path] (defn draw-path [receive-path]
(-> (graph->dot (-> (graph->dot
(nodes receive-path) []
(edges receive-path) (edges receive-path)
{:node {:shape :box {:node {:shape :box
:fontname "Arial" :fontname "Arial"