summaryrefslogtreecommitdiff
path: root/src/guile/skribilo.scm
diff options
context:
space:
mode:
authorLudovic Courtes2006-01-18 23:24:41 +0000
committerLudovic Courtes2006-01-18 23:24:41 +0000
commiteefcf2eac6f4df4f0576ffbbccb280df17d463e4 (patch)
tree49d12a11c44138755cb93fbfbf11a436128828f0 /src/guile/skribilo.scm
parent5a6d3f06176735d654b5db8d396b3b043bfca3c8 (diff)
parent8bdcb386f3ce26a9031ca123b4d43af0b5a3721a (diff)
downloadskribilo-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.scm6
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)))