summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2008-12-13 19:35:19 +0100
committerLudovic Courtès2008-12-13 19:35:19 +0100
commit8282c1c361322f3395f7a0cb0244d362b333e344 (patch)
tree3f3605a23acaa387be321b7f51e51227623a5b24 /src
parentf67298fa097c92d0ad127f8b480e481b825b10d1 (diff)
downloadskribilo-8282c1c361322f3395f7a0cb0244d362b333e344.tar.gz
skribilo-8282c1c361322f3395f7a0cb0244d362b333e344.tar.lz
skribilo-8282c1c361322f3395f7a0cb0244d362b333e344.zip
info: Handle references to marks.
* src/guile/skribilo/engine/info.scm (ref): Handle references to marks.
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/engine/info.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm
index 8b1b049..811017b 100644
--- a/src/guile/skribilo/engine/info.scm
+++ b/src/guile/skribilo/engine/info.scm
@@ -418,6 +418,11 @@
(info-subsection-ref target e))
((subsubsection)
(info-subsubsection-ref target e))
+ ((mark)
+ ;; We can't refer directly to marks, so refer to the
+ ;; enclosing section as an approximation.
+ (let ((parent (find1-up %block? target)))
+ (info-chapter-ref parent e)))
(else
(skribe-warning/ast 1 target
"ref: don't know how to refer to target")