From dfd72cd64d931e6f9d7b46efe8de1df6791ae057 Mon Sep 17 00:00:00 2001
From: tux <tux@goldenerreiter.org>
Date: Thu, 22 Oct 2026 11:59:27 +0200
Subject: [PATCH] layout size for inline-scores

---
 .../base/basic_format_and_style_settings.ily     | 16 ++++++++++++++++
 public_includes/layout_bottom.ily                |  2 ++
 2 files changed, 18 insertions(+)

diff --git a/private_includes/base/basic_format_and_style_settings.ily b/private_includes/base/basic_format_and_style_settings.ily
index 0981f72..45db46a 100644
--- a/private_includes/base/basic_format_and_style_settings.ily
+++ b/private_includes/base/basic_format_and_style_settings.ily
@@ -91,6 +91,22 @@ generalLayout = \layout {
      ((custom-size (ly:output-def-lookup base-layout 'size #f)))
      (if custom-size (layout-set-staff-size custom-size))))
 
+% Scores in Markups (z.B. inline-score) kopieren ihr \layout schon beim Parsen,
+% also bevor customized-layout greift. Deshalb nachträglich anpassen.
+#(define (customize-embedded-score-layouts! obj)
+   (cond
+     ((ly:score? obj)
+      (for-each
+        (lambda (def)
+          (let ((custom-size (ly:output-def-lookup def 'size #f))
+                (scope (ly:output-def-scope def)))
+            (if custom-size
+              (layout-set-absolute-staff-size-in-module scope (* custom-size (eval 'pt scope))))))
+        (ly:score-output-defs obj)))
+     ((pair? obj)
+      (customize-embedded-score-layouts! (car obj))
+      (customize-embedded-score-layouts! (cdr obj)))))
+
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %%% kleine Helferlein:
 
diff --git a/public_includes/layout_bottom.ily b/public_includes/layout_bottom.ily
index 60a15b7..b981107 100644
--- a/public_includes/layout_bottom.ily
+++ b/public_includes/layout_bottom.ily
@@ -10,6 +10,8 @@ LAYOUT = \layout {
   #(customized-layout LAYOUT)
 }
 
+#(customize-embedded-score-layouts! (list TEXT TEXT_PAGES))
+
 verselayout = \layout {
   \LAYOUT
   \context {