summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2006-10-25 08:55:24 +0000
committerLudovic Court`es2006-10-25 08:55:24 +0000
commit85ce5551bc2af12450d10527f925181bd048e6bc (patch)
tree01bee46a6052a7e9a6e771d8d3707dfab87f952c /src/guile
parent9fa09dca79ef41ff3e713203b6abde1d32b45723 (diff)
downloadskribilo-85ce5551bc2af12450d10527f925181bd048e6bc.tar.gz
skribilo-85ce5551bc2af12450d10527f925181bd048e6bc.tar.lz
skribilo-85ce5551bc2af12450d10527f925181bd048e6bc.zip
Lout engine: Added a `lout-program-arguments' custom.
* src/guile/skribilo/engine/lout.scm (lout-engine)[lout-program-arguments]: New custom. (lout-illustration): Honor it. git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-68
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine/lout.scm16
1 files changed, 11 insertions, 5 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index d40f36a..9b25f30 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -657,6 +657,10 @@
;; `lout-illustration' on other back-ends.
(lout-program-name "lout")
+ ;; Additional arguments that should be passed to
+ ;; Lout, e.g., `("-I foo" "-I bar")'.
+ (lout-program-arguments '())
+
;; Title and author information in the PDF
;; document information. If `#t', the
;; document's `:title' and `:author' are used.
@@ -2872,11 +2876,13 @@
(gensym 'lout-illustration)))
".eps"))
(port (open-output-pipe
- (string-append (or (engine-custom lout
- 'lout-program-name)
- "lout")
- " -o " output
- " -EPS"))))
+ (apply string-append
+ (or (engine-custom lout 'lout-program-name)
+ "lout")
+ " -o " output
+ " -EPS "
+ (engine-custom lout
+ 'lout-program-arguments)))))
;; send the illustration to Lout's standard input
(display (illustration-header) port)