diff options
| author | Case Duckworth | 2023-05-31 17:24:20 -0500 |
|---|---|---|
| committer | Case Duckworth | 2023-05-31 17:24:20 -0500 |
| commit | bb5353bc43d27008b3a1efd73b6fc0fce80a071b (patch) | |
| tree | 12d2ffc2ae9bc74379385b88374d244615b7446f /yolk.attrs.ss | |
| parent | Delete spurious file (diff) | |
| download | yolk-bb5353bc43d27008b3a1efd73b6fc0fce80a071b.tar.gz yolk-bb5353bc43d27008b3a1efd73b6fc0fce80a071b.zip | |
Add (with-attrs)
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))) | ||