SILE.registerCommand("thisframeLTR", function(options, content)
  SILE.typesetter.frame.direction = "LTR"
  SILE.typesetter:leaveHmode()
  SILE.typesetter.frame:newLine()
end)

SILE.registerCommand("thisframedirection", function(options, content)
  SILE.typesetter.frame.direction = SU.required(options, "direction", "frame direction")
  SILE.typesetter:leaveHmode()
  SILE.typesetter.frame:init()
end)


SILE.registerCommand("thisframeRTL", function(options, content)
  SILE.typesetter.frame.direction = "RTL"
  SILE.typesetter:leaveHmode()
  SILE.typesetter.frame:newLine()
end)

local bidi = require("unicode-bidi-algorithm")
require("char-def")
local chardata  = characters.data

local reorder = function(n, self)
  local nl = n.nodes
  local newNl = {}
  local matrix = {}
  local levels = {}
  local base_level = self.frame:writingDirection() == "RTL" and 1 or 0
  local prev_level = base_level
  for i=1,#nl do
    if nl[i].options and nl[i].options.bidilevel then
      levels[i] = { level = nl[i].options.bidilevel }
    end
  end
  for i=1,#nl do if not levels[i] then
    -- resolve neutrals
    local left_level, right_level, left, right
    for left = i-1,1,-1 do if nl[left].options and nl[left].options.bidilevel then
      left_level = nl[left].options.bidilevel
      break
    end end
    for right = i+1,#nl do if nl[right].options and nl[right].options.bidilevel then
      right_level = nl[right].options.bidilevel
      break
    end end
    levels[i] = { level = (left_level == right_level and left_level or base_level) }
  end end
  local matrix = bidi.create_matrix(levels,base_level)
  local rv = {}
  local reverse_array = function (t)
    local n = {}
    for i =1,#t do n[#t-i+1] = t[i] end
    for i =1,#t do t[i] = n[i] end
  end
  for i = 1, #nl do
    if nl[i]:isNnode() and levels[i].level %2 == 1 then
      reverse_array(nl[i].nodes)
      for j =1,#(nl[i].nodes) do
        if nl[i].nodes[j].type =="hbox" then
          if nl[i].nodes[j].value.items then reverse_array(nl[i].nodes[j].value.items) end
          reverse_array(nl[i].nodes[j].value.glyphString)
        end
      end
    end
    rv[matrix[i]] = nl[i]
    nl[i].bidiDone = true
    -- rv[i] = nl[i]
  end
  n.nodes = SU.compress(rv)
end

local nodeListToText = function (nl)
  local owners, text = {}, {}
  local p = 1
  for i = 1,#nl do local n = nl[i]
    if n.text then
      local utfchars = SU.splitUtf8(n.text)
      for j = 1,#utfchars do
        owners[p] = { node = n, pos = j }
        text[p] = utfchars[j]
        p = p + 1
      end
    else
      owners[p] = { node = n }
      text[p] = SU.utf8char(0xFFFC)
      p = p + 1
    end
  end
  return owners, text
end

local splitNodeAtPos = function (n,splitstart, p)
  if n:isUnshaped() then
    local utf8chars = SU.splitUtf8(n.text)
    local n2 = SILE.nodefactory.newUnshaped({ text = "", options = table.clone(n.options) })
    local n1 = SILE.nodefactory.newUnshaped({ text = "", options = table.clone(n.options) })
    for i = splitstart,#utf8chars do
      if i <= p then n1.text = n1.text .. utf8chars[i]
      else n2.text = n2.text .. utf8chars[i]
      end
    end
    return n1,n2
  else
    SU.error("Unsure how to split node "..n.." at position p",1)
  end
end

local splitNodelistIntoBidiRuns = function (self)
  local nl = self.state.nodes
  if #nl == 0 then return nl end
  local owners, text = nodeListToText(nl)
  local base_direction = "LTR"
  local flipped_direction = "RTL"
  local base_level = self.frame:writingDirection() == "RTL" and 1 or 0
  local runs = { icu.bidi_runs(table.concat(text), self.frame:writingDirection()) }
  nl = {}
  i = 1
  local lastowner = {node=nil}
  local thisrun = 1
  local offset = 0
  while i <= #text do
    if owners[i].node ~= lastowner.node then
      nl[#nl+1] = owners[i].node
      lastowner = owners[i]
      offset = i - runs[thisrun].start
    end
    if nl[#nl].options then
      nl[#nl].options.direction = runs[thisrun].dir
      nl[#nl].options.bidilevel = runs[thisrun].level
    end
    i = i + 1
    if i > runs[thisrun].start + runs[thisrun].length and thisrun < #runs then
      nl[#nl], nl[#nl+1] = splitNodeAtPos(nl[#nl], 1, runs[thisrun].length - offset+1)
      offset = 1
      thisrun = thisrun+1
    end
  end
  print(nl[3].options)
  return nl
end

local bidiBoxupNodes = function (self)
  local allDone = true
  for i=1,#self.state.nodes do
    if not self.state.nodes[i].bidiDone then allDone = false end
  end
  if allDone then return SILE.defaultTypesetter.boxUpNodes(self) end
  local newNodeList = splitNodelistIntoBidiRuns(self)
  self:shapeAllNodes(newNodeList)
  self.state.nodes = newNodeList
  local vboxlist = SILE.defaultTypesetter.boxUpNodes(self)
  -- Scan for out-of-direction material
  for i=1,#vboxlist do local v = vboxlist[i]
    if v:isVbox() then reorder(v, self) end
  end
  return vboxlist
end

SILE.typesetter.boxUpNodes = bidiBoxupNodes

SILE.registerCommand("bidi-on", function(options, content)
  SILE.typesetter.boxUpNodes = bidiBoxupNodes
end)

SILE.registerCommand("bidi-off", function(options, content)
  SILE.typesetter.boxUpNodes = SILE.defaultTypesetter.boxUpNodes
end)

return {
reorder = reorder,
documentation = [[\begin{document}

Scripts like the Latin alphabet you are currently reading are normally written left to
right; however, some scripts, such as Arabic and Hebrew, are written right to left.
The \code{bidi} package, which is loaded by default, provides SILE with the ability to
correctly typeset right-to-left text and also documents which mix right-to-left and
left-to-right typesetting. Because it is loaded by default, you can use both
LTR and RTL text within a paragraph and SILE will ensure that the output
characters appear in the correct order.

The \code{bidi} package provides two commands, \command{\\thisframeLTR} and
\command{\\thisframeRTL}, which set the default text direction for the current frame.
That is, if you tell SILE that a frame is RTL, the text will start in the right margin
and proceed leftward. It also provides the commands \command{\\bidi-off} and
\command{\\bidi-on}, which allow you to trade off bidirectional support for a dubious
increase in speed.

\end{document}]] }
