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 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'src')

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)]
-- 
cgit v1.2.3