diff options
author | Ludovic Courtes | 2007-02-06 22:54:27 +0000 |
---|---|---|
committer | Ludovic Courtes | 2007-02-06 22:54:27 +0000 |
commit | e9c75da91462305b1449d0d95af6f67ae51e941b (patch) | |
tree | d0037db7de5d88c63b6abe4451a65aeaf2920663 /src | |
parent | a0b080ec87104e8b2c030f1fde7f56dadb7f33dc (diff) | |
download | skribilo-e9c75da91462305b1449d0d95af6f67ae51e941b.tar.gz skribilo-e9c75da91462305b1449d0d95af6f67ae51e941b.tar.lz skribilo-e9c75da91462305b1449d0d95af6f67ae51e941b.zip |
`slide' package: use the native APIs.
Patches applied:
* lcourtes@laas.fr--2005-libre/skribilo--engine-classes--1.2 (patch 5)
- `slide' package: use the native APIs.
git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-56
Diffstat (limited to 'src')
-rw-r--r-- | src/guile/skribilo/package/slide.scm | 26 |
1 files changed, 21 insertions, 5 deletions
diff --git a/src/guile/skribilo/package/slide.scm b/src/guile/skribilo/package/slide.scm index 898f105..cbcae0b 100644 --- a/src/guile/skribilo/package/slide.scm +++ b/src/guile/skribilo/package/slide.scm @@ -20,13 +20,29 @@ ;;; USA. -(define-skribe-module (skribilo package slide)) +(define-module (skribilo package slide) + :use-module (skribilo reader) + :use-module (skribilo utils syntax) + :use-module (skribilo lib) + :use-module (skribilo ast) + :use-module (skribilo engine) + :use-module (skribilo evaluator) ;; `*load-options*' + :use-module (skribilo package base) + :autoload (skribilo utils keywords) (the-options the-body) + + :use-module (srfi srfi-1) + :use-module (ice-9 optargs)) + +(fluid-set! current-reader (make-reader 'skribe)) + + + ;*---------------------------------------------------------------------*/ ;* slide-options */ ;*---------------------------------------------------------------------*/ -(define-public &slide-load-options (skribe-load-options)) +(define-public &slide-load-options (*load-options*)) ;*---------------------------------------------------------------------*/ @@ -49,7 +65,7 @@ (let ((s (new container (markup 'slide) (ident (if (not ident) - (symbol->string (gensym 'slide)) + (symbol->string (gensym "slide")) ident)) (class class) (required-options '(:title :number :toc)) @@ -232,7 +248,7 @@ (new container (markup 'slide-topic) (required-options '(:title :outline?)) - (ident (or ident (symbol->string (gensym 'slide-topic)))) + (ident (or ident (symbol->string (gensym "slide-topic")))) (class class) (options `((:outline? ,outline?) ,@(the-options opt :outline? :class))) @@ -247,7 +263,7 @@ (new container (markup 'slide-subtopic) (required-options '(:title :outline?)) - (ident (or ident (symbol->string (gensym 'slide-subtopic)))) + (ident (or ident (symbol->string (gensym "slide-subtopic")))) (class class) (options `((:outline? ,outline?) ,@(the-options opt :outline? :class))) |