diff options
| author | Ludovic Courtès | 2008-04-08 00:19:04 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2008-04-08 00:19:04 +0200 |
| commit | 71d6a8faee86dceb26c2784de98930fd9976ca2c (patch) | |
| tree | 7d8985b4bfdb386615f6309ee8cfa23fd4e7539a /src/guile/skribilo.scm | |
| parent | 9745ff5744d97fa66b42587e6a304d3bdf8054ab (diff) | |
| download | skribilo-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.scm | 6 |
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) |