summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtes2005-12-06 23:22:51 +0000
committerLudovic Courtes2005-12-06 23:22:51 +0000
commit6527e65a24da1d211f44b9f068d6f7ded77c6637 (patch)
treef082e31886a75149d7c610937a668e0e73c61ddd /src
parent42e397a7d41c5e71e783e0033b5171b933595588 (diff)
downloadskribilo-6527e65a24da1d211f44b9f068d6f7ded77c6637.tar.gz
skribilo-6527e65a24da1d211f44b9f068d6f7ded77c6637.tar.lz
skribilo-6527e65a24da1d211f44b9f068d6f7ded77c6637.zip
Fixed the handling of `footnote''s `:label' by the Lout/HTML engines.
* src/guile/skribilo/engine/lout.scm (footnote): Take the `:label' option into account. * src/guile/skribilo/engine/html.scm (footnote): Likewise. git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-17
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/engine/html.scm4
-rw-r--r--src/guile/skribilo/engine/lout.scm6
2 files changed, 5 insertions, 5 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index b5c7a55..a376713 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -1422,11 +1422,11 @@
;* footnote ... */
;*---------------------------------------------------------------------*/
(markup-writer 'footnote
- :options '(:number)
+ :options '(:label)
:action (lambda (n e)
(printf "<a href=\"#footnote-~a\"><sup><small>~a</small></sup></a>"
(string-canonicalize (container-ident n))
- (markup-option n :number))))
+ (markup-option n :label))))
;*---------------------------------------------------------------------*/
;* linebreak ... */
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index 1ae5cd0..72a8338 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -1500,12 +1500,12 @@
(markup-writer 'footnote
:options '(:label)
:before (lambda (n e)
- (let ((number (markup-option n :number))
+ (let ((label (markup-option n :label))
(use-number?
(engine-custom e 'use-skribe-footnote-numbers?)))
- (if use-number?
+ (if (or (and (number? label) use-number?) label)
(printf "{ @FootNote @Label { ~a } { "
- (if number number ""))
+ (if label label ""))
(printf "{ @FootNote ~a{ "
(if (not number) "@Label { } " "")))))
:after (lambda (n e)