Re: Add an expert font tree interface (issue 108700043 by address@hidden)

[janek . lilypond]

https://codereview.appspot.com/108700043/diff/80001/scm/font.scm
File scm/font.scm (right):

https://codereview.appspot.com/108700043/diff/80001/scm/font.scm#newcode285
scm/font.scm:285: (let ((n (make-font-tree-node 'font-encoding
'fetaMusic)))
On 2014/07/24 20:55:54, Mark Polesky wrote:
> I'd find this formatting easier to read:

>    (let ((n (make-font-tree-node 'font-encoding 'fetaMusic)))
>      (add-music-fonts n "emmentaler" 'feta feta-design-size-mapping
factor)
>      (for-each
>        (lambda (L)
>          (let* ((lily-family (list-ref L 0))
>                 (shape (list-ref L 1))
>                 (series (list-ref L 2))
>                 (scale (if (= (length L) 5)
>                          (list-ref L 4 )
>                          1.0))
>                 (desc (string-append (list-ref L 3)
>                                      " "
>                                      (number->string (* scale (ly:pt
12))))))
>            (add-expert-node n lily-family shape series desc)))
>        font-spec-list)
>      n))

+1

https://codereview.appspot.com/108700043/