(define hufnagel (get-group glyph-list "^.*hufnagel.*$"))
(define petrucci (get-group glyph-list "^.*petrucci.*$"))
(define solesmes (get-group glyph-list "^.*solesmes.*$"))
+ (define kievan (get-group glyph-list "^.*kievan.*$"))
;; remove ancient-music groups from the glyph-list
(for-each
mensural
neomensural
petrucci
- solesmes))
+ solesmes
+ kievan))
;; define all remaining groups
(define numbers
(define shape-note-noteheads
(get-group glyph-list
- "^noteheads.[dsu][012](do|re|mi|fa|la|ti)$"))
+ "^noteheads.[dsu][012](do|re|mi|fa|sol|la|ti)(Thin|Mirror|Funk|Walker)*$"))
(define clefs (get-group glyph-list "^clefs\\."))
(define timesig (get-group glyph-list "^timesig\\."))
(define brackettips (get-group glyph-list "^brackettips\\."))
(define pedal (get-group glyph-list "^pedal\\."))
(define accordion (get-group glyph-list "^accordion\\."))
+ (define ties (get-group glyph-list "^ties\\."))
;; remove all remaining groups from the glyph-list
(for-each
arrowheads
brackettips
pedal
- accordion))
+ accordion
+ ties))
;;;;;;;;;
evenFooterMarkup = \markup {}
}
-\version "2.12.0"
+\version "2.14.0"
#(define-markup-command (doc-char layout props name) (string?)
(interpret-markup layout props