From 8ead9b042f96a719cf023ceede4177ed448a04c3 Mon Sep 17 00:00:00 2001 From: Ludovic Court`es Date: Thu, 20 Sep 2007 09:39:16 +0000 Subject: slide: Tiny fix. * src/guile/skribilo/package/slide.scm (slide-embed): Provide an identifier, pass ARGUMENTS. git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-108 --- src/guile/skribilo/package/slide.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/guile/skribilo/package/slide.scm b/src/guile/skribilo/package/slide.scm index 0a3d773..2f5d8a8 100644 --- a/src/guile/skribilo/package/slide.scm +++ b/src/guile/skribilo/package/slide.scm @@ -179,9 +179,11 @@ (markup 'slide-embed) (loc &invocation-location) (required-options '(:alt)) - (options `((:geometry-opt ,geometry-opt) + (ident (symbol->string (gensym "slide-embed"))) + (options `((:arguments ,arguments) + (:geometry-opt ,geometry-opt) (:alt ,alt) - ,@(the-options opt :geometry-opt :alt))) + ,@(the-options opt :arguments :geometry-opt :alt))) (body (the-body opt))))) ;*---------------------------------------------------------------------*/ -- cgit v1.2.3