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 Side-by-Side 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

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>"))
  (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")))
︙