From 3b8ba6cad9f4207a84defdf2fc3f2ddf7b52f37c Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 25 Jan 2008 17:58:39 +0100 Subject: 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. --- src/guile/skribilo/engine/lout.scm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'src/guile') 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 +;;; Copyright 2004, 2005, 2006, 2007, 2008 Ludovic Courtès ;;; ;;; ;;; 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 "")) -- cgit v1.2.3