(markup-functions (hashq-ref markup-functions-by-category
category)))
(make <texi-node>
+ #:appendix #t
#:name category-name
#:desc ""
#:text (string-append
(define (markup-doc-node)
(make <texi-node>
+ #:appendix #t
#:name "Text markup commands"
#:desc ""
#:text "The following commands can all be used inside @code{\\markup @{ @}}."
(define (markup-list-doc-node)
(make <texi-node>
+ #:appendix #t
#:name "Text markup list commands"
#:desc ""
#:text (string-append
(call-with-output-file "markup-commands.tely"
(lambda (port)
- (dump-node (markup-doc-node) port 2 #t)))
+ (dump-node (markup-doc-node) port 2)))
(call-with-output-file "markup-list-commands.tely"
(lambda (port)
- (dump-node (markup-list-doc-node) port 2 #t)))
+ (dump-node (markup-list-doc-node) port 2)))
(display
(identifiers-doc-string)
(node-name x)
(node-desc x)))
-(define* (dump-node node port level #:optional (appendix #f))
+(define* (dump-node node port level)
(display
(string-append
"\n@node "
(node-name node)
"\n\n"
- (if (or appendix (appendix? node))
+ (if (appendix? node)
(texi-appendix-section-command level)
(texi-section-command level))
" "
(node-children node)))
""))
port)
- (map (lambda (x) (dump-node x port (+ 1 level) appendix))
+ (map (lambda (x) (dump-node x port (+ 1 level)))
(node-children node)))
(define (processing name)