summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
Diffstat (limited to 'src/guile')
-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)