aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtès2008-01-25 18:24:23 +0100
committerLudovic Courtès2008-01-25 18:24:23 +0100
commit2aa140cdc7b08509f9fbec9a50c404e10cd9f25a (patch)
tree1378d909eeca1f63c4b311156ebd9ad65b1ce927 /src/guile
parentab3703c8a4bdb6fe089495272ee2141bb7d96252 (diff)
downloadskribilo-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.scm8
-rw-r--r--src/guile/skribilo/package/slide/lout.scm23
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: