aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2009-05-25 12:47:24 +0200
committerLudovic Courtès2009-05-25 12:47:47 +0200
commita8a3c031c40a95c387893a2be9606df3c50f09d6 (patch)
tree1773760f23fa084b94a07e1dc28343c6c071f7e3 /src
parentf37487368372c5ab6207e756b4b4ae89c6d145c3 (diff)
downloadskribilo-a8a3c031c40a95c387893a2be9606df3c50f09d6.tar.gz
skribilo-a8a3c031c40a95c387893a2be9606df3c50f09d6.tar.lz
skribilo-a8a3c031c40a95c387893a2be9606df3c50f09d6.zip
html: Fix confusion around `unspecified?'.
* src/guile/skribilo/engine/html.scm (unspecified?): New procedure. This fixes the choice of a default title-number separator for chapters in `&html-generic-subdocument', as reported by James Haggerty <james.haggerty@gmail.com>.
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/engine/html.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index 4a9f99f..42f18b2 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -58,6 +58,14 @@
(if (not (engine? base-engine))
(error "bootstrap problem: base engine broken" base-engine))
+(define unspecified?
+ ;; XXX: Hack to recognize the unspecified value as understood by
+ ;; `engine-custom' et al.
+ (let ((really-unspecified? unspecified?))
+ (lambda (x)
+ (or (really-unspecified? x)
+ (eq? x 'unspecified)))))
+
;*---------------------------------------------------------------------*/
;* html-file-default ... */
;*---------------------------------------------------------------------*/