diff options
| author | Ludovic Court`es | 2006-10-25 15:04:26 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-10-25 15:04:26 +0000 |
| commit | 3fb6f9a17400d8365519e05a79f09c6c1322eedd (patch) | |
| tree | 01bee46a6052a7e9a6e771d8d3707dfab87f952c | |
| parent | 867c18c525470e0a298c2b839f578016be17257b (diff) | |
| download | skribilo-3fb6f9a17400d8365519e05a79f09c6c1322eedd.tar.gz skribilo-3fb6f9a17400d8365519e05a79f09c6c1322eedd.tar.lz skribilo-3fb6f9a17400d8365519e05a79f09c6c1322eedd.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: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-9
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 16 |
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) |