summaryrefslogtreecommitdiff
path: root/doc/user/src/bib5.skb
blob: 3ace2b744f6cad558ea6facab5b04bc25882db4b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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)
					   (evaluate-document (it (markup-body n)) e)))
			 e))
		   (the-bibliography :pred 
				     (lambda (m n)
					(eq? (markup-option m 'kind) 'book))))))