Initial import of Skribe 1.2d.

Initial import of Skribe 1.2d.


git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--base-0

1 files changed, 34 insertions, 0 deletions

diff --git a/skribe/doc/user/examples.skb b/skribe/doc/user/examples.skb
new file mode 100644
index 0000000..a37ece4
--- /dev/null
+++ b/skribe/doc/user/examples.skb
@@ -0,0 +1,34 @@
+;*=====================================================================*/
+;*    serrano/prgm/project/skribe/doc/user/examples.skb                */
+;*    -------------------------------------------------------------    */
+;*    Author      :  Manuel Serrano                                    */
+;*    Creation    :  Wed Sep  3 13:35:34 2003                          */
+;*    Last change :  Tue Feb  3 14:52:33 2004 (serrano)                */
+;*    Copyright   :  2003-04 Manuel Serrano                            */
+;*    -------------------------------------------------------------    */
+;*    The list of examples                                             */
+;*=====================================================================*/
+
+;*---------------------------------------------------------------------*/
+;*    Examples                                                         */
+;*---------------------------------------------------------------------*/
+(chapter :title "List of examples"
+
+(resolve (lambda (n e env)
+	    (let* ((d (ast-document n))
+		   (ex (container-env-get d 'example-env)))
+	       (table (map (lambda (e)
+			      (tr (td :align 'left
+				      (markup-option e :number)
+				      ". "
+				      (ref :handle (handle e)
+					   :text (markup-option e :legend))
+				      " (chapter "
+				      (let ((c (ast-chapter e)))
+					 (ref :handle (handle c)
+					      :text (markup-option c :title)))
+				      ")")))
+			   (sort ex
+				 (lambda (e1 e2)
+				    (< (markup-option e1 :number) 
+				       (markup-option e2 :number))))))))))