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/skribilo/engine/lout.scm | |
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/skribilo/engine/lout.scm')
-rw-r--r-- | src/guile/skribilo/engine/lout.scm | 8 |
1 files changed, 6 insertions, 2 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) |