Re: [SPAM] Re: Multiple place number skip ranges

[Thomas Morley]

2016-05-07 15:17 GMT+02:00 David Nalesnik <address@hidden>:
> Hi Harm,
>
> On Sat, May 7, 2016 at 5:52 AM, Thomas Morley <address@hidden> wrote:
>> 2016-05-07 10:53 GMT+02:00 Peter Gentry <address@hidden>:
>>
>>> Could I sugeest that the range data is input in the individual music file 
>>> rather than the procedure so that the procedure remains
>>> unchanged for any arrangement of page ranges. It should be a minor addition 
>>> that would make the snippet much more usuable as one of
>>> the staple includes.
>>>
>>>
>> Hi Peter,
>>
>> not sure what you mean, could you elaborate more detailed?
>>
>> Anyway, I reworked it
>> http://lsr.di.unimi.it/LSR/Item?u=1&id=1036
>>
>
>
> Looks great!   The comments below make some grammatical corrections.
> Thanks for doing this!
>
> %%%%%%%%%%%%%%%
>
> #(define-markup-command (use-page-number-ranges layout props)()
>   "Reads @code{'page-number-ranges} from @var{layout} and transforms it into a
> flat list of integers.  Prints a number-string taken from this list for
> page-numbering.
> The values are referenced by the actual page-number. If all elements of this
> list are consumed, additional pages are numbered consecutive.
>
>
> ;;;;  consecutive --> consecutively
>
>
> An empty list will cause default page-numbers.  Same for non-list settings or
> unsetting of @code{'page-number-ranges}
>
>
> ;;;; An empty list will cause default page-numbers, as will non-list settings 
> or
> ;;;; unsetting of @code{'page-number-ranges}
>
>
> Limitations:
>   - doesn't work for roman page-numbers.
>   - only integer page-numbers are supported"
>
>   (define (page-numbers ranges)
>     ;; get a flat, unfolded list from a list containing ranges of integers.
>     ;; p.e. '((1) (3 5) (7 10)) -> '(1 3 4 5 7 8 9 10)
>     (append-map
>       (lambda (e)
>         (if (every integer? e)
>             (iota (- (last e) (1- (car e))) (car e) 1)
>             (ly:error "All elements needs to be integers: ~a" e)))
>
>
> ;;;; needs --> need
>
>
>         ranges))
>
>
>   [snip]
>
> %%%%%%%%%%%%%%%%%%
>
> Best,
> David

All done as suggested.
I'll let it unapproved for few more days in case somebody comes up
with further suggestions.

Thanks a lot for review.,
  Harm