From 85edaa5a10b6a8e3f96fb685c49b95187617f086 Mon Sep 17 00:00:00 2001 From: dumpfmprod Date: Wed, 3 Mar 2010 23:39:25 -0500 Subject: Removed getclicky, add template changes --- template/about_us.st | 85 ++++++++++++++++++++++++++++++++++++++++++++++++++-- template/banner.st | 2 +- template/chat.st | 2 +- template/footer.st | 10 ++----- template/goodies.st | 5 +++- template/help.st | 67 +++++++++++++++++++++++++++++++++++++++-- template/privacy.st | 69 ++++++++++++++++++++++++++++++++++++++++-- template/profile.st | 6 ++-- template/terms.st | 67 +++++++++++++++++++++++++++++++++++++++-- 9 files changed, 291 insertions(+), 22 deletions(-) (limited to 'template') diff --git a/template/about_us.st b/template/about_us.st index b8ee9f9..e324a82 100644 --- a/template/about_us.st +++ b/template/about_us.st @@ -1,7 +1,88 @@ - About Us + + + + + + + + dump.fm $head()$ - + + $banner()$ + + + + + + + + + + + + diff --git a/template/banner.st b/template/banner.st index ff66e33..d029a2d 100755 --- a/template/banner.st +++ b/template/banner.st @@ -18,7 +18,7 @@
  • Image Search
    • $else$    -
    Register
    +
    $endif$ diff --git a/template/chat.st b/template/chat.st index 61018c5..0d453d8 100755 --- a/template/chat.st +++ b/template/chat.st @@ -53,7 +53,7 @@ $m.content$ -
    + diff --git a/template/footer.st b/template/footer.st index da7407a..f791f2b 100755 --- a/template/footer.st +++ b/template/footer.st @@ -1,15 +1,11 @@ - - - + + + + dump.fm $head()$ - + + $banner()$ + + + + + + + + + +
    + + + + + + diff --git a/template/privacy.st b/template/privacy.st index 513eca3..22d4721 100644 --- a/template/privacy.st +++ b/template/privacy.st @@ -1,7 +1,70 @@ - Privacy + + + + + + + + dump.fm $head()$ - - \ No newline at end of file + + $banner()$ + + + + + + + + + + + + + + + + + diff --git a/template/profile.st b/template/profile.st index e3f8f44..91b1b91 100755 --- a/template/profile.st +++ b/template/profile.st @@ -28,12 +28,12 @@
    + $if(dumps)$ - $if(dumps)$
    - $if(dumps)$ + $dumps:{ d | $logged_dump(dump=d)$ }$
    @@ -99,7 +99,7 @@ $if(is_home)$
    $avatar$
    - +
    $endif$ diff --git a/template/terms.st b/template/terms.st index 29a41cc..6a409b5 100644 --- a/template/terms.st +++ b/template/terms.st @@ -1,7 +1,70 @@ - Terms and Conditions + + + + + + + + dump.fm $head()$ - + + $banner()$ + + + + + + + + + +
    +
    +
    + + + + -- cgit v1.2.3-70-g09d2 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 ++++++++++++ template/directory.st | 33 +++++++++++++++++++++++++++++++++ 2 files changed, 45 insertions(+) create mode 100644 template/directory.st (limited to 'template') 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 @@ + + + dump.fm Directory + $head()$ + + + + $banner()$ +
    +
    +
    +

    DUMP STARS

    +
    + +
    + + -- cgit v1.2.3-70-g09d2