diff options
| -rw-r--r-- | src/logikorr/servlet.clj | 9 | ||||
| -rw-r--r-- | war/style.css | 8 |
2 files changed, 14 insertions, 3 deletions
diff --git a/src/logikorr/servlet.clj b/src/logikorr/servlet.clj index 3178cec..00440d4 100644 --- a/src/logikorr/servlet.clj +++ b/src/logikorr/servlet.clj @@ -38,7 +38,7 @@ entity)) entity-maps)))) -(def *static-directory* "/Users/mulk/Dropbox/Projekte/LogiCLJ/war") +(def *static-directory* "/Users/mulk/Dropbox/Projekte/Logikorr/war") (defn current-revision [] (or (first (ds/find-all (doto (Query. "revision") @@ -94,7 +94,7 @@ [:table#ergebnisse] [:h2 "Bestehende Ergebnisse"] [:a {:href "/logik.txt"} "(Als Text anzeigen.)"] - [:table + [:table.score-table {:border "1"} [:tr [:th "ID"] [:th "Punkte"] [:th "Nachname"] [:th "Vorname"]] (map @@ -104,7 +104,10 @@ student] [:tr [:td (str id)] - [:td (str score)] + [:td (map (fn [num] + (html [:span {:style "min-width: 2em; display: inline-block;"} num] + " ")) + score)] [:td last-name] [:td first-name]])) students)] diff --git a/war/style.css b/war/style.css index 95c4c5e..a7822e3 100644 --- a/war/style.css +++ b/war/style.css @@ -25,3 +25,11 @@ div.autocomplete ul li { height:32px; cursor:pointer; } + +table.score-table { + border-collapse: collapse; + border-spacing: 0; +} +table.score-table td { + padding: 5px 5px 5px 5px; +} |