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 ++++++---
 war/style.css            | 8 ++++++++
 2 files changed, 14 insertions(+), 3 deletions(-)

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)]
diff --git a/war/style.css b/war/style.css
index 95c4c5e..a7822e3 100644
--- a/war/style.css
+++ b/war/style.css
@@ -25,3 +25,11 @@ div.autocomplete ul li {
   height:32px;
   cursor:pointer;
 }
+
+table.score-table {
+  border-collapse: collapse;
+  border-spacing: 0;
+}
+table.score-table td {
+  padding: 5px 5px 5px 5px;
+}
-- 
cgit v1.2.3