diff options
| author | Ludovic Courtès | 2008-01-25 18:24:23 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-01-25 18:24:23 +0100 |
| commit | 2aa140cdc7b08509f9fbec9a50c404e10cd9f25a (patch) | |
| tree | 1378d909eeca1f63c4b311156ebd9ad65b1ce927 /src/guile | |
| parent | ab3703c8a4bdb6fe089495272ee2141bb7d96252 (diff) | |
| download | skribilo-2aa140cdc7b08509f9fbec9a50c404e10cd9f25a.tar.gz skribilo-2aa140cdc7b08509f9fbec9a50c404e10cd9f25a.tar.lz skribilo-2aa140cdc7b08509f9fbec9a50c404e10cd9f25a.zip | |
lout: Make it so that customs are not modified by `slide'.
* src/guile/skribilo/engine/lout.scm (lout-pdf-bookmark-node?): Handle
`slide-(sub)?topic' nodes.
(lout-engine)[pdf-bookmark-closed-pred]: Likewise.
* src/guile/skribilo/package/slide/lout.scm: Don't modify the
`pdf-bookmark-closed-pred' and `pdf-bookmark-node-pred' customs. It
had the side-effect of removing all bookmarks from the user manual.
Diffstat (limited to 'src/guile')
| -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: |