On Thu, 2017-07-13 at 15:07 +0200, David Kastrup wrote:
> Richard Shann <rich...@rshann.plus.com> writes:
>
> > On Thu, 2017-07-13 at 12:47 +0100, James wrote:
> >> > I am not top posting
> >>
> >> This 'patch' does not apply to current master so I could not test it
> >> even if I wanted to
> >
> > Ah, yes, sorry, I looked into what parameters git uses for its diff but
> > didn't think about the directory you would want to run patch from.
> > I've made a git clone of the repository and used git diff now to get the
> > attached patch.
>
> That doesn't help much I think. Create an actual commit with commit
> message, then format that using
>
> git format-patch HEAD~1
ah, ok. That gives the attached.
Richard
From 336daa273929815ecb4b6e1a2be5a56f743b1181 Mon Sep 17 00:00:00 2001
From: Richard Shann <richard.sh...@virgin.net>
Date: Thu, 13 Jul 2017 14:00:48 +0100
Subject: [PATCH] Fix centering of single figures and lone accidentals when
occurring on whole notes and longer durations
---
scm/translation-functions.scm | 11 ++++-------
1 file changed, 4 insertions(+), 7 deletions(-)
diff --git a/scm/translation-functions.scm b/scm/translation-functions.scm
index 0ed0def..cd78d83 100644
--- a/scm/translation-functions.scm
+++ b/scm/translation-functions.scm
@@ -184,13 +184,10 @@ way the transposition number is displayed."
(set! alt-markup #f)))
- ;; hmm, how to get figures centered between note, and
- ;; lone accidentals too?
-
- ;; (if (markup? fig-markup)
- ;; (set!
- ;; fig-markup (markup #:translate (cons 1.0 0)
- ;; #:center-align fig-markup)))
+ (if (and (>= 0 (ly:duration-log (ly:event-property event 'duration))) (markup? fig-markup))
+ (set!
+ fig-markup (markup #:translate (cons 1.0 0)
+ #:center-align fig-markup)))
(if alt-markup
(set! fig-markup
--
2.1.4
_______________________________________________
lilypond-devel mailing list
lilypond-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-devel
