* ly/params-init.ly: Just define style-alist, no need to

define-public.

* input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly: Fix style override
(thanks Han-Wen).

diff --git a/ChangeLog b/ChangeLog
index 00461119408a13dcbd70d075ea9a79c1998de227..a2a055115767a95d41fa73f50c443702d5e82354 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2002-10-21  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+       * ly/params-init.ly: Just define style-alist, no need to
+       define-public.
+
+       * input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly: Fix style override
+       (thanks Han-Wen).
+
        * mf/GNUmakefile (FONT_FILES): Add feta-nummer.
        (FET_FILES): = FONT_FILES.
 

diff --git a/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly b/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly
index 0359cf93cc40f84ce3fab07fcc545a7bda5b0803..9370f28213590423645073052460c07b8233e5f3 100644 (file)
--- a/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly
+++ b/input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly
@@ -10,28 +10,24 @@ ritenuto = \textscript #'(italic  "rit.")
 
 #(define italic-bf '((font-shape . italic) (font-series . bold)))
 
-%{
- 
-%% 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 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)))
+\paper {
 
-#(define (set-style! xstyle-alist name style)
-  (set-cdr! (assoc name xstyle-alist)) style)
+  %% burp
+  %% the very idea of a style sheet, is that it's easy to override
+  %% it's gotten quite a bit better now!
+  
+  %% ugh, need this line:
+  foo = "bar"
 
-#(set-style! style-alist 'mark-letter '((font-family . roman)
-                                        (font-series . bold)
-                                        (font-shape . upright)
-                                        (font-relative-size . 3)))
+  #(define (set-style! name style)
+     (set-cdr! (assoc name style-alist) style))
   
-%}  
+  #(set-style! '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)))) 
@@ -57,7 +53,6 @@ stopGraceMusic= \sequential {
 }
 
 \paper{
-%    #(define fonts my-sheet)
     \translator {
         \ScoreContext
         skipBars = ##t

diff --git a/ly/params-init.ly b/ly/params-init.ly
index 6dd444fdcfb9e7bdbcfdec67e7f5171ca96ad446..8e144cc9a762f6ca62ebb3a95511c9ae7efd061b 100644 (file)
--- a/ly/params-init.ly
+++ b/ly/params-init.ly
@@ -61,8 +61,7 @@ interscoreline = 4. \mm
        (font-series . medium)
        ))
 
-%% How to override this?
-#(define-public style-alist
+#(define 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)))