diff options
| author | Ludovic Court`es | 2006-10-16 14:55:25 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-10-16 14:55:25 +0000 |
| commit | 7639d83aaa159c6b34d8b3c4a06d0634679ab9f1 (patch) | |
| tree | 8d52ffb01ca2344b7a1497c6937ba31084612be0 /src/guile | |
| parent | adf1188cc0997265df8b2ab4447852355a2a10d8 (diff) | |
| download | skribilo-7639d83aaa159c6b34d8b3c4a06d0634679ab9f1.tar.gz skribilo-7639d83aaa159c6b34d8b3c4a06d0634679ab9f1.tar.lz skribilo-7639d83aaa159c6b34d8b3c4a06d0634679ab9f1.zip | |
Lout engine: Honor `inline-definitions-proc'.
* src/guile/skribilo/engine/lout.scm (document): Invoke the procedure
defined by the `inline-definitions-proc' rather than directly invoking
`lout-definitions'.
git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-64
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index f087d55..82e98d7 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -558,7 +558,7 @@ ;; also honor this custom for `doc' documents. (cover-sheet? #t) - ;; For reports, the date line. + ;; For reports and slides, the date line. (date-line #t) ;; For reports, an abstract. @@ -604,7 +604,7 @@ (use-skribe-footnote-numbers? #t) ;; A procedure that is passed the engine - ;; and produces Lout definitions. + ;; and returns Lout definitions (a string). (inline-definitions-proc ,lout-definitions) ;; A procedure that takes a URL `ref' markup and @@ -1012,7 +1012,7 @@ (display "@SysInclude { tbl }\n")) ;; Write additional Lout definitions - (display (lout-definitions e)) + (display ((engine-custom e 'inline-definitions-proc) e)) (case doc-type ((report) (display "@Report\n")) |