summaryrefslogtreecommitdiff
path: root/src/guile/skribilo.scm
diff options
context:
space:
mode:
authorLudovic Courtès2008-04-08 00:19:04 +0200
committerLudovic Courtès2008-04-08 00:19:04 +0200
commit71d6a8faee86dceb26c2784de98930fd9976ca2c (patch)
tree7d8985b4bfdb386615f6309ee8cfa23fd4e7539a /src/guile/skribilo.scm
parent9745ff5744d97fa66b42587e6a304d3bdf8054ab (diff)
downloadskribilo-71d6a8faee86dceb26c2784de98930fd9976ca2c.tar.gz
skribilo-71d6a8faee86dceb26c2784de98930fd9976ca2c.tar.lz
skribilo-71d6a8faee86dceb26c2784de98930fd9976ca2c.zip
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.
Diffstat (limited to 'src/guile/skribilo.scm')
-rw-r--r--src/guile/skribilo.scm6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm
index 44e57e4..d69ae32 100644
--- a/src/guile/skribilo.scm
+++ b/src/guile/skribilo.scm
@@ -74,6 +74,7 @@ specified reader syntax, and produce its output using the specified engine.
-B, --bib-path=DIR Prepend DIR to the bibliography include path.
-S, --source-path=DIR Prepend DIR to the source include path.
-P, --image-path=DIR Prepend DIR to the image include path.
+ -U, --sui-path=DIR Prepend DIR to the Skribe URL Index (SUI) search path.
-b, --base=BASE Strip BASE from all hyperlinks (`html' engine).
-e, --eval=EXPR Prepend EXPR to the list of expressions to be
@@ -182,6 +183,8 @@ Report bugs to <~a>.~%"
(make-path-processor :source-path))
(option '(#\P "image-path") #t #f
(make-path-processor :image-path))
+ (option '(#\U "sui-path") #t #f
+ (make-path-processor :sui-path))
(option '(#\b "base") #t #f
(lambda (opt name arg result)
@@ -238,6 +241,7 @@ Report bugs to <~a>.~%"
(:bib-path ".")
(:source-path ".")
(:image-path ".")
+ (:sui-path ".")
(:watched-symbols)))
(define (parse-args args)
@@ -278,6 +282,7 @@ options."
(bib-path (assoc-ref options :bib-path))
(source-path (assoc-ref options :source-path))
(image-path (assoc-ref options :image-path))
+ (sui-path (assoc-ref options :sui-path))
(compat (assoc-ref options :compat))
(preloads (assoc-ref options :preloads))
;;(variants '()) ;; FIXME: Implement
@@ -301,6 +306,7 @@ options."
(*bib-path* bib-path)
(*source-path* source-path)
(*image-path* image-path)
+ (*sui-path* sui-path)
(*debug* debugging-level)
(*debug-use-colors?* color?)
(*watched-symbols* watched-symbols)