From 6d26cb3bf2fed44e1fd1c2b245c434851eb5c538 Mon Sep 17 00:00:00 2001 From: sostler Date: Thu, 4 Mar 2010 08:36:14 -0500 Subject: The beginnings of a directory --- src/site.clj | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'src') 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)) -- cgit v1.2.3-70-g09d2