diff options
author | Ludovic Court`es | 2007-06-05 17:03:28 +0000 |
---|---|---|
committer | Ludovic Court`es | 2007-06-05 17:03:28 +0000 |
commit | 9457610daa0ad13623c95d7ac5a6e54d188aa4e6 (patch) | |
tree | 2013c997d7c9fa3307abe98da307aebc284bbc76 /src/guile/skribilo/package/slide.scm | |
parent | 247fc2730a286989cecc202db93d001415bb33a8 (diff) | |
download | skribilo-9457610daa0ad13623c95d7ac5a6e54d188aa4e6.tar.gz skribilo-9457610daa0ad13623c95d7ac5a6e54d188aa4e6.tar.lz skribilo-9457610daa0ad13623c95d7ac5a6e54d188aa4e6.zip |
Started cleaning up packages using Guile-Lint.
Most of the changes involve:
* using a native module rather than `define-skribe-module'.
* using `:'-style keywords instead of DSSSL keywords so that Guile-Lint
can handle them.
* fixing unbound variables and the likes.
git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-57
Diffstat (limited to 'src/guile/skribilo/package/slide.scm')
-rw-r--r-- | src/guile/skribilo/package/slide.scm | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/src/guile/skribilo/package/slide.scm b/src/guile/skribilo/package/slide.scm index cb5edda..dd6519d 100644 --- a/src/guile/skribilo/package/slide.scm +++ b/src/guile/skribilo/package/slide.scm @@ -35,7 +35,7 @@ :use-module (srfi srfi-1) :use-module (ice-9 optargs)) -(fluid-set! current-reader (make-reader 'skribe)) +(fluid-set! current-reader %skribilo-module-reader) @@ -54,8 +54,8 @@ ;*---------------------------------------------------------------------*/ ;* slide ... */ ;*---------------------------------------------------------------------*/ -(define-markup (slide #!rest opt - #!key +(define-markup (slide :rest opt + :key (ident #f) (class #f) (toc #t) title (number #t) @@ -152,7 +152,7 @@ ;*---------------------------------------------------------------------*/ ;* slide-vspace ... */ ;*---------------------------------------------------------------------*/ -(define-markup (slide-vspace #!rest opt #!key (unit 'cm)) +(define-markup (slide-vspace :rest opt :key (unit 'cm)) (new markup (markup 'slide-vspace) (loc &invocation-location) @@ -162,8 +162,8 @@ ;*---------------------------------------------------------------------*/ ;* slide-embed ... */ ;*---------------------------------------------------------------------*/ -(define-markup (slide-embed #!rest opt - #!key +(define-markup (slide-embed :rest opt + :key command (arguments '()) (geometry-opt "-geometry") @@ -187,7 +187,7 @@ ;*---------------------------------------------------------------------*/ ;* slide-record ... */ ;*---------------------------------------------------------------------*/ -(define-markup (slide-record #!rest opt #!key ident class tag (play #t)) +(define-markup (slide-record :rest opt :key ident class tag (play #t)) (if (not tag) (skribe-error 'slide-record "Tag missing" tag) (new markup @@ -201,7 +201,7 @@ ;*---------------------------------------------------------------------*/ ;* slide-play ... */ ;*---------------------------------------------------------------------*/ -(define-markup (slide-play #!rest opt #!key ident class tag color) +(define-markup (slide-play :rest opt :key ident class tag color) (if (not tag) (skribe-error 'slide-play "Tag missing" tag) (new markup @@ -216,8 +216,8 @@ ;*---------------------------------------------------------------------*/ ;* slide-play* ... */ ;*---------------------------------------------------------------------*/ -(define-markup (slide-play* #!rest opt - #!key ident class color (scolor "#000000")) +(define-markup (slide-play* :rest opt + :key ident class color (scolor "#000000")) (let ((body (the-body opt))) (for-each (lambda (lbl) (match-case lbl @@ -248,8 +248,8 @@ ;*---------------------------------------------------------------------*/ ;* slide-topic ... */ ;*---------------------------------------------------------------------*/ -(define-markup (slide-topic #!rest opt - #!key title (outline? #t) +(define-markup (slide-topic :rest opt + :key title (outline? #t) (ident #f) (class #f)) (new container (markup 'slide-topic) @@ -264,8 +264,8 @@ ;*---------------------------------------------------------------------*/ ;* slide-subtopic ... */ ;*---------------------------------------------------------------------*/ -(define-markup (slide-subtopic #!rest opt - #!key title (outline? #f) +(define-markup (slide-subtopic :rest opt + :key title (outline? #f) (ident #f) (class #f)) (new container (markup 'slide-subtopic) |