;;;; This file is part of LilyPond, the GNU music typesetter.
;;;;
-;;;; Copyright (C) 2000--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; Copyright (C) 2000--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
;;;; Jan Nieuwenhuizen <janneke@gnu.org>
;;;;
;;;; LilyPond is free software: you can redistribute it and/or modify
;; (markup-doc-string)
;; (open-output-file "markup-commands.tely"))
-(call-with-output-file "markup-commands.tely"
- (lambda (port)
- (dump-node (markup-doc-node) port 2)))
+(display
+ ;; ugly hack to remove the @node... @appendixsec... portion
+ (substring
+ (call-with-output-string
+ (lambda (port)
+ (dump-node (markup-doc-node) port 2)))
+ ;; magic number to remove the initial part. 63 comes from:
+ ;; "\nnode Text markup commands\n@appendixsec Text markup commands\n\n\n\n"
+ ;; which is generated by (dump-node...) in documentation-lib.scm
+ 63
+ )
+ (open-output-file "markup-commands.tely"))
-(call-with-output-file "markup-list-commands.tely"
- (lambda (port)
- (dump-node (markup-list-doc-node) port 2)))
+(display
+ (markup-list-doc-string)
+ (open-output-file "markup-list-commands.tely"))
(display
type-predicates-doc-string
@author The LilyPond development team
@c `Internals Reference' was born 2000-10-21 with git commit 01e371f...
-Copyright @copyright{} 2000--2010 by the authors
+Copyright @copyright{} 2000--2011 by the authors
@vskip 20pt