;;;; This file is part of LilyPond, the GNU music typesetter.
;;;;
-;;;; Copyright (C) 2000--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
+;;;; Copyright (C) 2000--2015 Han-Wen Nienhuys <hanwen@xs4all.nl>
;;;; Jan Nieuwenhuizen <janneke@gnu.org>
;;;;
;;;; LilyPond is free software: you can redistribute it and/or modify
;; todo: naming: grob vs. layout property
-(map ly:load '("documentation-lib.scm"
- "lily-sort.scm"
- "document-functions.scm"
- "document-translation.scm"
- "document-music.scm"
- "document-type-predicates.scm"
- "document-identifiers.scm"
- "document-backend.scm"
- "document-markup.scm"))
+(use-modules (scm accreg))
+
+(for-each ly:load '("documentation-lib.scm"
+ "lily-sort.scm"
+ "document-functions.scm"
+ "document-translation.scm"
+ "document-music.scm"
+ "document-type-predicates.scm"
+ "document-identifiers.scm"
+ "document-context-mods.scm"
+ "document-backend.scm"
+ "document-markup.scm"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; (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
(identifiers-doc-string)
(open-output-file "identifiers.tely"))
+(display
+ context-mods-doc-string
+ (open-output-file "context-mod-identifiers.tely"))
(display
(backend-properties-doc-string all-user-grob-properties)
(display
(string-append
(texi-file-head "LilyPond Internals Reference" file-name
- "(lilypond-internals.info)")
+ "(lilypond-internals.info)")
"
@include macros.itexi
@titlefont{Internals Reference}
@author The LilyPond development team
-@c `Internals Reference' was born 2000-10-21 with git commit 01e371f...
-Copyright @copyright{} 2000--2010 by the authors
+@c `Internals Reference' was born 2000-10-21 with this commit:
+@c patch::: 1.3.96.jcn9
+@c author: Jan Nieuwenhuizen
+@c commit: 8ecd09ad7514d57630fb611d38c161f3c3c708db
+@c file: scm/generate-documentation.scm
+Copyright @copyright{} 2000--2015 by the authors
@vskip 20pt
@end ifhtml
This is the Internals Reference (IR) for version "
- (lilypond-version)
- " of LilyPond, the GNU music typesetter.")
+ (lilypond-version)
+ " of LilyPond, the GNU music typesetter.")
#:children
(list