From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 22 Mar 2004 16:28:40 +0000 (+0000)
Subject: 	* scm/document-backend.scm (interface-doc): sort grob list for interface.
X-Git-Tag: release/2.1.34~12
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=4127e2952126d6084d59d7c00dae5bfb1bfbbf8e;p=lilypond.git

	* scm/document-backend.scm (interface-doc): sort grob list for interface.

	* scm/define-grobs.scm (all-grob-descriptions): fix ordering of
	pre/post break align-order.
---

diff --git a/ChangeLog b/ChangeLog
index 7a690460b0..467c785cee 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -12,6 +12,11 @@
 
 2004-03-22  Han-Wen Nienhuys   <hanwen@xs4all.nl>
 
+	* scm/document-backend.scm (interface-doc): sort grob list for interface.
+
+	* scm/define-grobs.scm (all-grob-descriptions): fix ordering of
+	pre/post break align-order.
+
 	* spelling patch courtesy Edward Sutton.
 
 	* Documentation/user/changing-defaults.itely (Changing context
diff --git a/Documentation/index.html.in b/Documentation/index.html.in
index 1dd4dcaddd..fe64c9136e 100644
--- a/Documentation/index.html.in
+++ b/Documentation/index.html.in
@@ -91,7 +91,7 @@
 	    <li>
  <a  class="title" href="../user/out-www/lilypond-internals/index.html">Program reference</a>
 
-     <br>(for LilyPond hackers)
+     <br>(definitions for tweaking)
 
 	    <li>
      <a  class="title" href="../../input/regression/out-www/collated-files.html">Regression tests</a> (in <a  class="title" href="../../input/regression/out-www/collated-files.pdf">PDF</a>)
diff --git a/Documentation/user/changing-defaults.itely b/Documentation/user/changing-defaults.itely
index eeb2359543..785e1b72d8 100644
--- a/Documentation/user/changing-defaults.itely
+++ b/Documentation/user/changing-defaults.itely
@@ -749,8 +749,8 @@ to indicate improvisation in Jazz pieces,
     \accepts "ImproVoice"
   }}
   \score { \notes \relative c'' {
-    a4 d8 bes8 \new ImproVoice { c4^"ad lib" 
-     c4 c^"undress"  c c_"while playing :)"  } 
+    a4 d8 bes8 \new ImproVoice { c4^"ad lib" c 
+     c4 c^"undress" c_"while playing :)" c } 
     a1 
   }}
 @end lilypond
@@ -851,7 +851,37 @@ which is sometimes when reusing existing context definitions. }
   }
 @end verbatim 
 
+Putting both into a @code{\paper} block, like
 
+@example
+  \paper @{
+    \context @{
+      \name ImproVoice
+      @dots{}
+    @}
+  \context @{
+    \StaffContext
+    \accepts "ImproVoice"
+  @}
+@}
+@end example
+
+Then the output at the start of this subsection can be entered as
+
+@verbatim
+\score {
+  \notes \relative c'' {
+     a4 d8 bes8
+     \new ImproVoice {
+       c4^"ad lib" c 
+       c4 c^"undress"
+       c c_"while playing :)"
+     }
+     a1 
+  }
+}
+@end verbatim
+  
 
     
 @node Which properties to change
diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index 5332dedfb3..2890451ba5 100644
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -112,12 +112,14 @@ potential line breaks.")
 spacing breakable items.")
      (break-align-orders ,vector? " Defines the order in which
 prefatory matter (clefs, key signatures) appears. The format is a
-vector of length 3. Each element is an order for (end-of-line, middle
-of line, and start-of-line). The order is a list of  symbols.
-Clefs are put after key signatures by setting 
+vector of length 3, where each element is one order for end-of-line,
+middle of line, and start-of-line respectively. An order is a list of
+symbols.
+
+For example, clefs are put after key signatures by setting
 
 @example
-	\\property Score.breakAlignOrder = #(make-vector  3
+	\\override Score.BreakAlignment #'break-align-orders = #(make-vector  3
 	  '(span-bar
 	  breathing-sign
 	  staff-bar
diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index c987c97b0a..3c2beb1b57 100644
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -193,10 +193,13 @@
 				(instrument-name left-edge ambitus breathing-sign
 						 clef  staff-bar key-signature
 						 time-signature custos)
+
+				; unbroken
 				(instrument-name left-edge ambitus breathing-sign
 						 clef  staff-bar key-signature
 						 staff
 						 time-signature custos)
+				; begin of line
 				(instrument-name left-edge ambitus breathing-sign
 						 clef key-signature staff-bar
 						 time-signature custos)
diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index 5be1f087ef..cbd9f390aa 100644
--- a/scm/document-backend.scm
+++ b/scm/document-backend.scm
@@ -71,8 +71,12 @@
 
 	      (human-listify
 	       (map ref-ify
-		    (map symbol->string
-			 (hashq-ref iface->grob-table (car interface) '() )))))
+		    (sort 
+		     (map symbol->string
+			  (hashq-ref iface->grob-table (car interface) '() ))
+		     string<?)
+		    
+		    )))
 
       )))