add pollen logo

pollen-server-extras/poldash.css

@@ -8,6 +8,16 @@ body {
     font-family: "Triplicate T3";
 }
 
+div#pollen-logo {
+    position: fixed;
+    right: 0;
+    bottom: 0;
+    width: 76;
+    height: 76;
+    background-image: url("pollen.svg");
+    background-size: 100%;
+}
+
 table {
     border-collapse:collapse;
     width: 100%;

pollen-server-extras/pollen.svg

@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="utf-8"?>
+<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
+<svg version="1.1" xmlns="http://www.w3.org/2000/svg" 
+width="19em" height="19em" viewBox="0 0 19 19">
+<rect fill="#e6e6e6" width="19" height="19" />
+<g>
+	<polyline fill="none" stroke="#BCBEC0" stroke-width="5" stroke-linecap="square" stroke-miterlimit="5" points="
+	3.5,9.5 
+	3.5,15.5 
+	9.5,15.5
+	9.5,9.5
+	15.5,9.5
+	15.5,3.5
+	3.5,3.5	"/>
+	<polyline fill="none" stroke="#000000" stroke-width="3" stroke-linecap="square" stroke-miterlimit="5" points="
+	3.5,9.5 
+	3.5,15.5 
+	9.5,15.5
+	9.5,9.5
+	15.5,9.5
+	15.5,3.5
+	3.5,3.5	"/>
+	<polyline fill="none" stroke="#D7Df23" stroke-width="1" stroke-linecap="square" stroke-miterlimit="5" points="
+	3.5,9.5 
+	3.5,15.5 
+	9.5,15.5
+	9.5,9.5
+	15.5,9.5
+	15.5,3.5
+	3.5,3.5	"/>
+</g>
+</svg>

server-routes.rkt

@@ -14,14 +14,15 @@
 
 (provide route-dashboard route-xexpr route-default route-404 route-in route-out)
 
-(define (html-wrapper body-xexpr)
+(define (body-wrapper content-xexpr)
   `(html 
     (head
      (meta ((charset "UTF-8")))
      (link ((rel "stylesheet") 
             (type "text/css") 
             (href ,(format "/~a" DASHBOARD_CSS)))))
-    ,body-xexpr))
+    (body
+     ,content-xexpr (div ((id "pollen-logo"))))))
 
 ;; to make dummy requests for debugging
 (define/contract (string->request u)
@@ -76,7 +77,7 @@
 ;; takes either a string or an xexpr
 (define/contract (format-as-code x)
   (xexpr? . -> . tagged-xexpr?)
-  (html-wrapper `(tt ,x)))
+  (body-wrapper `(tt ,x)))
 
 ;; server routes
 ;; these all produce an xexpr, which is handled upstream by response/xexpr
@@ -155,11 +156,10 @@
     ;; put subdirs in list ahead of files (so they appear at the top)
     (append (sort-names subdirectories) (sort-names files)))
   
-  (html-wrapper
+  (body-wrapper
-   `(body
+   `(table 
-     (table 
      ,@(cons (make-parent-row) 
-              (map make-path-row (unique-sorted-output-paths project-paths)))))))
+             (map make-path-row (unique-sorted-output-paths project-paths))))))
 
 (define route-dashboard (route-wrapper dashboard))