From 0a3c1da70d2511d1dede37ee7d1c2ac84d0dc46e Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Wed, 2 Dec 2009 20:02:53 +0100
Subject: Improve score table display.

---
 src/logikorr/servlet.clj | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/logikorr/servlet.clj b/src/logikorr/servlet.clj
index 3178cec..00440d4 100644
--- a/src/logikorr/servlet.clj
+++ b/src/logikorr/servlet.clj
@@ -38,7 +38,7 @@
                    entity))
                entity-maps))))
 
-(def *static-directory* "/Users/mulk/Dropbox/Projekte/LogiCLJ/war")
+(def *static-directory* "/Users/mulk/Dropbox/Projekte/Logikorr/war")
 
 (defn current-revision []
   (or (first (ds/find-all (doto (Query. "revision")
@@ -94,7 +94,7 @@
        [:table#ergebnisse]
        [:h2 "Bestehende Ergebnisse"]
        [:a {:href "/logik.txt"} "(Als Text anzeigen.)"]
-       [:table
+       [:table.score-table {:border "1"}
         [:tr
          [:th "ID"] [:th "Punkte"] [:th "Nachname"] [:th "Vorname"]]
         (map
@@ -104,7 +104,10 @@
                  student]
              [:tr
               [:td (str id)]
-              [:td (str score)]
+              [:td (map (fn [num]
+                          (html [:span {:style "min-width: 2em; display: inline-block;"} num]
+                                " "))
+                        score)]
               [:td last-name]
               [:td first-name]]))
          students)]
-- 
cgit v1.2.3