blob: 133ccdfc90075dde7ba066014cf8d45194c367aa (
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
#!/usr/bin/guile \
-e main -s
!#
(add-to-load-path (dirname (current-filename)))
(use-modules (texinfo reflection)
(texinfo serialize)
(texinfo indexing)
(sxml simple))
(define name "Haskell-like Monads")
(define filename "monad.info")
(define infile "monad.texi")
(define version "0.7")
(define years '(2019))
(define last-updated (strftime "%Y-%m-%d" (localtime (current-time))))
(define modules
'(((monad) "Base module")
((monad optional) "Optional (Maybe) type")
((monad state) "State monad")
((monad stack) "Stacks implemented on top of the state monad")
((monad writer) "Your classical writer monad")
))
(define prolog
(package-stexi-standard-prologue
name filename
"The Algorithmic Language Scheme" ; (dir) Top category
"Haskell like monads in Scheme" ; For (dir) Top
(package-stexi-standard-copying
name version last-updated years
"Hugo Hörnquist" "Permissions?")
(package-stexi-standard-titlepage
name
version last-updated
'(("Hugo Hörnquist" . "hugo@lysator.liu.se")))
(package-stexi-standard-menu
name
(map car modules)
(map cdr modules)
'())))
(define stexi-doc
(package-stexi-documentation
(map car modules)
name filename
prolog
'()))
(define (main args)
(with-output-to-file infile
(lambda () (display (stexi->texi stexi-doc)))))
|