Overview
Comment:Minor cleanup of example in howto.txt and changed s:local-set to s:lset
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: fd0492638e73121cf71e520336a1788df606899b
User & Date: matt on 2017-03-07 20:36:16
Other Links: manifest | tags
Context
2017-03-11
12:03
Added s:get-inp which does s:get-input falling back to s:get-param if no input var exists check-in: 962faddbed user: matt tags: trunk
2017-03-07
20:36
Minor cleanup of example in howto.txt and changed s:local-set to s:lset check-in: fd0492638e user: matt tags: trunk
2017-03-03
13:37
Merged in some forgotten changes check-in: 88e690f242 user: matt tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified doc/howto.txt from [9c23d6441d] to [a914119ee4].

︙
19
20
21
22
23
24
25
26

27
28

29
30
31
32
33
34
35
36

19
20
21
22
23
24
25

26


27

28
29
30
31
32
33
34








-
+
-
-
+
-









(s:get-param 'param1) => "value1"
(s:get-param 'param1 'number) => number or #f 

Create a link.
~~~~~~~~~~~~~~

(s:null "[" (s:a name 'href 
(s:a name 'href 
               (s:link-to (string-append "location/" (string-intersperse p "/") ""))) "] ")))

    (s:link-to "pagename/blah" ""))


Call current page with new param
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

In view.scm:

 (s:center "[" (s:a 'href (s:link-to "polls"
︙

Modified setup.scm from [f8cd7b3789] to [f14081cc23].

︙
14
15
16
17
18
19
20
21

22
23
24

25
26
27






28
29
30
31
32
33
34

14
15
16
17
18
19
20

21
22


23
24


25
26
27
28
29
30
31
32
33
34
35
36
37








-
+

-
-
+

-
-
+
+
+
+
+
+









;; macros in sugar don't work, have to load in all files or use compiled mode?
;;
;; (include "sugar.scm")

;; use this for getting data from page to page when scope and evals
;; get in the way
(define s:local-vars (make-hash-table))
;; save data for use in the page generation here. Does NOT persist across page reads.

(define (s:local-set! k v)
  (hash-table-set! s:local-vars k v))
(define *page-data* (make-hash-table))

(define (s:local-get k)
  (hash-table-ref/default s:local-vars k #f))
(define (s:lset! var val)
  (hash-table-set! *page-data* var val))
(define (s:lget var . default)
  (hash-table-ref/default *page-data* var (if (null? default)
					      #f
					      (car default))))

(define (s:log . msg)
  (apply session:log s:session msg))

(define (s:set-err . args)
  (sdat-set-curr-err! s:session args))
︙