diff options
| author | Ludovic Courtes | 2005-12-06 23:25:19 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2005-12-06 23:25:19 +0000 |
| commit | 9529f21f3cd6d7b54e48cec155c39ca964023531 (patch) | |
| tree | f082e31886a75149d7c610937a668e0e73c61ddd /src/guile | |
| parent | 714296f422f9789081b8216aca0c2e4be0668efc (diff) | |
| parent | 6527e65a24da1d211f44b9f068d6f7ded77c6637 (diff) | |
| download | skribilo-9529f21f3cd6d7b54e48cec155c39ca964023531.tar.gz skribilo-9529f21f3cd6d7b54e48cec155c39ca964023531.tar.lz skribilo-9529f21f3cd6d7b54e48cec155c39ca964023531.zip | |
Merge from lcourtes@laas.fr--2005-mobile
Patches applied:
* lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2 (patch 17)
- Fixed the handling of `footnote''s `:label' by the Lout/HTML engines.
git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-20
Diffstat (limited to 'src/guile')
| -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) |