+
+ ;; this is not very elegant, but center-aligning all digits
+ ;; is problematic with other markups, and shows problems
+ ;; in the (lack of) overshoot of feta alphabet glyphs.
+
+ ((if (<= 10 figure)
+ (lambda (y) (make-translate-scaled-markup (cons -0.7 0) y))
+ identity)
+
+ (if (eq? #t (ly:music-property event 'diminished))
+ (markup #:slashed-digit figure)
+ (markup #:number (number->string figure 10))))