From fc42fe56a57eace2dbdb31574c2e161f0eacf839 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 15 Jun 2005 13:00:39 +0000
Subject: 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
---
 doc/user/src/bib5.skb | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 doc/user/src/bib5.skb

(limited to 'doc/user/src/bib5.skb')

diff --git a/doc/user/src/bib5.skb b/doc/user/src/bib5.skb
new file mode 100644
index 0000000..a0ee361
--- /dev/null
+++ b/doc/user/src/bib5.skb
@@ -0,0 +1,24 @@
+(center
+ (frame :border 1 :margin 2 :width 90.
+	(processor :engine
+		   (make-engine '_ :filter string-upcase)
+		   :combinator
+		   (lambda (e1 e2)
+		      (let ((e (copy-engine '_ e2)))
+			 (markup-writer '&bib-entry-ident e
+					:action
+					(lambda (n e)
+					   (let* ((be (ast-parent n))
+						  (o (markup-option be 'author))
+						  (y (markup-option be 'year)))
+					      (output (markup-body o) e1)
+					      (display ":")
+					      (output (markup-body y) e))))
+			 (markup-writer '&bib-entry-title e
+					:action
+					(lambda (n e)
+					   (skribe-eval (it (markup-body n)) e)))
+			 e))
+		   (the-bibliography :pred 
+				     (lambda (m n)
+					(eq? (markup-option m 'kind) 'book))))))
-- 
cgit v1.2.3