From 4a94c47e386e5818c2fe9f662277487da4c32ed7 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Thu, 3 Dec 2009 10:13:14 +0100
Subject: Improve the score table display some more by grouping score entries
 by exercise sheet.

---
 src/logikorr/servlet.clj | 12 ++++++++----
 war/style.css            | 11 +++++++++++
 2 files changed, 19 insertions(+), 4 deletions(-)

diff --git a/src/logikorr/servlet.clj b/src/logikorr/servlet.clj
index 00440d4..37038a9 100644
--- a/src/logikorr/servlet.clj
+++ b/src/logikorr/servlet.clj
@@ -104,10 +104,14 @@
                  student]
              [:tr
               [:td (str id)]
-              [:td (map (fn [num]
-                          (html [:span {:style "min-width: 2em; display: inline-block;"} num]
-                                " "))
-                        score)]
+              [:td (mapcat (fn [nums]
+                             (html
+                              [:span.score-group {}
+                               (map (fn [num]
+                                      (html [:span.score-entry num]
+                                            " "))
+                                    nums)]))
+                           (partition 4 4 [] score))]
               [:td last-name]
               [:td first-name]]))
          students)]
diff --git a/war/style.css b/war/style.css
index a7822e3..6830118 100644
--- a/war/style.css
+++ b/war/style.css
@@ -33,3 +33,14 @@ table.score-table {
 table.score-table td {
   padding: 5px 5px 5px 5px;
 }
+
+.score-group {
+  border: 1px solid gray;
+  padding: 2px 2px 2px 2px;
+  margin-left: 5px; margin-right: 5px;
+  background-color: #eee;
+}
+.score-entry {
+  min-width: 2em;
+  display: inline-block;
+}
-- 
cgit v1.2.3