Moved `first-paragraph?' to `ast'.

* src/guile/skribilo/ast.scm (first-paragraph?): New.

* src/guile/skribilo/engine/lout.scm (first-paragraph?): Removed.

git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-161

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.