add chordlyrics and nochordlyrics

verses_with_chords.ly

@@ -190,4 +190,52 @@
           (map (lambda (column-markups)
               (make-column-markup
                 (add-markup-between-elements #t (make-vspace-markup verse-vspace) column-markups)))
-            column-data)))))))))
+            column-data)))))))))
+
+#(define-markup-command (pad-left layout props amount arg)
+  (number? markup?)
+  (let* ((m (interpret-markup layout props arg))
+         (x (ly:stencil-extent m X))
+         (y (ly:stencil-extent m Y)))
+    (ly:stencil-translate
+      (ly:make-stencil (ly:stencil-expr m)
+                       (cons (- (car x) amount) (cdr x))
+                       y)
+      `(,amount . 0))))
+
+#(define-markup-command (chordlyrics layout props lyrics) (ly:music?)
+   #:properties ((verse-chords #f)
+                 (verse-reference-voice #f)
+                 (verse-break-voice #f))
+  "Vers mit Akkorden"
+  (interpret-markup layout props
+    #{
+      \markup {
+        \override #'(baseline-skip . 0.3)
+        \pad-left #-10
+        \score {
+          \transposable
+          <<
+            \new Devnull { #(if (ly:music? verse-break-voice) verse-break-voice) }
+            #(if (ly:music? verse-chords) verse-chords songChords)
+            \new NullVoice { #(if (ly:music? verse-reference-voice) verse-reference-voice firstVoice) }
+            \addlyrics { #lyrics }
+          >>
+          \layout {
+            \lyricsWithChordsLayout
+            \context {
+              \Staff
+              \override LeftEdge.space-alist.first-note = #'(fixed-space . 10.0)
+            }
+          }
+        }
+      }
+    #}
+  )
+)
+
+#(define-markup-command (nochordlyrics layout props lyrics) (ly:music?)
+    "Vers ohne Akkorde"
+  (interpret-markup layout props
+    (markup #:override `(verse-chords . ,#{#}) #:chordlyrics lyrics))
+)