diff options
author | Ludovic Courtès | 2012-05-29 23:25:31 +0200 |
---|---|---|
committer | Ludovic Courtès | 2012-05-29 23:25:31 +0200 |
commit | 979fc843a85ef8445c11cadc7d093184090f30c7 (patch) | |
tree | 5e1fb4906e14a0b8fc0885c51d1d91994577885f | |
parent | 5c3f0c1e0fe9869028d2763e30a9629fe9d3802b (diff) | |
download | skribilo-979fc843a85ef8445c11cadc7d093184090f30c7.tar.gz skribilo-979fc843a85ef8445c11cadc7d093184090f30c7.tar.lz skribilo-979fc843a85ef8445c11cadc7d093184090f30c7.zip |
lout: lout-illustration: Emit the result of `inline-definitions-proc'.
* src/guile/skribilo/engine/lout.scm (lout-illustration): Emit the
output of `inline-definitions-proc'.
-rw-r--r-- | src/guile/skribilo/engine/lout.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index 95cbc4b..1a3467c 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -2899,6 +2899,7 @@ (let ((lout (find-engine 'lout))) (string-append "@SysInclude { picture }\n" (engine-custom lout 'includes) + ((engine-custom lout 'inline-definitions-proc) lout) "\n\n@Illustration\n" " @InitialFont { " (engine-custom lout 'initial-font) |