Improve gen-duck formatting.
This commit is contained in:
parent
28ad38926a
commit
507e8e9043
3 changed files with 10 additions and 1 deletions
|
@ -46,6 +46,8 @@
|
|||
(define (print-duck-module sec)
|
||||
(print "## " (cadr sec) " [module]")
|
||||
(newline)
|
||||
(print " (import " (cadr sec) ")")
|
||||
(newline)
|
||||
(print-duck-text (caddr sec)))
|
||||
|
||||
(define (print-duck-variable sec)
|
||||
|
|
|
@ -3,12 +3,14 @@
|
|||
|
||||
(define-syntax gen-duck
|
||||
(syntax-rules ()
|
||||
((_ fname title mod ...)
|
||||
((_ fname title abstract mod ...)
|
||||
(begin
|
||||
(import mod ...)
|
||||
(with-output-to-file fname
|
||||
(lambda ()
|
||||
(print "# " title)
|
||||
(newline)
|
||||
(print abstract)
|
||||
(let ()
|
||||
(newline)
|
||||
(print-module-duck mod))
|
||||
|
@ -17,4 +19,5 @@
|
|||
|
||||
(gen-duck "doc/d-utils.md"
|
||||
"Utility modules"
|
||||
"These are various utility modules for other HackerBase libraries."
|
||||
util-time)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue