From 1b8ca0c62843d8879f44439614bcb0bc32fde930 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Mon, 23 Oct 2006 17:20:10 +0000
Subject: Added a `:arguments' keyword to `slide-embed'.

* src/guile/skribilo/package/slide.scm (slide-embed): Added an
  `arguments' keyword.

* doc/user/slide.skb: Updated the markup documentation.

git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-66
---
 doc/user/slide.skb                   | 3 +++
 src/guile/skribilo/package/slide.scm | 1 +
 2 files changed, 4 insertions(+)

diff --git a/doc/user/slide.skb b/doc/user/slide.skb
index 3e903ad..f937a75 100644
--- a/doc/user/slide.skb
+++ b/doc/user/slide.skb
@@ -153,6 +153,8 @@ projection.  This may not be supported by all engines.])
    (doc-markup 'slide-embed
 	       `((:command [The binary file for running the embedded 
 application.])
+	         (:arguments [Additional arguments to be passed to the
+application (a list of strings).])
 		 (:geometry-opt [The name of the geometry option to be sent
 to the embedded application.])
 		 (:geometry [The geometry value to be sent.])
@@ -192,6 +194,7 @@ output format does not support embedded application.]))
 			 (markup-writer 'slide-vspace
 					:action dummy-slide-vspace-output)
 			 (markup-writer 'slide-embed
+			                :options '(:command :arguments :alt)
 					:action dummy-slide-embed-output)
 			 e))
 		     (include "src/slides.skb"))))
diff --git a/src/guile/skribilo/package/slide.scm b/src/guile/skribilo/package/slide.scm
index 7f731e3..c0a8473 100644
--- a/src/guile/skribilo/package/slide.scm
+++ b/src/guile/skribilo/package/slide.scm
@@ -146,6 +146,7 @@
 (define-markup (slide-embed #!rest opt
 			    #!key
 			    command
+                            (arguments '())
 			    (geometry-opt "-geometry")
 			    (geometry #f) (rgeometry #f)
 			    (transient #f) (transient-opt #f)
-- 
cgit v1.2.3