Overview
Comment:Added s:nbsp and fixed fieldset
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 754bf4430ed3667bae4b97ec427c5e727859f512
User & Date: matt on 2011-05-29 08:56:30
Other Links: manifest | tags
Context
2011-06-04
04:14
Added a comment about the (begin ... ) issue that always bites me check-in: 8b22cd0ba6 user: matt tags: trunk
2011-05-29
08:56
Added s:nbsp and fixed fieldset check-in: 754bf4430e user: matt tags: trunk
2011-05-24
02:44
checking in minor output clean up check-in: 00c7439634 user: matt tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified stml.scm from [45b8dbe71c] to [790f2122c1].

︙︙
108
109
110
111
112
113
114
115






116
117
118
119
120
121
122

  (let* ((inputs (s:extract args))
         (data   (car inputs))
         (params (s:process-params (cadr inputs))))
    (list data)))

;; puts a nice box around a chunk of stuff
(define (s:fieldset legend . args)
  (list "<FIELDSET><LEGEND>" legend "<LEGEND>" args "</FIELDSET>"))







;; USE 'page_override to override a linkto page from a button
(define (s:form   . args)
  ;; create a link for calling back into the current page and calling a specified 
  ;; function
  (let* ((action     (let ((v (s:find-param 'action args)))
                       (if v v "default")))








|
>
>
>
>
>
>








108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128

  (let* ((inputs (s:extract args))
         (data   (car inputs))
         (params (s:process-params (cadr inputs))))
    (list data)))

;; puts a nice box around a chunk of stuff
(define (s:fieldset legend . args)
  (list "<FIELDSET><LEGEND>" legend "</LEGEND>" args "</FIELDSET>"))

;; given a string return the string if it is non-white space or &nbsp; otherwise
(define (s:nbsp str)
  (if (string-match "^\\s*$" str)
      "&nbsp;"
      str))

;; USE 'page_override to override a linkto page from a button
(define (s:form   . args)
  ;; create a link for calling back into the current page and calling a specified 
  ;; function
  (let* ((action     (let ((v (s:find-param 'action args)))
                       (if v v "default")))
︙︙