summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2009-12-02 20:02:53 +0100
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2009-12-02 20:02:53 +0100
commit0a3c1da70d2511d1dede37ee7d1c2ac84d0dc46e (patch)
tree82e963a058d4e023e73488d8653f96d79761c392 /src
parent49c20b038ec1563092ec6ab7b88d42919307339a (diff)
Improve score table display.
Diffstat (limited to 'src')
-rw-r--r--src/logikorr/servlet.clj9
1 files changed, 6 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)]