summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog19
-rw-r--r--src/guile/skribilo/ast.scm11
-rw-r--r--src/guile/skribilo/engine/lout.scm9
3 files changed, 30 insertions, 9 deletions
diff --git a/ChangeLog b/ChangeLog
index 1b903b5..2b70b37 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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.