pecha.lua

--- tbook document class.
-- @use classes.tbook

local plain = require("classes.plain")

local class = pl.class(plain)
class._name = "pecha"

local tibetanNumber = function (n)
   local out = ""
   local a = 0x0f20
   repeat
      out = luautf8.char(n % 10 + a) .. out
      n = (n - n % 10) / 10
   until n < 1
   return out
end

class.defaultFrameset = {
   content = {
      left = "5%pw",
      right = "95%pw",
      top = "5%ph",
      bottom = "90%ph",
   },
   folio = {
      left = "right(content)",
      rotate = -90,
      width = "2.5%pw",
      top = "top(content)",
      height = "height(content)",
   },
   runningHead = {
      width = "2.5%pw",
      rotate = -90,
      right = "left(content)",
      top = "top(content)",
      height = "height(content)",
   },
}

function class:_init (options)
   plain._init(self, options)
   self:loadPackage("rotate")
   self:registerPostinit(function ()
      SILE.call("language", { main = "bo" })
      SILE.settings:set("document.lskip", SILE.types.node.hfillglue())
      SILE.settings:set("typesetter.parfillskip", SILE.types.node.glue())
      SILE.settings:set("document.parindent", SILE.types.node.glue())
   end)
end

function class:endPage ()
   local folioframe = SILE.getFrame("folio")
   SILE.typesetNaturally(folioframe, function ()
      SILE.settings:pushState()
      -- Restore the settings to the top of the queue, which should be the document #986
      SILE.settings:toplevelState()
      SILE.settings:set("typesetter.breakwidth", folioframe:height())
      SILE.typesetter:typeset(" ")
      SILE.call("vfill")
      SILE.call("pecha-folio-font")
      SILE.call("center", {}, function ()
         SILE.typesetter:typeset(tibetanNumber(SILE.scratch.counters.folio.value))
      end)
      SILE.call("vfill")
      SILE.typesetter:leaveHmode()
      SILE.settings:popState()
   end)
   return plain.endPage(self)
end

function class:newPage ()
   SILE.outputter:newPage()
   SILE.outputter:debugFrame(SILE.getFrame("content"))
   return self:initialFrame()
end

return class

-- \right-running-head{\font[size=15pt]{\center{ཤེས་རབ་སྙིང་པོ་ }}}