diff options
| author | Ludovic Courtès | 2007-11-30 20:52:44 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2007-11-30 20:52:44 +0100 |
| commit | 7107f25eadbd5f42db99c8e1c557ab095a7e491d (patch) | |
| tree | 012f2ef9b36e750b9433a8aed9996768ff4ddcf6 /src/guile | |
| parent | 4283511c99e4da256587d3341655917a39052b31 (diff) | |
| download | skribilo-7107f25eadbd5f42db99c8e1c557ab095a7e491d.tar.gz skribilo-7107f25eadbd5f42db99c8e1c557ab095a7e491d.tar.lz skribilo-7107f25eadbd5f42db99c8e1c557ab095a7e491d.zip | |
lout: Fix `toc' to allow documentation building.
* src/guile/skribilo/engine/lout.scm (toc): Use `*document-being-output*' if `(ast-document n)' is false. Use `find-down' instead of `search-down' when looking for chapters and sections.
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index 6be8546..a170d7c 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -1319,15 +1319,17 @@ :action (lambda (n e) (display "\n# toc\n") (if (markup-option n :chapter) - (let ((chapters (filter (lambda (n) - (or (is-markup? n 'chapter) - (is-markup? n 'slide))) - (markup-body (ast-document n))))) + (let* ((doc (or (ast-document n) + (*document-being-output*))) + (chapters (find-down (lambda (n) + (or (is-markup? n 'chapter) + (is-markup? n 'slide))) + doc))) (for-each (lambda (c) (let ((sections - (search-down (lambda (n) - (is-markup? n 'section)) - c))) + (find-down (lambda (n) + (is-markup? n 'section)) + c))) (lout-toc-entry c 0 e) (if (markup-option n :section) (for-each |