diff options
| author | Ludovic Courtès | 2008-01-25 17:58:39 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-01-25 17:58:39 +0100 |
| commit | 3b8ba6cad9f4207a84defdf2fc3f2ddf7b52f37c (patch) | |
| tree | d7639d9cb0ed9891bac411e3b6de14f872b84450 /src/guile | |
| parent | d03f6035db530f673f090921562a6dfd052533b3 (diff) | |
| download | skribilo-3b8ba6cad9f4207a84defdf2fc3f2ddf7b52f37c.tar.gz skribilo-3b8ba6cad9f4207a84defdf2fc3f2ddf7b52f37c.tar.lz skribilo-3b8ba6cad9f4207a84defdf2fc3f2ddf7b52f37c.zip | |
lout: Rename `use-skribe-footnote-numbers?' custom.
* src/guile/skribilo/engine/lout.scm
(lout-engine)[use-skribe-footnote-numbers?]: Rename to
`use-lout-footnote-numbers?', which is the opposite.
(footnote): Update.
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index 49365ca..364a0bd 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -1,7 +1,6 @@ ;;; lout.scm -- A Lout engine. ;;; -;;; Copyright 2004, 2005, 2006, 2007 -;;; Ludovic Courtès <ludovic.courtes@laas.fr> +;;; Copyright 2004, 2005, 2006, 2007, 2008 Ludovic Courtès <ludo@gnu.org> ;;; ;;; ;;; This program is free software; you can redistribute it and/or modify @@ -656,10 +655,10 @@ ;; this looks kind of buggy. (use-header-rows? #f) - ;; Tells whether to use Skribe's footnote - ;; numbers or Lout's numbering scheme (the - ;; latter may be better, typography-wise). - (use-skribe-footnote-numbers? #t) + ;; Tells whether to use Lout's footnote numbering + ;; scheme or Skribilo's number (the former may be + ;; better, typography-wise). + (use-lout-footnote-numbers? #f) ;; A procedure that is passed the engine ;; and returns Lout definitions (a string). @@ -1651,7 +1650,7 @@ :before (lambda (n e) (let ((label (markup-option n :label)) (use-number? - (engine-custom e 'use-skribe-footnote-numbers?))) + (not (engine-custom e 'use-lout-footnote-numbers?)))) (if (or (and (number? label) use-number?) label) (format #t "{ @FootNote @Label { ~a } { " (if label label "")) |