The beginnings of a directory

1 files changed, 12 insertions, 0 deletions

diff --git a/src/site.clj b/src/site.clj
index 2c41946..cdfb6be 100755
--- a/src/site.clj
+++ b/src/site.clj
@@ -361,6 +361,15 @@
           :else (do (update-user-db user-id attr val)
                     (resp-success "OK")))))
 
+;; Directory
+
+(def *per-directory-page* 25)
+
+(defn directory [session offset]
+  (let [st (fetch-template "directory" session)]
+    
+    (.toString st)))
+
 ;; Topics
 
 (defn valid-topic? [topic]
@@ -651,6 +660,9 @@
   (POST "/submit-registration" (register session params))
   (POST "/update-profile" (update-profile session params))
   (POST "/set-topic" (validate-set-topic session params))
+  (GET "/directory" (directory session 0))
+  (GET "/directory/:offset"
+       (directory session (maybe-parse-int (-> request :route-params :offset) 0)))
   (GET "/about_us" (serve-template "about_us" session))
   (GET "/goodies" (serve-template "goodies" session))
   (GET "/help" (serve-template "help" session))