Index: doc/howto.txt ================================================================== --- doc/howto.txt +++ doc/howto.txt @@ -21,14 +21,12 @@ (s:get-param 'param1 'number) => number or #f Create a link. ~~~~~~~~~~~~~~ -(s:null "[" (s:a name 'href - (s:link-to (string-append "location/" (string-intersperse p "/") ""))) "] "))) - - +(s:a name 'href + (s:link-to "pagename/blah" "")) Call current page with new param ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ In view.scm: Index: setup.scm ================================================================== --- setup.scm +++ setup.scm @@ -16,17 +16,20 @@ ;; ;; (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)