diff options
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 8 | ||||
| -rw-r--r-- | src/guile/skribilo/package/slide/lout.scm | 23 |
2 files changed, 10 insertions, 21 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index 364a0bd..4b6b62d 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -550,7 +550,9 @@ (or (is-markup? node 'chapter) (is-markup? node 'section) (is-markup? node 'subsection) - (is-markup? node 'slide))) + (is-markup? node 'slide) + (is-markup? node 'slide-topic) + (is-markup? node 'slide-subtopic))) @@ -737,7 +739,9 @@ ;; opens the PDF document. (pdf-bookmark-closed-pred ,(lambda (n e) - (not (is-markup? n 'chapter)))) + (not (and (markup? n) + (memq (markup-markup n) + '(chapter slide slide-topic)))))) ;; color (color? #t) diff --git a/src/guile/skribilo/package/slide/lout.scm b/src/guile/skribilo/package/slide/lout.scm index c6e7f07..ef5ded9 100644 --- a/src/guile/skribilo/package/slide/lout.scm +++ b/src/guile/skribilo/package/slide/lout.scm @@ -1,6 +1,6 @@ ;;; lout.scm -- Lout implementation of the `slide' package. ;;; -;;; Copyright 2005, 2006 Ludovic Courtès <ludovic.courtes@laas.fr> +;;; Copyright 2005, 2006, 2008 Ludovic Courtès <ludo@gnu.org> ;;; ;;; ;;; This program is free software; you can redistribute it and/or modify @@ -140,21 +140,6 @@ ) - -;;; -;;; Customs for a nice handling of topics/subtopics. -;;; - -(let ((lout (find-engine 'lout))) - (if lout - (begin - (engine-custom-set! lout 'pdf-bookmark-node-pred - (lambda (n e) - (or (is-markup? n 'slide) - (is-markup? n 'slide-topic) - (is-markup? n 'slide-subtopic)))) - (engine-custom-set! lout 'pdf-bookmark-closed-pred - (lambda (n e) #f))))) - - -;;; arch-tag: 0c717553-5cbb-46ed-937a-f844b6aeb145 +;;; Local Variables: +;;; coding: latin-1 +;;; End: |