#lang scheme/base
(require (planet "leftparen.scm" ("vegashacker" "leftparen.plt" 5 (= 0)))
"app.scm"
"view.ss"
"data.ss"
"admin.ss")
(define-session-page (index-page req sesh)
#:blank #t
(index-page-view sesh))
;; This supports slugified urls.
;; We take the parameter, and throw away everything after the
;; letters and the numbers at the start. So now we are free to
;; construct slugified urls elsewhere in the product.
(define-session-page (feature-detail-page req sesh feat-id-and-slug)
#:blank #t
(let ((feat-id (car (regexp-match #px"[a-z0-9]*" feat-id-and-slug))))
(only-rec-of-type feat-id feature-request (f)
(feature-detail-page-view sesh f))))
(define-session-page (popular-page req sesh)
#:blank #t
(gen-show-list-view "popular" sesh))
(define-session-page (newest-page req sesh)
#:blank #t
(gen-show-list-view "newest" sesh))
(define-session-page (completed-page req sesh)
#:blank #t
(gen-show-list-view "completed" sesh))
(define-session-page (signin-page req sesh)
(welcome-message sesh #:no-register #t))
(define-admin-session-page (adminified-index-page req sesh page-type-str)
#:blank #t
(admin-mode (gen-show-list-view page-type-str sesh)))
(define-session-page (tag-page req sesh tag)
#:blank #t
(gen-tag-page sesh tag))
(define-session-page (tag-page-no-tags req sesh)
#:blank #t
(gen-tag-page sesh #f))
;; caches
(define-type-cache feature-request)
