Add `--sui-path'/`-U' command-line option.

* NEWS: Update.

* src/guile/skribilo.scm (skribilo-show-help): Update.
  (%options)[-U]: New.
  (%default-options): Add `:sui-path'.
  (skribilo): Handle it.

* src/guile/skribilo/package/base.scm (ref)[skribe-ref]: Use
  `*sui-path*'.

* src/guile/skribilo/parameters.scm (*sui-path*): New.

* src/guile/skribilo/sui.scm (load-sui): Raise a `&file-search-error'
  exception if not found.

1 files changed, 8 insertions, 10 deletions

diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm
index 8462e81..fc6abca 100644
--- a/src/guile/skribilo/package/base.scm
+++ b/src/guile/skribilo/package/base.scm
@@ -30,7 +30,7 @@
   :autoload   (srfi srfi-1)        (every any filter)
   :autoload   (skribilo evaluator) (include-document)
   :autoload   (skribilo engine)    (engine?)
-  :autoload   (skribilo parameters)(*document-path*)
+  :autoload   (skribilo parameters)(*document-path* *sui-path*)
 
   ;; optional ``sub-packages''
   :autoload   (skribilo biblio)    (*bib-table* resolve-bib
@@ -1087,15 +1087,13 @@
 		   (options `((kind ,kind) ,@(the-options opts :ident :class)))
 		   (body text))))))
    (define (skribe-ref skribe)
-      (let ((path (search-path (*document-path*) skribe)))
-	 (if (not path)
-	     (unref #f skribe 'sui-file)
-	     (let* ((sui (load-sui path))
-		    (os (the-options opts :skribe :class :text))
-		    (u (sui-ref->url (dirname path) sui ident os)))
-		(if (not u)
-		    (unref #f os 'sui-ref)
-		    (ref :url u :text text :ident ident :class class))))))
+     (let* ((sui (load-sui skribe))
+            (os  (the-options opts :skribe :class :text))
+            (u   (sui-ref->url (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))))
    (define (handle-ref text)
       (new markup
 	 (markup 'ref)