Generate SVG images

src/mailhead/routes/home.clj

@@ -1,5 +1,6 @@
 (ns mailhead.routes.home
   (:require [mailhead.layout :as layout]
+            [mailhead.visualize :as v]
             [compojure.core :refer [defroutes GET POST]]
             [ring.util.http-response :refer [ok]]
             [clojure.java.io :as io]))
@@ -11,7 +12,11 @@
   (layout/render "about.html"))
 
 (defn analyze-mailheader [mailheader]
-  (layout/render "result.html" {:mailheader mailheader}))
+  (let [token (v/draw mailheader)]
+    ;; TODO: Generate token
+    ;; TODO: Generate image
+    ;; TODO: Show image and other data on result.html
+    (layout/render "result.html" {:mailheader mailheader})))
 
 (defroutes home-routes
   (GET "/" [] (home-page))

src/mailhead/visualize.clj

@@ -9,11 +9,13 @@
     (partition 2 (interleave cleaned-chain (rest cleaned-chain)))))
 
 (defn edges [path]
-  (let [p (map #(concat % [{:label "ms" :fillcolor "gray" :color "gray"}]) (edge-path path))]
+  (let [p (map
+           #(concat % [{:label "time" :fillcolor "gray" :color "gray"}])
+           (edge-path path))]
     (into [] (map #(into [] %)) p)))
 
 (defn draw-path [receive-path]
-  (-> (graph->dot
+  (graph->dot
    []
    (edges receive-path)
    {:node {:shape :box
@@ -26,11 +28,19 @@
            :fontsize 10}
     :directed? true
     :graph {:rankdir :LR
-                :color "transparent"}})
-      (dot->image "png")))
+            :color "transparent"}}))
 
-(defn draw [filename]
-  (draw-path (parser/parse-from-file filename)))
+(defn save-image [dot token]
+  (let [path (str "generated-images/" token ".svg")]
+    (clojure.java.io/make-parents path)
+    (spit path (dot->svg dot))))
 
-(draw "/home/aaron/workbench/clojurecup2015/sample-data/header1.eml")
+(defn next-token []
+  (str (java.util.UUID/randomUUID)))
 
+  ;; TODO: Make it work with strings
+  (defn draw [mailheader]
+    (let [filename "/home/aaron/workbench/clojurecup2015/sample-data/header1.eml"
+          token (next-token)]
+      (save-image (draw-path (parser/parse-from-file filename)) token)
+      token))