Start visualize the header

project.clj

@@ -24,6 +24,7 @@
                  [clj-time "0.11.0"]
                  [io.forward/clojure-mail "1.0.3"]
                  [macroz/tangle "0.1.9"]
+                 [rhizome "0.2.5"]
                  [org.immutant/web "2.1.1" :exclusions [ch.qos.logback/logback-classic]]]
 
   :min-lein-version "2.0.0"

src/mailhead/visualize.clj

@@ -0,0 +1,23 @@
+(ns mailhead.visualize
+  (:use [tangle.core])
+  (:require [mailhead.parser :as parser]))
+
+(defn nodes [receive-path] [:a :b :c])
+
+(defn edges [receive-path] [[:a :b {:label "200ms"}]
+                            [:b :c {:label "50min"}]])
+
+(defn draw-path [receive-path]
+  (-> (graph->dot
+       (nodes receive-path)
+       (edges receive-path)
+       {:node {:shape :box}
+        :directed? true
+        :graph {:rankdir :LR}})
+      (dot->image "png")))
+
+(defn draw [filename]
+  (draw-path (parser/parse-from-file filename)))
+
+(draw "/home/aaron/workbench/clojurecup2015/sample-data/header1.eml")
+