diff options
| author | Ludovic Courtes | 2005-12-06 23:22:51 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2005-12-06 23:22:51 +0000 |
| commit | 6527e65a24da1d211f44b9f068d6f7ded77c6637 (patch) | |
| tree | f082e31886a75149d7c610937a668e0e73c61ddd /src | |
| parent | 42e397a7d41c5e71e783e0033b5171b933595588 (diff) | |
| download | skribilo-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.scm | 4 | ||||
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 6 |
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) |