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/
_______________________________________________
lilypond-devel mailing list
lilypond-devel@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-devel
