From 57bcf941670c1c93e55a5e2e7eb0ba78e296a343 Mon Sep 17 00:00:00 2001
From: "zuk (Jakob Krueger)" <zuk@singekreise.de>
Date: Sun, 27 Apr 2025 16:02:57 +0400
Subject: [PATCH] add default chordName exceptions

---
 chord_settings.ly | 37 ++++++++++++++++++++++++++++++++++---
 default_style.ly  |  3 ++-
 2 files changed, 36 insertions(+), 4 deletions(-)

diff --git a/chord_settings.ly b/chord_settings.ly
index f8d8e37..84b03c1 100644
--- a/chord_settings.ly
+++ b/chord_settings.ly
@@ -104,11 +104,42 @@ altChord =
 % additional bass notes should get uppercased
 #(define (bassnote-name->german-markup-nosym pitch lowercase?)(note-name->german-markup-nosym pitch #f))
 
+defaultChordPrintings = {
+  <c g>-\markup { \super "5" }
+  %% Dur
+  <c e g a>-\markup { \super "6" } %Standardverhalten
+  <c e a >-\markup { \super "6(no5)" }
+  <c e g a d'>-\markup { \super "6/9" }
+  <c e g b d'>-\markup { \super "9" } %Standardverhalten
+  <c e g b d' f'>-\markup { \super "11" } %Standardverhalten
+  <c e g b d' a'>-\markup { \super "13" }
+  %add chords
+  <c e g d'>-\markup { \super "add9" }
+  <c e g f'>-\markup { \super "add11" }
+  <c e g a'>-\markup { \super "add13" }
+  %major chords
+  <c e g h d'>-\markup { \super "maj9" }
+  %% Moll
+  <c es g a>-\markup { \super "6" } %Standardverhalten
+  <c es a >-\markup { \super "6(no5)" }
+  <c es g a d'>-\markup { \super "6/9" }
+  <c es g b d'>-\markup { \super "9" } %Standardverhalten
+  <c es g b d' f'>-\markup { \super "11" } %Standardverhalten
+  <c es g b d' a'>-\markup { \super "13" }
+  %add chords
+  <c es g d'>-\markup { \super "add9" }
+  <c es g f'>-\markup { \super "add11" }
+  <c es g a'>-\markup { \super "add13" }
+  %major chords
+  <c es g h d'>-\markup { \super "maj9" }
+}
 
 #(define chordNameExceptions
-  (if (defined? 'customChordPrintings)
-  (sequential-music-to-chord-exceptions customChordPrintings #t)
-  '()))
+  (append
+    (if (defined? 'customChordPrintings)
+      (sequential-music-to-chord-exceptions customChordPrintings #t)
+      '())
+    (sequential-music-to-chord-exceptions defaultChordPrintings #t)))
 
 generalLayout = \layout {
   \generalLayout
diff --git a/default_style.ly b/default_style.ly
index 0f651b6..9bf7eb7 100644
--- a/default_style.ly
+++ b/default_style.ly
@@ -22,12 +22,13 @@ refStringWithNumbers = "Ref. ~a:"
 % hübsche Wiederholungszeichen für den Liedtext
 repStart = "𝄆"
 repStop = "𝄇"
+customChordPrintings = {}
 
 \paper {
   cueMarkup = \markup {
     \italic
       #(make-on-the-fly-markup (lambda (layout props m)
-        (interpret-markup layout props 
+        (interpret-markup layout props
           (string-join (map (lambda (n) (format #f "~@r." n)) (chain-assoc-get 'cues props)) ", ")))
         (make-null-markup))
   }