diff options
| author | David Kastrup <dak@gnu.org> | 2016-06-03 16:46:20 +0200 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2016-06-09 09:55:30 +0200 |
| commit | 339ead1a074ea4504ecc5d6d4f2d5561e2a0a567 (patch) | |
| tree | 275636ddb3a03e4339e1e301d2ffe141f9d55449 /scm | |
| parent | 67cd07e55d5ec908c246ae543e480d367b61d6b3 (diff) | |
Issue 4879: Display \time beat structure as list
Example: \displayLilyMusic \time 1,2 3/4
Diffstat (limited to 'scm')
| -rw-r--r-- | scm/define-music-display-methods.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm index a3b620469d..42637cd16c 100644 --- a/scm/define-music-display-methods.scm +++ b/scm/define-music-display-methods.scm @@ -859,7 +859,11 @@ Otherwise, return #f." num den (new-line->lily-string)) (format #f - "\\time #'~a ~a/~a~a" + ;; This is silly but the latter will also work for #f + ;; and other + (if (key-list? structure) + "\\time ~{~a~^,~} ~a/~a~a" + "\\time #'~a ~a/~a~a") structure num den (new-line->lily-string))))) |