From 05de61db85c657c7cdfe053cb7837eaf79dc9f85 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 22 Nov 2007 09:59:29 +0100 Subject: slide: Set up an environment suitable for `eq'. * src/guile/skribilo/package/slide.scm (slide): Add `env' with `equation-counter' and `equation-env'. This allows the use of non-inline equations in slides. --- src/guile/skribilo/package/slide.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/guile') diff --git a/src/guile/skribilo/package/slide.scm b/src/guile/skribilo/package/slide.scm index 3195515..b00efa2 100644 --- a/src/guile/skribilo/package/slide.scm +++ b/src/guile/skribilo/package/slide.scm @@ -1,7 +1,7 @@ ;;; slide.scm -- Overhead transparencies. ;;; ;;; Copyright 2003, 2004 Manuel Serrano -;;; Copyright 2006, 2007 Ludovic Courtès +;;; Copyright 2006, 2007 Ludovic Courtès ;;; ;;; ;;; This program is free software; you can redistribute it and/or modify @@ -85,7 +85,9 @@ ,@(the-options opt :ident :class :vspace :toc))) (body (if vspace (list (slide-vspace vspace) (the-body opt)) - (the-body opt)))))) + (the-body opt))) + (env (list (list 'equation-counter 0) + (list 'equation-env '())))))) (set! %slide-the-slides (cons s %slide-the-slides)) s)) -- cgit v1.2.3