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

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

@ -87,13 +87,13 @@
(define img (bitmap/file path))
(define relative-path (->string (find-relative-path PROJECT_ROOT path)))
(define img-url (format "/~a" relative-path))
`(div
`(div
(p "filename =" ,(->string relative-path))
(p "size = " ,(bytecount->string (file-size path)))
,@(when/splice (not (equal? (get-ext path) "svg"))
`(p "width = " ,(->string (image-width 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)

Loading…
Cancel
Save