diff options
| author | Ludovic Courtes | 2006-01-18 23:24:41 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2006-01-18 23:24:41 +0000 |
| commit | eefcf2eac6f4df4f0576ffbbccb280df17d463e4 (patch) | |
| tree | 49d12a11c44138755cb93fbfbf11a436128828f0 /src/guile/skribilo.scm | |
| parent | 5a6d3f06176735d654b5db8d396b3b043bfca3c8 (diff) | |
| parent | 8bdcb386f3ce26a9031ca123b4d43af0b5a3721a (diff) | |
| download | skribilo-eefcf2eac6f4df4f0576ffbbccb280df17d463e4.tar.gz skribilo-eefcf2eac6f4df4f0576ffbbccb280df17d463e4.tar.lz skribilo-eefcf2eac6f4df4f0576ffbbccb280df17d463e4.zip | |
Merge from lcourtes@laas.fr--2005-mobile
Patches applied:
* lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2 (patch 27-28)
- Merge from lcourtes@laas.fr--2004-libre
- More fixes in the hope to get the manual compiled.
git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-31
Diffstat (limited to 'src/guile/skribilo.scm')
| -rw-r--r-- | src/guile/skribilo.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm index b9805b3..43885ee 100644 --- a/src/guile/skribilo.scm +++ b/src/guile/skribilo.scm @@ -87,7 +87,7 @@ specifications." (set! paths (cons path paths))) (("bib-path" :alternate "B" :arg path :help "adds <path> to bibliography path") (skribe-bib-path-set! (cons path (skribe-bib-path)))) - (("S" :arg path :help "adds <path> to source path") + (("source-path" :alternate "S" :arg path :help "adds <path> to source path") (skribe-source-path-set! (cons path (skribe-source-path)))) (("P" :arg path :help "adds <path> to image path") (skribe-image-path-set! (cons path (skribe-image-path)))) @@ -388,6 +388,7 @@ Processes a Skribilo/Skribe source file and produces its output. (warning-level (option-ref options 'warning "2")) (load-path (option-ref options 'load-path ".")) (bib-path (option-ref options 'bib-path ".")) + (source-path (option-ref options 'source-path ".")) (preload '()) (variants '()) @@ -414,6 +415,9 @@ Processes a Skribilo/Skribe source file and produces its output. (parameterize ((*current-engine* engine) (*document-path* (cons load-path (*document-path*))) (*bib-path* (cons bib-path (*bib-path*))) + (*source-path* (cons source-path + (append %load-path + (*source-path*)))) (*warning* (string->number warning-level)) (*verbose* (let ((v (option-ref options 'verbose 0))) |