diff options
| -rwxr-xr-x | src/site.clj | 12 | ||||
| -rw-r--r-- | template/directory.st | 33 |
2 files changed, 45 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)) diff --git a/template/directory.st b/template/directory.st new file mode 100644 index 0000000..23960f0 --- /dev/null +++ b/template/directory.st @@ -0,0 +1,33 @@ +<html> + <head> + <title>dump.fm Directory</title> + $head()$ + <style> + body { + background-attachment: fixed; + background-color: #FFE; + background-image: url(http://localhost:8080/static/chanbg.png); + background-position: 1px 10px; + background-repeat: repeat-x; + font-family: Arial, Helvetica, sans-serif; + } + #main { + position: absolute; + top: 57px; + padding: 2em; + } + </style> + </head> + <body> + $banner()$ + <div id="chatrap"> + <div id="headerbar"></div> + <div id="main"> + <h3>DUMP STARS</h3> + </div> + <div id="footer"> + $footer()$ + </div> + </div> + </body> +</html> |