bugfix: session invalidation enabled again

resources/public/style.less

@@ -101,9 +101,6 @@ html, body {
     margin: 0;
     padding: 0;
 }
-#stats tr > td:first-child {
-    text-align: right;
-}
 #hero {
     padding-top: 5em;
     padding-bottom: 5em;

src/NoteHub/storage.clj

@@ -47,11 +47,9 @@
         token)))
 
 (defn invalidate-session [token]
-  ; Jedis is buggy & returns an NPE for token == nil
+  (let [was-valid (redis/sismember db sessions token)]
-  (when token
+    (redis/srem db sessions token)
-    (let [was-valid (redis/sismember db sessions token)]
+    was-valid))
-      (do (redis/srem db sessions token)
-          was-valid))))
 
 (defn edit-note
   [noteID text]

src/NoteHub/views/pages.clj

@@ -157,7 +157,9 @@
           psk (storage/get-psk pid)]
       (if (storage/valid-publisher? pid)
         (let [resp (api/post-note note pid (api/get-signature (str pid psk note)) password)]
-          (if (get-in resp [:status :success])
+          (if (and
+               (storage/invalidate-session session)
+               (get-in resp [:status :success]))
             (redirect (:longURL resp))
             (response 400)))
         (response 500)))
@@ -179,8 +181,8 @@
 ; Here lives the API
 
 (defpage "/api" args
-  (let [title (get-message :api-title)]
+    (layout (get-message :api-title)
-    (layout title [:article.markdown (slurp "API.md")])))
+            [:article.markdown (slurp "API.md")]))
 
 (defpage [:get "/api/note"] {:keys [version noteID]}
   (generate-string (api/get-note noteID)))
@@ -189,5 +191,4 @@
   (generate-string (api/post-note note pid signature password)))
 
 (defpage [:put "/api/note"] {:keys [version noteID note pid signature password]}
-  (generate-string (api/update-note noteID note pid signature password)))
+  (generate-string (api/update-note noteID note pid signature password)))
-