summary refs log tree commit diff
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 ...                                            */
 ;*---------------------------------------------------------------------*/