Overview
| Comment: | Added s:script |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | stml2 |
| Files: | files | file ages | folders |
| SHA1: |
9c8b1b022a9b536f6d81308e0c0e0b97 |
| User & Date: | matt on 2018-09-16 05:56:15 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-09-17
| ||
| 14:11 | Set toppage to home check-in: 461d0e242a user: matt tags: stml2 | |
|
2018-09-16
| ||
| 05:56 | Added s:script check-in: 9c8b1b022a user: matt tags: stml2 | |
|
2018-09-13
| ||
| 14:13 | Allow either debugmode or debug-mode in config. Someday deprecate debugmode check-in: 3a34ddd1b5 user: matt tags: stml2 | |
Changes
Modified stml2.scm from [cf1b2ddad3] to [ac71b1d915].
| ︙ | ︙ | |||
198 199 200 201 202 203 204 205 206 207 208 209 210 211 |
(define (s:ol . args) (s:common-tag "OL" args))
(define (s:dl . args) (s:common-tag "DL" args))
(define (s:dt . args) (s:common-tag "DT" args))
(define (s:dd . args) (s:common-tag "DD" args))
(define (s:pre . args) (s:common-tag "PRE" args))
(define (s:span . args) (s:common-tag "SPAN" args))
(define (s:label . args) (s:common-tag "LABEL" args))
(define (s:dblquote . args)
(let* ((inputs (s:extract args))
(data (caar inputs))
(params (s:process-params (cadr inputs))))
(conc """ data """)))
| > | 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 |
(define (s:ol . args) (s:common-tag "OL" args))
(define (s:dl . args) (s:common-tag "DL" args))
(define (s:dt . args) (s:common-tag "DT" args))
(define (s:dd . args) (s:common-tag "DD" args))
(define (s:pre . args) (s:common-tag "PRE" args))
(define (s:span . args) (s:common-tag "SPAN" args))
(define (s:label . args) (s:common-tag "LABEL" args))
(define (s:script . args) (s:common-tag "SCRIPT" args))
(define (s:dblquote . args)
(let* ((inputs (s:extract args))
(data (caar inputs))
(params (s:process-params (cadr inputs))))
(conc """ data """)))
|
| ︙ | ︙ |