summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2010-08-15 19:19:25 +0200
committerLudovic Courtès2010-08-15 19:19:25 +0200
commit9280d163461d618a09d68dda47bb7310671c882d (patch)
treec478463235f232f1c8c17cd5257c787a982b20df
parent137d07d3edd33da1881ffc9db65fa9e4f378148f (diff)
downloadskribilo-9280d163461d618a09d68dda47bb7310671c882d.tar.gz
skribilo-9280d163461d618a09d68dda47bb7310671c882d.tar.lz
skribilo-9280d163461d618a09d68dda47bb7310671c882d.zip
lout: Better support boolean and AST values for `date-line'.
* src/guile/skribilo/engine/lout.scm (document): Better support boolean and AST values for DATE-LINE.
-rw-r--r--src/guile/skribilo/engine/lout.scm9
1 files changed, 5 insertions, 4 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index 047cfa7..d692358 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -1,7 +1,7 @@
;;; lout.scm -- A Lout engine.
;;; -*- coding: iso-8859-1 -*-
;;;
-;;; Copyright 2004, 2005, 2006, 2007, 2008, 2009 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright 2004, 2005, 2006, 2007, 2008, 2009, 2010 Ludovic Courtès <ludo@gnu.org>
;;;
;;;
;;; This program is free software; you can redistribute it and/or modify
@@ -1170,9 +1170,10 @@
(if (memq doc-type '(report slides))
(let ((date-line (engine-custom e 'date-line)))
(display " @DateLine { ")
- (if (or (string? date-line) (ast? date-line))
- (output date-line e)
- (display (if date-line "Yes" "No")))
+ (case date-line
+ ((#t) (display "Yes"))
+ ((#f) (display "No"))
+ (else (output date-line e)))
(display " }\n")))
;; Output options specific to one of the document types.