From: Mark Polesky <markpolesky@yahoo.com>
Date: Tue, 17 Jun 2014 22:11:31 +0000 (-0700)
Subject: Issue 3952: Automatically sort props within each grob-interface.
X-Git-Tag: release/2.19.9-1~21
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=84f0776;p=lilypond.git

Issue 3952: Automatically sort props within each grob-interface.

Ensures that "User settable properties" and "Internal properties"
are listed in sorted order in the "Graphical Object Interfaces"
section of the IR.
---

diff --git a/scm/document-backend.scm b/scm/document-backend.scm
index d9ec2b00b5..406f09aacb 100644
--- a/scm/document-backend.scm
+++ b/scm/document-backend.scm
@@ -176,6 +176,16 @@ node."
      (cons (cons key val)  prior))
    '() (ly:all-grob-interfaces)))
 
+;; sort user-settable and internal props within each grob-interface
+(set! interface-description-alist
+  (map! (lambda (iface-desc)
+          (let* ((key-name-docstr (list-head iface-desc 3))
+                 (props           (list-tail iface-desc 3))
+                 (sorted-props    (list (sort (car props) ly:symbol-ci<?))))
+            (append key-name-docstr sorted-props)))
+        interface-description-alist))
+
+;; sort list of grob interfaces
 (set! interface-description-alist
       (sort interface-description-alist ly:alist-ci<?))