fix: Rehearsal marks and dynamic text

Author: codello

elements.ily

@@ -58,6 +58,21 @@ noSignature = {
 %! after an ellipsis.
 forceBarNumber = \once \override Score.BarNumber.break-visibility = #end-of-line-invisible
 
+%! Function: pDolce
+%! --- Prototype
+%! \pDolce
+%! ---
+%! Dynamic command for piano dolce.
+%!
+%! Example:
+%! --- LilyPond
+%! c d e\pDolce f
+%! ---
+pDolce = #(make-dynamic-script
+            (markup #:hspace 5
+                    #:dynamic "p"
+                    #:normal-text #:italic "dolce"))
+
 %! Function: pizz
 %! --- Prototype
 %! \pizz

pdq.ily

@@ -129,15 +129,15 @@ opt-default-tagline = #(get-option 'defaultTagline #f)
 #(define (format-mark-pdq mark context)
   (markup
     (#:box (#:pad-to-box '(-2 . 2) '(-2 . 2) (#:hcenter-in 4 (#:vcenter
-      (#:bold (#:fontsize 3 (make-markalphabet-markup (1- mark))))))))))
+      (#:bold (#:fontsize 3 (make-markalphabet-markup mark)))))))))
 
 %! Function: format-mark-pdq-numeric
 %! Formats rehearsal marks with numbers instead of letters. The formatter puts every
 %! mark in a square box. The marks are printed quite large for better readability.
 #(define (format-mark-pdq-numeric mark context)
   (markup
     (#:box (#:pad-to-box '(-2 . 2) '(-2 . 2) (#:hcenter-in 4 (#:vcenter
-      (#:bold (#:fontsize 3 (number->string (1- mark))))))))))
+      (#:bold (#:fontsize 3 (number->string mark)))))))))
 
 %!======================================================================================
 %! Section: PDQ Paper