pull/9/head
Matthew Butterick 11 years ago
parent 99699d69f4
commit a3b4a86218

@ -5,7 +5,7 @@
body { body {
padding: 1em; padding: 1em;
font-family: "Triplicate T3"; font-family: "Source Code Pro";
} }
div#pollen-logo { div#pollen-logo {
@ -30,7 +30,7 @@ tr > td:first-child {
} }
th, tr > td:first-child { th, tr > td:first-child {
font-family: "Triplicate T4"; font-family: "Source Code Pro";
background: #f6f6f6; background: #f6f6f6;
text-align: left; text-align: left;
} }
@ -79,7 +79,7 @@ a:active {
} }
tt { tt {
font-family: "AlixFB"; font-family: "Source Code Pro";
font-size: 100%; font-size: 100%;
white-space: pre-wrap; white-space: pre-wrap;
} }

@ -87,13 +87,13 @@
(define img (bitmap/file path)) (define img (bitmap/file path))
(define relative-path (->string (find-relative-path PROJECT_ROOT path))) (define relative-path (->string (find-relative-path PROJECT_ROOT path)))
(define img-url (format "/~a" relative-path)) (define img-url (format "/~a" relative-path))
`(div `(div
(p "filename =" ,(->string relative-path)) (p "filename =" ,(->string relative-path))
(p "size = " ,(bytecount->string (file-size path))) (p "size = " ,(bytecount->string (file-size path)))
,@(when/splice (not (equal? (get-ext path) "svg")) ,@(when/splice (not (equal? (get-ext path) "svg"))
`(p "width = " ,(->string (image-width img)) " " `(p "width = " ,(->string (image-width img)) " "
"height = " ,(->string (image-height img)))) "height = " ,(->string (image-height img))))
(a ((href ,img-url)) (img ((style "width:100%")(src ,img-url)))))) (a ((href ,img-url)) (img ((style "width:100%;border:1px solid #eee")(src ,img-url))))))
(define/contract (make-binary-info-page p) (define/contract (make-binary-info-page p)

Loading…
Cancel
Save