aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/guile/skribilo/engine/info.scm25
1 files changed, 10 insertions, 15 deletions
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm
index 9b19de5..bceb796 100644
--- a/src/guile/skribilo/engine/info.scm
+++ b/src/guile/skribilo/engine/info.scm
@@ -132,21 +132,16 @@
;* node-menu ... */
;*---------------------------------------------------------------------*/
(define (node-menu container e)
- (let ((children (markup-body container)))
- (if (pair? (filter (lambda (x)
- (and (markup? x)
- (memq (markup-markup x)
- '(chapter section))))
- children))
- (begin
- (newline)
- (print "* Menu:")
- (newline)
- (for-each (lambda (c)
- (if (%block? c)
- (print "* " (block-title c e) "::")))
- children)))
- (newline)))
+ (let ((children (filter %block? (node-children container))))
+ (if (pair? children)
+ (begin
+ (newline)
+ (print "* Menu:")
+ (newline)
+ (for-each (lambda (c)
+ (print "* " (block-title c e) "::"))
+ children)))
+ (newline)))
;*---------------------------------------------------------------------*/
;* block-title ::%chapter ... */