aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Court`es2006-10-16 14:55:25 +0000
committerLudovic Court`es2006-10-16 14:55:25 +0000
commit7639d83aaa159c6b34d8b3c4a06d0634679ab9f1 (patch)
tree8d52ffb01ca2344b7a1497c6937ba31084612be0 /src
parentadf1188cc0997265df8b2ab4447852355a2a10d8 (diff)
downloadskribilo-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')
-rw-r--r--src/guile/skribilo/engine/lout.scm6
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"))