Allow for a user named 'anonymous' to live amongst the named people a…

…nd lead a relatively normal life.
gigasquid · Jan 4, 2012 · 30d7df8 · 30d7df8
1 parent 79e1fad
commit 30d7df8
Showing 1 changed file with 11 additions and 13 deletions.
diff --git a/src/refheap/views/paste.clj b/src/refheap/views/paste.clj
@@ -62,20 +62,18 @@
 
 (defn pastes [ps]
   (for [{:keys [paste-id summary date user]} ps]
-    (let [user (if user
-                 (:username (users/get-user-by-id user))
-                 "anonymous")]
-      (list
-       [:span.header
-        (ph/link-to (str "/paste/" paste-id) paste-id)
-        " pasted by "
-        (if (= user "anonymous")
-          user
+    (list
+     [:span.header
+      (ph/link-to (str "/paste/" paste-id) paste-id)
+      " pasted by "
+      (if user
+        (let [user (:username (users/get-user-by-id user))]
           (ph/link-to (str "/users/" user) user))
-        " on "
-        (date-string date)]
-       [:div.syntax summary]
-       [:br]))))
+        "anonymous")
+      " on "
+      (date-string date)]
+     [:div.syntax summary]
+     [:br])))
 
 (defn all-pastes-page [page]
   (let [paste-count (paste/count-pastes)]