diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/logikorr/servlet.clj | 12 |
1 files changed, 8 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)] |