From f6debe193a59aef5c5e6e5346e36562c07380f1f Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 12 Sep 2007 00:41:34 +0200
Subject: [PATCH] Make makam-init.ly useful for real life use.

Remove example input, and modify context to apply changes to all
key/accidental grobs by default.
---
 ly/makam-init.ly | 39 ++++++++++-----------------------------
 1 file changed, 10 insertions(+), 29 deletions(-)

diff --git a/ly/makam-init.ly b/ly/makam-init.ly
index e9bd509b73..36b0397460 100644
--- a/ly/makam-init.ly
+++ b/ly/makam-init.ly
@@ -152,33 +152,14 @@ makamGlyphs = #`((1 . "accidentals.doublesharp")
        (-8/9 . "accidentals.flat.slashslash")
        (-1 . "accidentals.flatflat"))
 
-\relative {
-
-  %{ define alteration <-> symbol mapping. The following glyphs are available.
-
-  accidentals.sharp 
-  accidentals.sharp.slashslash.stem 
-  accidentals.sharp.slashslashslash.stemstem 
-  accidentals.sharp.slashslashslash.stem 
-  accidentals.sharp.slashslash.stemstemstem 
-  accidentals.natural 
-  accidentals.flat 
-  accidentals.flat.slash 
-  accidentals.flat.slashslash 
-  accidentals.mirroredflat.flat 
-  accidentals.mirroredflat 
-  accidentals.flatflat 
-  accidentals.flatflat.slash 
-  accidentals.doublesharp 
-
-  %}
-
-  \override Accidental #'glyph-name-alist =  \makamGlyphs
-  
-  \override Staff.KeySignature #'glyph-name-alist = \makamGlyphs
-  \set Staff.keySignature =  #'(
-    (3 .  4/9)
-    (6 . -1/9))
-  
-  c cc db fk gbm gfc gfb efk dfbm
+\layout {
+  \context {
+    \Score
+    \override KeySignature #'glyph-name-alist = \makamGlyphs
+    \override Accidental #'glyph-name-alist = \makamGlyphs
+    \override AccidentalCautionary #'glyph-name-alist = \makamGlyphs
+    \override TrillPitchAccidental #'glyph-name-alist = \makamGlyphs
+    \override AmbitusAccidental #'glyph-name-alist = \makamGlyphs
+  }
 }
+
-- 
2.39.5