Created lists page and moved leaders to /leaders

nicholasbs · May 2, 2012 · 8799673 · 8799673
1 parent 9701c33
commit 8799673
Show file tree

Hide file tree

Showing 2 changed files with 27 additions and 7 deletions.
diff --git a/resources/public/css/style.css b/resources/public/css/style.css
@@ -328,6 +328,20 @@ ol.userList {
   content: ' | ';
 }
 
+.listLink {
+  font-size: 10pt;
+  color: #828282;
+}
+
+.listLink a {
+  width: 110px;
+  display: inline-block;
+}
+
+.listLink:first-child {
+  margin-top: 10px;
+}
+
 footer {
   border-top: 2px solid #00e837;;
   background-color: #f6f6ef;

diff --git a/src/hsnews/views/user.clj b/src/hsnews/views/user.clj
@@ -34,13 +34,6 @@
               (password-field {:placeholder "Password"} :password)
               (vali/on-error :password common/error-text)]])
 
-(defpartial user-item [{:keys [hs_id] :as user}]
-            [:li (common/user-link hs_id)])
-
-(defpartial list-users [users]
-            [:ol.userList
-             (map user-item users)])
-
 (defpage "/login" {:as user}
          (common/layout
           [:h2 "Log in"]
@@ -104,7 +97,20 @@
            [:h2 "Submissions"]
             (common/post-list (users/get-posts hs_id))))
 
+(defpartial user-item [{:keys [hs_id] :as user}]
+            [:li (common/user-link hs_id)])
+
+(defpartial list-users [users]
+            [:ol.userList
+             (map user-item users)])
+
 (defpage "/lists" {}
+         (common/layout
+           [:div {:class "listLink"}
+            (link-to "/leaders" "leaders")
+            [:span "Users with most karma."]]))
+
+(defpage "/leaders" {}
          (common/layout
            [:h2 "Top Users"]
             (list-users (users/get-top-users))))