diff options
| author | Jakob L. Kreuze | 2022-02-13 16:55:04 -0500 |
|---|---|---|
| committer | Jakob L. Kreuze | 2022-02-21 14:30:55 -0500 |
| commit | 3de1fc65168f948ff088594fac4ae5fd3ac1ab66 (patch) | |
| tree | 5a3e252005fb18d5637d7e1f4c206aca071fddcb /haunt/jakob | |
| parent | 3d23420555de13ca808151cd452dd6a0e3409283 (diff) | |
Add front-matter for series I don't intend to finish
Diffstat (limited to 'haunt/jakob')
| -rw-r--r-- | haunt/jakob/utils.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/haunt/jakob/utils.scm b/haunt/jakob/utils.scm index 20869be..a3ad1b7 100644 --- a/haunt/jakob/utils.scm +++ b/haunt/jakob/utils.scm @@ -63,8 +63,10 @@ is of an odd length and every second element is DELIM." (result '())) (match sxml (() (remove-footnote-references (reverse result))) - ((or (('p ...) _ ...) (paragraph _ ...)) - (remove-footnote-references (reverse (cons paragraph result)))) + ((or (('p ...) tail ...) (paragraph tail ...)) + (if (and (list? paragraph) (eqv? 'header (car paragraph))) + (loop tail result) ; Ignore front-matter. + (remove-footnote-references (reverse (cons paragraph result))))) ((head . tail) (loop tail (cons head result)))))) |