diff options
| -rw-r--r-- | src/guile/skribilo/engine/info.scm | 25 |
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 ... */ |