* Documentation/user/refman.itely: Run texinfo-all-menus-update.
* lily/parser.yy: Identify shift/reduce problems.
* input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly: Rename
make-style-sheet. Too specific for convert-ly?
+2002-10-14 Jan Nieuwenhuizen <janneke@gnu.org>
+
+ * Documentation/user/internals.itely:
+ * Documentation/user/refman.itely: Run texinfo-all-menus-update.
+
+ * lily/parser.yy: Identify shift/reduce problems.
+
+ * input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly: Rename
+ make-style-sheet. Too specific for convert-ly?
+
2002-10-14 Han-Wen Nienhuys <hanwen@cs.uu.nl>
* po/cs.po: added czech translation, courtesy Tomas Kopecek.
* Interpretation context::
* Syntactic details::
* Lexical details::
-* Output details::
+* Output details::
@end menu
* Identifiers::
* Music expressions::
* Manipulating music expressions::
-* Span requests::
* Assignments::
* Lexical modes::
* Ambiguities::
@cindex Staff notation
@menu
-* Staff symbol::
+* Staff symbol::
* Key signature::
* Clef::
* Time signature::
@menu
* Ancient note heads::
-* Ancient clefs::
+* Ancient clefs ::
* Custodes::
* Ligatures::
* Figured bass::
object, and set a object property in that object.
@menu
-* Tuning groups of objects ::
-* Tuning per object ::
+* Tuning groups of objects ::
+* Tuning per object ::
* Font selection::
* Text markup::
@end menu
%% burp
%% the very idea of a style sheet, is that it's easy to override
-#(define (set-style! sheet name style)
- (set-cdr! (assoc 'mark-letter (cdr (assoc 'style-alist sheet))) style))
+%#(define (set-style! sheet name style)
+% (set-cdr! (assoc 'mark-letter (cdr (assoc 'style-alist sheet))) style))
+%
+%#(define my-sheet (make-font-list 'paper20))
+%#(set-style! my-sheet 'mark-letter '((font-family . roman)
+% (font-series . bold)
+% (font-shape . upright)
+% (font-relative-size . 3)))
-#(define my-sheet (make-style-sheet 'paper20))
-#(set-style! my-sheet 'mark-letter '((font-family . roman)
- (font-series . bold)
- (font-shape . upright)
- (font-relative-size . 3)))
+#(define (set-style! xstyle-alist name style)
+ (set-cdr! (assoc name xstyle-alist)) style)
+
+#(set-style! style-alist 'mark-letter '((font-family . roman)
+ (font-series . bold)
+ (font-shape . upright)
+ (font-relative-size . 3)))
+
+
cresc = \notes {
#(ly:export (make-event-chord (list (make-span-event 'CrescendoEvent START))))
}
\paper{
- \stylesheet #my-sheet
+ #(define fonts my-sheet)
\translator {
\ScoreContext
skipBars = ##t
source file of the GNU LilyPond music typesetter
- (c) 1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
Jan Nieuwenhuizen <janneke@gnu.org>
*/
/*
Two shift/reduce problems:
- -
- -
+ - empty music-list
+ - empty pre-events
*/
/*
to have efficient append.
*/
-Music_list: /* empty */ {
+Music_list: /* empty */ { /* SR conflict */
$$ = scm_cons (SCM_EOL, SCM_EOL);
}
| Music_list Music {
;
post_events:
- {
+ /* empty */ {
$$ = new Link_array<Music>;
}
| post_events post_event {
;
pre_events:
- {
+ /* empty */ { /* SR conflict */
$$ = new Link_array<Music>;
}
| pre_events open_event {
(font-series . medium)
))
-#(define style-alist
+%% How to override this?
+#(define-public style-alist
'((finger . ((font-family . number) (font-relative-size . -3)))
(volta . ((font-family . number) (font-relative-size . -2)))
(tuplet . ((font-family . roman) (font-shape . italic) (font-relative-size . -1)))