--[[ LuaEUM ]]--

----------------------------------------
--[[ description:
  -- Edit of subtitles.
  -- Правка субтитров.
--]]
----------------------------------------
--[[ uses:
  LuaFAR,
  Rh Utils.
  -- group: Subtitles, DateTime.
--]]
--------------------------------------------------------------------------------

----------------------------------------
--local context, ctxdata = context, ctxdata

local types = ctxdata.config.types

local utils = require 'context.utils.useUtils'
local numbers = require 'context.utils.useNumbers'
--local tables = require 'context.utils.useTables'
local locale = require 'context.utils.useLocale'

local n2s = numbers.n2s

--------------------------------------------------------------------------------
local unit = {}

---------------------------------------- Show
local dbgs

local function doShow (...)
  dbgs = dbgs or require "context.utils.useDebugs"
  return dbgs.Show(...)
end -- doShow

local function datShow (...)
  dbgs = dbgs or require "context.utils.useDebugs"
  return dbgs.ShowData(...)
end -- datShow

---------------------------------------- Datim
local SubsDatim = require "Rh_Scripts.LuaUM.scripts.SubsDatim"
--local TplKit = SubsDatim.TplKit

local Datim = require "Rh_Scripts.Utils.DateTime"
local newTime = Datim.newTime

---------------------------------------- Main data
unit.ScriptName = "Subtitles"
unit.PluginPath = utils.PluginPath
unit.ScriptPath = "scripts\\Rh_Scripts\\LuaUM\\scripts\\"

---------------------------------------- ---- Custom
local DefCustom = {
  name = unit.ScriptName,
  path = unit.ScriptPath,
  locale = { kind = 'load', },
} ---

---------------------------------------- ---- Locale
local L, e1, e2 = locale.localize(DefCustom)
if L == nil then
  return locale.showError(e1, e2)
end

unit.Locale = L

---------------------------------------- Configure
--local addNewData = tables.extend

---------------------------------------- Show
-- Показ типа файла субтитров.
function unit.SubtitleType () --| (window)
  local SubType = SubsDatim.getFileType()
  local SubDesc = ""
  if SubType then SubDesc = types[SubType].desc or "" end
  if SubDesc ~= "" then SubDesc = "\n"..SubDesc end

  return far.Message((SubType or L.SubtitleUnknownType)..SubDesc,
                     L.cap_SubtitleType)
end ----

-- Показ данных по линии файла.
function unit.CurClauseData () --| (window)
  local tp = SubsDatim.getFileType()
  if not tp then return end

  local data = SubsDatim.getLineData(tp)

  return doShow(data, L.cap_CurClauseData)
end ----

-- Показ данных по разнице как времени.
function unit.getClauseShowData (dif, lines) --> (table, table)
  local dif = dif or 0
  local time = newTime():from_z(dif)

  local lines = lines == nil and 4 or lines

  local show = {
    L.TimeLenAssaFmt:format(time.h, time.n, time.s, time:cz()),
    lines >= 1 and L.TimeLenDataFmt:format(time:data()) or nil,
    lines >= 2 and L.TimeLenMsecFmt:format(n2s(dif)) or nil,
    lines >= 2 and L.TimeLenTextFmt:format(time:data()) or nil,
  } ---
  local kind = {
    ShowLineNumber = false,
    --ChosenToClip   = true,
  } ---

  return show, kind 
end ---- getClauseShowData

-- Показ длины отрезка времени на линии файла.
function unit.CurClauseLen (lines) --| (window)
  local tp = SubsDatim.getFileType()
  if not tp then return end

  local dif = SubsDatim.getClauseLen(tp)

  local show, kind = unit.getClauseShowData(dif, lines)

  return datShow(show, L.cap_CurClauseLen, kind)
end ---- CurClauseLen

-- Показ длины паузы перед отрезком времени на линии файла.
function unit.CurClauseGap (lines) --| (window)
  local tp = SubsDatim.getFileType()
  if not tp then return end

  local dif = SubsDatim.getClauseGap(tp)

  local show, kind = unit.getClauseShowData(dif, lines)

  return datShow(show, L.cap_CurClauseLen, kind)
end ---- CurClauseGap

local unpack = unpack

function unit.ShowClauseAll (title, ...)
  local args = {...}

  local items = {}

  for a = 1, #args do
    local t = args[a]

    if type(t) == 'table' then
      for k = 1, #t do
        items[#items + 1] = { text = t[k], }
      end
    else
      items[#items + 1] = { text = t, separator = true, }
    end
  end -- for

  local props = {
    Title = title,
    Flags = 'FMENU_SHOWAMPERSAND',
  } ---

  dbgs = dbgs or require "context.utils.useDebugs"

  return far.Menu(props, items, dbgs.BKeys)
end -- ShowClauseAll

-- Показ длины отрезка времени на линии файла и паузы перед ним.
function unit.CurClauseAll () --| (window)
  local tp = SubsDatim.getFileType()
  if not tp then return end

  local difLen = SubsDatim.getClauseLen(tp)
  local difGap = SubsDatim.getClauseGap(tp)

  local showLen       = unit.getClauseShowData(difLen, 0)
  local showGap, kind = unit.getClauseShowData(difGap, 0)

  return unit.ShowClauseAll(L.cap_CurClauseAll,
                            L.cap_CurClauseLen, showLen,
                            L.cap_CurClauseGap, showGap)
  --[[
  local show = {}
  show[#show + 1] = L.cap_CurClauseLen
  for k = 1, #showLen do show[#show + 1] = showLen[k] end
  show[#show + 1] = L.cap_CurClauseGap
  for k = 1, #showLen do show[#show + 1] = showGap[k] end

  return datShow(show, L.cap_CurClauseAll, kind)
  --]]
end ---- CurClauseAll

--------------------------------------------------------------------------------
return unit
--------------------------------------------------------------------------------