add pollen logo

pull/9/head
Matthew Butterick 11 years ago
parent ad46a9dd1a
commit 5fd65f7645

@ -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%;

File diff suppressed because one or more lines are too long

@ -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>

After

Width:  |  Height:  |  Size: 891 B

@ -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
(table
(body-wrapper
`(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))

Loading…
Cancel
Save