diff options
| author | Ludovic Courtès | 2010-08-15 19:19:25 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2010-08-15 19:19:25 +0200 |
| commit | 9280d163461d618a09d68dda47bb7310671c882d (patch) | |
| tree | c478463235f232f1c8c17cd5257c787a982b20df | |
| parent | 137d07d3edd33da1881ffc9db65fa9e4f378148f (diff) | |
| download | skribilo-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.scm | 9 |
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. |