aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2008-01-25 17:58:39 +0100
committerLudovic Courtès2008-01-25 17:58:39 +0100
commit3b8ba6cad9f4207a84defdf2fc3f2ddf7b52f37c (patch)
treed7639d9cb0ed9891bac411e3b6de14f872b84450 /src/guile
parentd03f6035db530f673f090921562a6dfd052533b3 (diff)
downloadskribilo-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.scm13
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 ""))