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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
Gotchas!
=======
1. All items for a page *must* be part of a list!
==================
======================================================================
1. Create a link.
======================================================================
2. Call current page with new param
======================================================================
3. Call an action on a specific page
======================================================================
4. A complex link example
======================================================================
5. Get and set a session var
======================================================================
6. make a selection drop down
======================================================================
7. Simple error reporting
======================================================================
8. Misc useful stuff
======================================================================
9. Forms and input
======================================================================
10.
|
|
>
>
|
>
>
|
>
>
>
|
>
|
>
|
>
|
|
>
|
|
>
|
|
>
|
|
>
|
|
>
|
>
>
>
>
>
>
>
>
>
>
>
>
>
|
>
|
|
>
<
<
<
|
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
Gotchas!
=======
All items for a page *must* be part of a list!
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
OK: (list (function1 param1)(function2 param2))
NOT OK: (begin (function1 param1)(function2 param2))
Various components
~~~~~~~~~~~~~~~~~~
The URL:
http://the.domain.com/pagename/p1/p2/p3?param1=value1
(s:get-page-params) => '("p1" "p2")
Create a link.
~~~~~~~~~~~~~~
(s:null "[" (s:a name 'href
(s:link-to (string-append "location/" (string-intersperse p "/") ""))) "] ")))
Call current page with new param
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
In view.scm:
(s:center "[" (s:a 'href (s:link-to "polls"
'id
(begin
(poll:poll 'fill-polls)
(poll:poll 'get-next-poll)))
"Go to the next poll") "]")
In control.scm:
(let ((poll-id (s:get-param 'id)))
;; do stuff based on poll-id
Call an action on a specific page
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
(s:a 'href (s:link-to "polls" 'id (poll:poll 'get 'id)
'action "poll.edit")
"Suggest changes to this poll")
NOT TRUE! This calls fuction poll.edit (should be in control.scm). Parameter set is 'id to a poll num.
A complex link example
~~~~~~~~~~~~~~~~~~~~~~
(s:a "Reply" 'href (s:link-to (s:current-page)
'action "discussion.reply" ;; <page>.<action>
'reply_to (number->string (hash-table-ref row 'posts.id))
'id (s:get "discussion.parent_object_id")) "reply")
;; use (s:get-param to get the 'id, or 'reply_to values
Get and set a session var
~~~~~~~~~~~~~~~~~~~~~~~~~
(s:session-var-get "keyname")
(s:session-var-set! "keyname" "value")
5.1 Page local vars
(s:set! key val)
(s:get key)
make a selection drop down
~~~~~~~~~~~~~~~~~~~~~~~~~~
In view.scm:
(s:select '(("World" 0)("Country" 1)("State" 2)("Town/City" 3)) 'name 'scope)
In control.scm:
(let ((scope (s:get-input 'scope)))
....
Simple error reporting
~~~~~~~~~~~~~~~~~~~~~~
In control.scm:
(s:set-err "You must provide an email address")
In view.scm:
(s:get-err s:err-font)
Or:
(s:get-err (lambda (x)(s:err-font x (s:br))))
Sharing data between pages
~~~~~~~~~~~~~~~~~~~~~~~~~~
NOTE: This data is *not* preserved between cgi calls.
;; In first page called
(s:shared-set! "somekey" somevalue)
;; In a page called later
(let ((dat (s:shared-get "somekey")))
( .... ))
Misc useful stuff
~~~~~~~~~~~~~~~~~
i. Lazy/safe string->number
(s:any->number val)
ii. Random string
(session:make-rand-string len)
iii. string to number for pgint
(s:any->pgint val)
Forms and input
~~~~~~~~~~~~~~~
(s:form 'action "login.login" 'method "post"
(s:input-preserve 'type "text" 'name "email-address" 'size "16" 'maxlength "30")
(s:input 'type "submit" 'name "form-name" 'value "login"))
(s:get-input 'email-address)
To preserve the input simply do a set of the value on the 'name field:
(s:set! "email-address" "matt@kiatoa.com")
|