diff options
| -rw-r--r-- | ChangeLog | 19 | ||||
| -rw-r--r-- | src/guile/skribilo/ast.scm | 11 | ||||
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 9 |
3 files changed, 30 insertions, 9 deletions
@@ -2,6 +2,25 @@ # arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2 # +2007-08-30 16:56:46 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-161 + + Summary: + Moved `first-paragraph?' to `ast'. + Revision: + skribilo--devo--1.2--patch-161 + + * src/guile/skribilo/ast.scm (first-paragraph?): New. + + * src/guile/skribilo/engine/lout.scm (first-paragraph?): Removed. + + modified files: + ChangeLog src/guile/skribilo/ast.scm + src/guile/skribilo/engine/lout.scm + + new patches: + lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-103 + + 2007-08-30 16:56:12 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-160 Summary: diff --git a/src/guile/skribilo/ast.scm b/src/guile/skribilo/ast.scm index 746cbbf..21df4f3 100644 --- a/src/guile/skribilo/ast.scm +++ b/src/guile/skribilo/ast.scm @@ -65,6 +65,7 @@ container-search-down search-down find-down find1-down find-up find1-up ast-document ast-chapter ast-section + first-paragraph? ;; numbering markup-number-string @@ -619,6 +620,16 @@ (define (ast-section m) (find1-up (lambda (n) (is-markup? n 'section)) m)) +(define (first-paragraph? n) + ;; Return true if N is the first paragraph in this container. + (and (is-markup? n 'paragraph) + (let* ((parent (ast-parent n)) + (siblings (markup-body parent))) + (and (pair? siblings) + (eq? n (find (lambda (n) + (is-markup? n 'paragraph)) + siblings)))))) + ;;; ;;; Section numbering. diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index 70d8f97..1aefe5c 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -1534,15 +1534,6 @@ ;* support for paragraphs ... */ ;*---------------------------------------------------------------------*/ -(define (first-paragraph? n) - ;; Return true if N is the first paragraph in this container. - (let* ((parent (ast-parent n)) - (siblings (markup-body parent))) - (and (pair? siblings) - (eq? n (find (lambda (n) - (is-markup? n 'paragraph)) - siblings))))) - (define (make-drop-capital? n e) ;; Return true if the first letter of N's body should be output as a drop ;; capital. |