From a3b4a862180c4a40a206fb06ffd3730d4b4805de Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 31 Jan 2014 22:58:15 -0800
Subject: [PATCH] updates

---
 pollen-server-extras/poldash.css | 6 +++---
 server-routes.rkt                | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/pollen-server-extras/poldash.css b/pollen-server-extras/poldash.css
index 103ef1b..8db51f3 100644
--- a/pollen-server-extras/poldash.css
+++ b/pollen-server-extras/poldash.css
@@ -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;
 }
\ No newline at end of file
diff --git a/server-routes.rkt b/server-routes.rkt
index b16e09a..8c5d12c 100644
--- a/server-routes.rkt
+++ b/server-routes.rkt
@@ -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)