Re: page ranges in \markpage

[Hans Hagen <j.hagen@xs4all.nl>]

On 7/19/2018 9:56 PM, Pablo Rodriguez wrote:
> On 07/18/2018 09:08 PM, Wolfgang Schuster wrote:
>>
>> [...]
>> Afterwards you can use a loop where you add the markpage commands at
>> the begin and end of the range, below is a simple example but it’s easy
>> to write a better loop with Lua.
>>
>> \setuplayout[page]
>> \setupinteraction[state=start]
>> \setupinteractionscreen[option={portrait, paper}, print=pages]
>> \starttext
>> \getfiguredimensions[i-context.pdf]
>> \dostepwiserecurse{1}{99}{1}{\externalfigure[i-context.pdf][height=\textheight,page=\recurselevel]}
>> \startmarkpages[page]
>> \dostepwiserecurse{100}{300}{1}{\externalfigure[i-context.pdf][height=\textheight,page=\recurselevel]}
>> \stopmarkpages
>> \dostepwiserecurse{301}{\noffigurepages}{1}{\externalfigure[i-context.pdf][height=\textheight,page=\recurselevel]}
>> \stoptext
> 
> Wolfgang
> 
> a different approach would be (code was mainly provided by anoter person):
> 
>      \startluacode
>      function document.splitarray(inputstr, sep)
>        local t={}
>        for str in inputstr:gmatch("([^"..sep.."]+)") do
>          table.insert(t, str)
>        end
>        return t
>      end
> 
>      function document.getpagearray(page_ranges)
>        local page_array={}
>        local ranges = document.splitarray(page_ranges, ",")
>        for _, pp in ipairs(ranges) do
>          if string.find(pp, "-") then
>            aux = document.splitarray(pp, "-")
>            for i=tonumber(aux[1]), tonumber(aux[2]), 1 do
>              table.insert(page_array, i)
>            end
>          else
>             table.insert(page_array, tonumber(pp))
>          end
>        end
>        return page_array
>      end
> 
>      function document.printmarkedpageranges(tag, page_ranges)
>        page_array = document.getpagearray(page_ranges)
>        context("\\markpage[" .. tag .. "][" ..
>            table.concat(page_array, ", ") .. "]")
>      end
>      \stopluacode
> 
>      \def\getmarkedpageranges#1#2{%
>          \ctxlua{document.printmarkedpageranges("#1","#2")}}
>      \setuplayout[page]
>      \setupinteraction[state=start]
>      \setupinteractionscreen[option={portrait, paper}, print=pages]
>      \getmarkedpageranges{pages}{5, 25-30, 100-200, 235, 298, 304}
>      \starttext
>      \insertpages[i-context.pdf][width=0pt]
>      \stoptext
> 
> This makes easier to add more complex page intervals (such as the one
> above).
> 
> Before adding this to the wiki, my question would be whether it might
> not be easier to add page ranges to \markpage.

nicer code

local function getpagearray(page_ranges)
     local list   = { }
     local ranges = string.split(page_ranges, ",")
     for i=1,#ranges do
         local f = string.split(ranges[i], "-")
         for i=tonumber(f[1]), tonumber(f[2] or f[1]) do
             list[i] = true
         end
     end
     return table.sortedkeys(list)
end

inspect(getpagearray("1-5,8,12-19"))

or even better

local function getpagearray(str,max)
     local list = { }
     local function add(i)
         list[i] = true
     end
     if max then
         utilities.parsers.stepper(str,max,add)
     else
         utilities.parsers.stepper(str,add)
     end
     return table.sortedkeys(list)
end

inspect(getpagearray("1-5,8,12-19,88-",100))

and then

function document.printmarkedpageranges(tag,str)
     context.markpage({ tag }, getpagearray(str))
end

> I mean, as a standard user I think there is too much code (which may be
> improved and made part of ConTeXt) for such a simple need.
> 
> Of course, I may be missing the whole point in this issue.
> 
> I would really appreciate, if someone could explain me what is wrong in
> my assumption that \markpages need also page intervals.


-- 

-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
        tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://context.aanhet.net
archive  : https://bitbucket.org/phg/context-mirror/commits/
wiki     : http://contextgarden.net
___________________________________________________________________________________