Re: Tracker 836: Add facility to change output file-name for a \book block

[n . puttock]

http://codereview.appspot.com/143055/diff/2010/2013
File ly/music-functions-init.ly (left):

http://codereview.appspot.com/143055/diff/2010/2013#oldcode604
Line 604: (ly:music-property main-note 'elements))))
goes with (lambda

http://codereview.appspot.com/143055/diff/2010/2013
File ly/music-functions-init.ly (right):

http://codereview.appspot.com/143055/diff/2010/2013#newcode611
Line 611: (filter
goes with `a' in (lambda

http://codereview.appspot.com/143055/diff/2010/2013#newcode612
Line 612: (lambda (m) (eq? 'NoteEvent (ly:music-property m 'name)))
goes with filter

http://codereview.appspot.com/143055/diff/2010/2013#newcode613
Line 613: (ly:music-property ev-chord 'elements))))
same as above

http://codereview.appspot.com/143055/diff/2010/2013#newcode614
Line 614: (sec-note-events (get-notes secondary-note))
goes with (get-notes

http://codereview.appspot.com/143055/diff/2010/2013#newcode615
Line 615: (trill-events (filter (lambda (m) (music-has-type m
'trill-span-event))
as above

http://codereview.appspot.com/143055/diff/2010/2013#newcode618
Line 618: (if (pair? sec-note-events)
goes with `e' in (let*

http://codereview.appspot.com/143055/diff/2010/2013#newcode619
Line 619: (begin
aligns with (pair?

http://codereview.appspot.com/143055/diff/2010/2013#newcode621
Line 621: (forced (ly:music-property (car sec-note-events )
(car sec-note-events)

http://codereview.appspot.com/143055/diff/2010/2013#newcode631
Line 631: (if (eq? forced #t)
same level as (if (ly:pitch? trill-pitch)

http://codereview.appspot.com/143055/diff/2010/2013#newcode634
Line 634: trill-events)))))
aligns with (lambda

http://codereview.appspot.com/143055/diff/2010/2013#newcode635
Line 635: main-note))
unindent to same level as (if (pair? sec-note-events)

http://codereview.appspot.com/143055/diff/2010/2014
File scm/lily-library.scm (right):

http://codereview.appspot.com/143055/diff/2010/2014#newcode102
Line 102: (if (symbol? permission)
aligns with `e' in (let

http://codereview.appspot.com/143055/diff/2010/2014#newcode175
Line 175: "[^-[:alnum:]]"
goes with `s' in string-regexp-substitute

http://codereview.appspot.com/143055/diff/2010/2014#newcode176
Line 176: "_"
as above

http://codereview.appspot.com/143055/diff/2010/2014#newcode177
Line 177: output-suffix))))
as above

http://codereview.appspot.com/143055