vegashacker / lawnelephant
watch download tarball
public
Forks2Right
Watchers11Right
Description: the web app about nothing.
Homepage: http://lawnelephant.com
Clone URL: git://github.com/vegashacker/lawnelephant.git
lawnelephant / main.scm
100644 40 lines (29 sloc) 1.008 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

#lang scheme/base
 
(require (planet "leftparen.scm" ("vegashacker" "leftparen.plt" 4 (= 1)))
         "app.scm"
         "view.ss"
         "data.ss"
         "admin.ss")
 
(define-session-page (index-page req sesh)
  #:blank #t
  (index-page-view sesh))
 
(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 (feature-detail-page req sesh feat-id)
  #:blank #t
  (only-rec-of-type feat-id feature-request (f)
                    (feature-detail-page-view sesh f)))
 
(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)))
 
;; caches
 
(define-type-cache feature-request)