(map (lambda (x) (char->entity x)) (string->list string))))
(define pango-description-regexp-comma
- (make-regexp "^([^,]+), ?([-a-zA-Z_]*) ([0-9.]+)$"))
+ (make-regexp "([^,]+), ?([-a-zA-Z_]*) ([0-9.]+)$"))
(define pango-description-regexp-nocomma
- (make-regexp "^([^ ]+) ([-a-zA-Z_]*) ?([0-9.]+)$"))
+ (make-regexp "([^ ]+) ([-a-zA-Z_]*) ?([0-9.]+)$"))
(define (pango-description-to-svg-font str)
(let*
(set! size
(string->number (match:substring match 3))))
- (ly:warning (_ "can't decypher Pango description: ~a") str))
+ (ly:warning (_ "cannot decypher Pango description: ~a") str))
(set! style
(if (string? style)