summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2009-12-03 11:17:21 +0100
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2009-12-03 11:17:21 +0100
commite970bab84c06bce5cf60135ebbfd6d841b57bf04 (patch)
tree385409dadce3abefaa9d6220f13415791d522885 /src
parentcf962e0096db28157b014b983037d3e2c99b2d63 (diff)
Clean the HTML generation code up.
Diffstat (limited to 'src')
-rw-r--r--src/logikorr/servlet.clj13
1 files 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]]))