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))))))
|
