From e970bab84c06bce5cf60135ebbfd6d841b57bf04 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Thu, 3 Dec 2009 11:17:21 +0100
Subject: Clean the HTML generation code up.

---
 src/logikorr/servlet.clj | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/src/logikorr/servlet.clj b/src/logikorr/servlet.clj
index 37038a9..7235eba 100644
--- a/src/logikorr/servlet.clj
+++ b/src/logikorr/servlet.clj
@@ -104,13 +104,12 @@
                  student]
              [:tr
               [:td (str id)]
-              [:td (mapcat (fn [nums]
-                             (html
-                              [:span.score-group {}
-                               (map (fn [num]
-                                      (html [:span.score-entry num]
-                                            " "))
-                                    nums)]))
+              [:td (map (fn [nums]
+                          [:span.score-group {}
+                           (map (fn [num]
+                                  (list [:span.score-entry num]
+                                        " "))
+                                nums)])
                            (partition 4 4 [] score))]
               [:td last-name]
               [:td first-name]]))
-- 
cgit v1.2.3