Re: page ranges in \markpage

[Pablo Rodriguez <oinos@gmx.es>]

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.

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.

Many thanks for your help,

Pablo
-- 
http://www.ousia.tk
___________________________________________________________________________________
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
___________________________________________________________________________________