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.1