From fdd5eca865a22b663ff4cadd3496f496a9b79606 Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Mon, 21 Oct 2002 15:06:48 +0000
Subject: [PATCH] * 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).
---
 ChangeLog                                    |  6 ++++
 input/mutopia/W.A.Mozart/mozart-hrn3-defs.ly | 35 +++++++++-----------
 ly/params-init.ly                            |  3 +-
 3 files changed, 22 insertions(+), 22 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 0046111940..a2a0551157 100644
--- 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 0359cf93cc..9370f28213 100644
--- 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 6dd444fdcf..8e144cc9a7 100644
--- 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)))
-- 
2.39.5