diff options
| author | Ludovic Courtès | 2008-04-23 22:33:23 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2008-04-23 22:33:23 +0200 |
| commit | 5add78aba082524aee7350432f9ac0c0e983b33d (patch) | |
| tree | a52315356a45e189a0253fa853f81d3c9cc666b2 /src/guile/skribilo/package/base.scm | |
| parent | 087306a64cc34ea2b5415e3c1cd8505faedf4f14 (diff) | |
| download | skribilo-5add78aba082524aee7350432f9ac0c0e983b33d.tar.gz skribilo-5add78aba082524aee7350432f9ac0c0e983b33d.tar.lz skribilo-5add78aba082524aee7350432f9ac0c0e983b33d.zip | |
Fix SUI `:ident' references.
* src/guile/skribilo/package/base.scm (skribe-ref): Pass the result of
`dirname' as the DIR argument of `sui-ref->url'. Don't pass ":ident
ident" to `ref'.
* src/guile/skribilo/sui.scm (sui-find-ref): Fix invocation of
`sui-search-all-refs'.
(sui-search-all-refs): Actually implemented.
* NEWS: Update.
Diffstat (limited to 'src/guile/skribilo/package/base.scm')
| -rw-r--r-- | src/guile/skribilo/package/base.scm | 4 |
1 files changed, 2 insertions, 2 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) |