diff options
Diffstat (limited to 'yolk.attrs.ss')
| -rw-r--r-- | yolk.attrs.ss | 6 |
1 files changed, 6 insertions, 0 deletions
| diff --git a/yolk.attrs.ss b/yolk.attrs.ss index 6a06034..2393905 100644 --- a/yolk.attrs.ss +++ b/yolk.attrs.ss | |||
| @@ -85,3 +85,9 @@ | |||
| 85 | => (lambda (prop) | 85 | => (lambda (prop) |
| 86 | (cddr (assq prop %props-alist)))) | 86 | (cddr (assq prop %props-alist)))) |
| 87 | (else (error "Bad attribute" attr)))) | 87 | (else (error "Bad attribute" attr)))) |
| 88 | |||
| 89 | (define (with-attrs as str) | ||
| 90 | (string-append | ||
| 91 | (attrs as) | ||
| 92 | str | ||
| 93 | (attrs 'reset))) | ||