From 85ce5551bc2af12450d10527f925181bd048e6bc Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 25 Oct 2006 08:55:24 +0000
Subject: 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
---
 src/guile/skribilo/engine/lout.scm | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

(limited to 'src')

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)
-- 
cgit v1.2.3