diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-12-03 11:17:21 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2009-12-03 11:17:21 +0100 |
| commit | e970bab84c06bce5cf60135ebbfd6d841b57bf04 (patch) | |
| tree | 385409dadce3abefaa9d6220f13415791d522885 | |
| parent | cf962e0096db28157b014b983037d3e2c99b2d63 (diff) | |
Clean the HTML generation code up.
| -rw-r--r-- | src/logikorr/servlet.clj | 13 |
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]])) |