summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/package/base.scm4
-rw-r--r--src/guile/skribilo/sui.scm25
2 files changed, 24 insertions, 5 deletions
diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm
index fc6abca..c8aac4a 100644
--- a/src/guile/skribilo/package/base.scm
+++ b/src/guile/skribilo/package/base.scm
@@ -1089,11 +1089,11 @@
(define (skribe-ref skribe)
(let* ((sui (load-sui skribe))
(os (the-options opts :skribe :class :text))
- (u (sui-ref->url (search-path (*sui-path*) skribe)
+ (u (sui-ref->url (dirname (search-path (*sui-path*) skribe))
sui ident os)))
(if (not u)
(unref #f os 'sui-ref)
- (ref :url u :text text :ident ident :class class))))
+ (ref :url u :text text :class class))))
(define (handle-ref text)
(new markup
(markup 'ref)
diff --git a/src/guile/skribilo/sui.scm b/src/guile/skribilo/sui.scm
index effc263..e60a324 100644
--- a/src/guile/skribilo/sui.scm
+++ b/src/guile/skribilo/sui.scm
@@ -192,7 +192,7 @@
(section (sui-search-ref 'sections refs (cadr section) class))
(subsection (sui-search-ref 'subsections refs (cadr subsection) class))
(subsubsection (sui-search-ref 'subsubsections refs (cadr subsubsection) class))
- (ident (sui-search-all-refs sui ident class))
+ (ident (sui-search-all-refs refs (cadr ident) class))
(else '())))
(else
(raise (condition (&invalid-sui-error
@@ -201,8 +201,27 @@
;*---------------------------------------------------------------------*/
;* sui-search-all-refs ... */
;*---------------------------------------------------------------------*/
-(define (sui-search-all-refs sui id refs)
- '())
+(define (sui-search-all-refs refs id class)
+ ;; Search any kind of object with ident ID among REFS.
+ (define (find-mark full-ref)
+ (let loop ((ref full-ref))
+ (and (not (null? ref))
+ (or (and (eq? (car ref) :mark)
+ (string=? (cadr ref) id)
+ (let ((f (memq :file full-ref))
+ (c (memq :mark full-ref)))
+ (list (cons (and (pair? f) (cadr f))
+ (and (pair? c) (cadr c))))))
+ (loop (cdr ref))))))
+
+ (let loop ((ref-kind refs))
+ (and (not (null? ref-kind))
+ (or (and (pair? (car ref-kind))
+ (let liip ((refs (cdar ref-kind)))
+ (and (not (null? refs))
+ (or (find-mark (car refs))
+ (liip (cdr refs))))))
+ (loop (cdr ref-kind))))))
;*---------------------------------------------------------------------*/
;* sui-search-ref ... */