From a6a9a3efb469fc7f0a8823c015ad5d95184af3c9 Mon Sep 17 00:00:00 2001
From: Aaron Fischer <mail@aaron-fischer.net>
Date: Sun, 6 Dec 2015 15:53:11 +0100
Subject: [PATCH] Add a cut off head :)

---
 resources/public/css/screen.css |   7 +++++++
 resources/public/img/head.png   | Bin 0 -> 968 bytes
 resources/templates/home.html   |   9 ++++++---
 src/mailhead/routes/home.clj    |   9 +++++----
 4 files changed, 18 insertions(+), 7 deletions(-)
 create mode 100644 resources/public/img/head.png

diff --git a/resources/public/css/screen.css b/resources/public/css/screen.css
index 4eb8248..549c172 100644
--- a/resources/public/css/screen.css
+++ b/resources/public/css/screen.css
@@ -15,6 +15,13 @@ textarea {
   margin-right: 30px;
 }
 
+#head {
+  float: left;
+  margin-right: 20px;
+  margin-top: 20px;
+}
+
+
 {% if cljs %}
 @-moz-keyframes three-quarters-loader {
     0% {
diff --git a/resources/public/img/head.png b/resources/public/img/head.png
new file mode 100644
index 0000000000000000000000000000000000000000..a4d32e7dd1a001fc1700b5dd15f72209e3e083ac
GIT binary patch
literal 968
zcmeAS@N?(olHy`uVBq!ia0vp^Yk_zX2OE$y{^>gnNU<e(ySp&_2f+n<mrn+Ya29w(
z7Bet#3xhBt!>l<HKtc8rPhVH|`#fxX#-{0sR`VDbm_t2X978H@y}i5FE4onTcw+G6
zE8-h=l@-6dureS+lVz1fhlWN4dz_29dj5f>k#}`9UMO%a)oaz`d&|0I`-1M4RUb=U
zN$oRSZl-^J^S9%H{&xQ?KRmwT6)194f@gwy9^)d`i%l7Vx*cLJ-5HKsF7#$Cug@`?
zebH4-UH$G!#jy3)7w^1%`*ucNU7g*m=!l4dOOHM>xNt9W-J%dBpbOOO^xi7($R*$F
z$Bwy~l$Vu>oz2b5`<3$R#K(_?Cfm1d6FVCl6JwG2v4R1pRtcyDY|+DyA*XkEEDh>>
zHf{R!#XFmun}h041m4~-cg`G_;<aJgv!Wv-3ojwL3uIaI>M6Z9e*CB~DX*`WKf84H
z<`UuZl9G^DzR~gV`d_P-FJFG~&eyM{CfD<&b<}m``0p?Q-3hbw;-UJ`Q*JqFX=<}}
z@7i^$Zt}d8{obyDF2&y7-WOwbCEmV&U;pd#h}hV-uRSjHE}sku4uvSF5ih*2*8N$w
zZTt4cJJU8xo{f!*b1Qz?rh7MGsr1H8Z{NLhE4H?_2AXqn&DE@nG3%wxKn`#Kh7sHe
zB};=!BADO4ed{WI^VY4dXP3@$+19OixI6D9n}Mmdwe;D!^XI!4cXxODMcK$T0HXpJ
zP>^7L5qrG+$fdJhe~zxYsh#<9nc7_M|8<c!pFMlFXy+H%ZJU<9FY)#FpZ=@#_S<cf
z#roNy5z_=VL(U(lnU9};akr1JuWRv3x1NV)hK7P?O{I7-ocLwkW4D}$J2iE4dF|?F
z-rW-QZ9lVE^26Pk)9p9!{N`&CR{#B|CsL4tZ1`~9W6ze*J6jj+Jar@1<on;F$1~nt
zUC)2>dw8|j+1l#gnzO3ypIG~;gOUnTd|sG3vBLdL_K)uuq#myQAshET^W^p4g8%m9
zxBXEry#z@oK=qJNh?VT@y|F=~TKM@A6hjoE+?slCFyHX8%tQ(<V5)3oOj0&;$aype
o5s2WldWiW($HOJ9^>6t<Z(RAGUC^2jnCBQgUHx3vIVCg!0E7y$AOHXW

literal 0
HcmV?d00001

diff --git a/resources/templates/home.html b/resources/templates/home.html
index cd91e1a..ca18b79 100644
--- a/resources/templates/home.html
+++ b/resources/templates/home.html
@@ -1,15 +1,18 @@
 {% extends "base.html" %}
 {% block content %}
 <div class="row">
-  <div class="span12">
-    <p>Use this form to analyze a e-mail. Just paste the whole e-mail
+  <div class="span3">
+    <img id="head" src="img/head.png">
+  </div>
+  <div class="span9">
+    <p class="col-md-9">Use this form to analyze a e-mail. Just paste the whole e-mail
     in <strong>raw mode</strong> here and hit the analyze button. The e-mail
     will be analyzed and an visual representation will be generated. Use this
     tool to find e-mail problems or to see which servers, locations and
     companies the e-mail passed. This tool is intended for debugging e-mail
     communication.</p>
 
-    <form action="/analyze" method="post">
+    <form class="col-md-9" action="/analyze" method="post">
       {% csrf-field %}
       <textarea class="form-control" name="mailheader" placeholder="Paste your e-mail in source format (with headers) here."></textarea><br>
       <input class="btn btn-success form-control" type="submit" name="send"
diff --git a/src/mailhead/routes/home.clj b/src/mailhead/routes/home.clj
index 67b8db0..a925eba 100644
--- a/src/mailhead/routes/home.clj
+++ b/src/mailhead/routes/home.clj
@@ -13,10 +13,6 @@
 (defn about-page []
   (layout/render "about.html"))
 
-(defn show-sample [index]
-  (let [email-content (slurp (str "sample-data/example" index ".eml"))]
-    (show-result email-content)))
-
 ;; TODO: Show more information (mail round trip time, ...)
 (defn show-result [message-string]
   (if (empty? (parser/parse message-string))
@@ -28,6 +24,11 @@
                       :email parsed-email
                       :token token}))))
 
+(defn show-sample [index]
+  (let [email-content (slurp (str "sample-data/example" index ".eml"))]
+    (show-result email-content)))
+
+
 (defn generated-image [token]
   (-> (clojure.java.io/input-stream (str "generated-images/" token ".svg"))
       ok