OLD | NEW |
1 %%%% -*- Mode: Scheme -*- | 1 %%%% -*- Mode: Scheme -*- |
2 | 2 |
3 %%%% This file is part of LilyPond, the GNU music typesetter. | 3 %%%% This file is part of LilyPond, the GNU music typesetter. |
4 %%%% | 4 %%%% |
5 %%%% Copyright (C) 2003--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> | 5 %%%% Copyright (C) 2003--2015 Han-Wen Nienhuys <hanwen@xs4all.nl> |
6 %%%% Jan Nieuwenhuizen <janneke@gnu.org> | 6 %%%% Jan Nieuwenhuizen <janneke@gnu.org> |
7 %%%% | 7 %%%% |
8 %%%% LilyPond is free software: you can redistribute it and/or modify | 8 %%%% LilyPond is free software: you can redistribute it and/or modify |
9 %%%% it under the terms of the GNU General Public License as published by | 9 %%%% it under the terms of the GNU General Public License as published by |
10 %%%% the Free Software Foundation, either version 3 of the License, or | 10 %%%% the Free Software Foundation, either version 3 of the License, or |
(...skipping 996 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1007 defaults with which a grob is created, this command uses | 1007 defaults with which a grob is created, this command uses |
1008 @code{Output_property_engraver} at the grob acknowledge stage. This | 1008 @code{Output_property_engraver} at the grob acknowledge stage. This |
1009 may be necessary for overriding values set after the initial grob | 1009 may be necessary for overriding values set after the initial grob |
1010 creation.") | 1010 creation.") |
1011 (let ((p (check-grob-path grob-property-path (*location*) | 1011 (let ((p (check-grob-path grob-property-path (*location*) |
1012 #:default 'Bottom | 1012 #:default 'Bottom |
1013 #:min 3))) | 1013 #:min 3))) |
1014 (if p | 1014 (if p |
1015 (make-music 'ApplyOutputEvent | 1015 (make-music 'ApplyOutputEvent |
1016 'context-type (first p) | 1016 'context-type (first p) |
| 1017 'symbol (second p) |
1017 'procedure | 1018 'procedure |
1018 (lambda (grob orig-context context) | 1019 (lambda (grob orig-context context) |
1019 (if (equal? | 1020 (ly:grob-set-nested-property! grob (cddr p) value))) |
1020 (cdr (assoc 'name (ly:grob-property grob 'meta))) | |
1021 (second p)) | |
1022 (ly:grob-set-nested-property! | |
1023 grob (cddr p) value)))) | |
1024 (make-music 'Music)))) | 1021 (make-music 'Music)))) |
1025 | 1022 |
1026 | 1023 |
1027 | 1024 |
1028 | 1025 |
1029 | 1026 |
1030 | 1027 |
1031 %% pageBreak and pageTurn are music functions (iso music indentifiers), | 1028 %% pageBreak and pageTurn are music functions (iso music indentifiers), |
1032 %% because music identifiers are not allowed at top-level. | 1029 %% because music identifiers are not allowed at top-level. |
1033 pageBreak = | 1030 pageBreak = |
(...skipping 951 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1985 Use this if you want to have a scheme expression evaluated | 1982 Use this if you want to have a scheme expression evaluated |
1986 because of its side-effects, but its value ignored.")) | 1983 because of its side-effects, but its value ignored.")) |
1987 | 1984 |
1988 withMusicProperty = | 1985 withMusicProperty = |
1989 #(define-music-function (sym val music) | 1986 #(define-music-function (sym val music) |
1990 (symbol? scheme? ly:music?) | 1987 (symbol? scheme? ly:music?) |
1991 (_i "Set @var{sym} to @var{val} in @var{music}.") | 1988 (_i "Set @var{sym} to @var{val} in @var{music}.") |
1992 | 1989 |
1993 (set! (ly:music-property music sym) val) | 1990 (set! (ly:music-property music sym) val) |
1994 music) | 1991 music) |
OLD | NEW |