diff options
| author | Case Duckworth | 2024-06-18 12:42:48 -0500 |
|---|---|---|
| committer | Case Duckworth | 2024-06-18 12:42:48 -0500 |
| commit | c30f5e0472f2463f475e6e4d4cf80341ab1e0e62 (patch) | |
| tree | 5f74b174140c7ca9556d597c72166040fc2c0203 /lib/html.scm | |
| parent | Implement verbatim piping (diff) | |
| download | jimmy-c30f5e0472f2463f475e6e4d4cf80341ab1e0e62.tar.gz jimmy-c30f5e0472f2463f475e6e4d4cf80341ab1e0e62.zip | |
Fix verbatim processing fully
No more special-casing on the surface of the code; that is, the filter expects a list of strings and outputs a single string, etc.
Diffstat (limited to 'lib/html.scm')
| -rw-r--r-- | lib/html.scm | 4 |
1 files changed, 3 insertions, 1 deletions
| diff --git a/lib/html.scm b/lib/html.scm index 6c16dd0..6780aea 100644 --- a/lib/html.scm +++ b/lib/html.scm | |||
| @@ -48,7 +48,9 @@ | |||
| 48 | (stanza . "<h3>~a</h3>~%")))) | 48 | (stanza . "<h3>~a</h3>~%")))) |
| 49 | 49 | ||
| 50 | (set-filters! | 50 | (set-filters! |
| 51 | `((verb (stanza . ,(o ensure-newline (cut string-join <> "\n")))) | 51 | `((verb (stanza . ,(o ensure-newline |
| 52 | escape-entities | ||
| 53 | (cut string-join <> "\n")))) | ||
| 52 | (link (line . ,(lambda (ln) | 54 | (link (line . ,(lambda (ln) |
| 53 | (cons (car ln) | 55 | (cons (car ln) |
| 54 | ((o list | 56 | ((o list |