--[[ Macros with LuaFAR for Editor ]]--

----------------------------------------
--[[ description:
  -- Macros with LuaFAR for Editor plugin.
  -- Макросы с плагином LuaFAR for Editor.
--]]
----------------------------------------
--[[ uses:
  nil.
  -- group: Macros/Plugins.
--]]
--------------------------------------------------------------------------------

----------------------------------------
local far = far
local F = far.Flags

local BlockNoneType = F.BTYPE_NONE

local editor = editor

----------------------------------------
--[[
local dbg = require "context.utils.useDebugs"
local logShow = dbg.Show
--]]

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

----------------------------------------
local guids = {}
--unit.guids = guids

local Macro = Macro or function () end
local Plugin = Plugin or {}

local Async = function () return mmode(3, 1) end

local PluginExist = Plugin.Exist
local PluginMenu, CallPlugin = Plugin.Menu, Plugin.Call

---------------------------------------- 'L' -- LuaFAR for Editor

guids.LF4Ed = "6F332978-08B8-4919-847A-EFBB6154C99A"

local Exist = function () return PluginExist(guids.LF4Ed) end

-- [[
Macro {
  area = "Shell Editor Viewer",
  key = "CtrlL",
  flags = "",
  description = "LF4Ed: Menu",
  condition = Exist,
  action = function ()
    --return CallPlugin(guids.LF4Ed)
    return PluginMenu(guids.LF4Ed)
  end, ---
} ---
--]]
---------------------------------------- 'M' -- -- Lua User Menu
guids.LUM = "00B06FBA-0BB7-4333-8025-BA48B6077435"
--guids.CustomMenu = "3700ABE9-C460-42B2-9F2E-1FE705B2942A"

local function ShowLUM (key, guid) --> (bool)
  if not PluginMenu(guids.LF4Ed) then return end
  Keys(key or "M")
  --far.Message(Menu.Id, guids.LUM)
  return Menu.Id == (guid or guids.LUM)
end -- ShowLUM

-- [[
Macro {
  area = "Shell Editor Viewer",
  key = "AltShiftF2",
  flags = "",
  description = "LUM: Lua User Menu",
  condition = Exist,
  action = ShowLUM,
} ---

Macro {
  area = "Shell Editor Viewer",
  key = "CtrlAltShiftF2",
  flags = "",
  description = "LUM: Tortoise SVN",
  condition = Exist,
  action = function ()
    return ShowLUM("S")
    --if ShowLUM("S") then return Keys"T" end
  end, ---
} ---

--[=[
Macro {
  area = "Editor",
  key = "CtrlJ",
  flags = "",
  description = "LUM: Template Insert",
  condition = Exist,
  action = function ()
    if ShowLUM"M" then return Keys"J" end
  end, ---
} ---
--]=]
--]]
----------------------------------------     -- -- LUM Items
-- [[
Macro {
  --area = "Common",
  area = "Shell Editor Viewer",
  --area = "Shell Editor Viewer Dialog",
  key = "CtrlK",
  flags = "",
  description = "LUM: Calendar",
  condition = Exist,
  action = function ()
    if ShowLUM() then return Keys"A C" end
  end, ---
} ---
Macro {
  --area = "Common",
  area = "Shell Editor",
  --area = "Shell Editor Viewer Dialog",
  key = "CtrlH",
  flags = "",
  description = "LUM: CharsMap",
  condition = Exist,
  action = function ()
    if ShowLUM() then return Keys"A H" end
  end, ---
} ---
Macro {
  area = "Editor",
  key = "CtrlShiftH",
  flags = "",
  description = "LUM: Characters",
  condition = Exist,
  action = function ()
    if ShowLUM() then return Keys"H" end
  end, ---
} ---
Macro {
  area = "Editor",
  key = "CtrlShiftQ",
  flags = "",
  description = "LUM: Quote text",
  condition = Exist,
  action = function ()
    if ShowLUM() then return Keys"Q Q" end
  end, ---
} ---
Macro {
  area = "Editor",
  key = "CtrlShiftT",
  flags = "",
  description = "LUM: Clear text",
  condition = Exist,
  action = function ()
    if ShowLUM() then return Keys"S C" end
  end, ---
} ---
--]]
----------------------------------------     -- -- QuoteMarks
-- [[
do

local QuoteMarks = {
  -- Quotes:
  ["'"] = { key = "Ctrl'",          note = "'|'", },
  ['"'] = { key = "CtrlShift'",     note = '"|"', },
  [";"] = { key = "Ctrl;",          note = "‹|›", },
  [":"] = { key = "CtrlShift;",     note = "«|»", },
  ["1"] = { key = "CtrlAltShift2",  note = "‘|’", },
  -- ‘|’
  -- “|”
  -- ‚|‘
  -- „|“

  -- Brackets:
  ["["] = { key = "Ctrl[",          note = "[|]", },
  ["{"] = { key = "CtrlShift[",     note = "{|}", },
  ["("] = { key = "Ctrl]",          note = "(|)", },
  -- --
  ["<"] = { key = "Ctrl,",          note = "<|>", },
  [">"] = { key = "Ctrl.",          note = "⟨|⟩", },
  ["/"] = { key = "Ctrl/",          note = "/|/" },
 ["\\"] = { key = "CtrlShift/",     note = "\\|\\", },

  -- Comments:
  ["d"] = { key = "CtrlAltShift[",  note = "{ | }", },
  ["p"] = { key = "CtrlShift]",     note = "(*|*)", },
  ["c"] = { key = "CtrlAltShift]",  note = "/* | */", },
  -- --
  -- <!-- | -->
  -- --[[ | ]]--
  -- --
  -- --

  ["x"] = { key = "CtrlAltM",       note = "<!--|-->", },
  --["h"] = { key = "CtrlShift.",     note = "<!--|-->", },
  --["l"] = { key = "CtrlShift,",     note = "--[[ | ]]--", },

  -- Markers:
  ["|"] = { key = "CtrlAltShift1",  note = "|||", },
  -- --
  ["#"] = { key = "CtrlAltShift3",  note = "#|#", },
  ["$"] = { key = "CtrlAltShift4",  note = "$|$", },
  ["%"] = { key = "CtrlAltShift5",  note = "%|%", },
  ["^"] = { key = "CtrlAltShift6",  note = "^|^", },
  ["&"] = { key = "CtrlAltShift7",  note = "&|&", },
  ["*"] = { key = "CtrlAltShift8",  note = "*|*", },

  ["`"] = { key = "CtrlAlt`",       note = "`|`", },
  ["~"] = { key = "CtrlAltShift`",  note = "~|~", },
  -- -|-
  -- _|_
  -- +|+
  -- ‾|‾
  -- --
  -- --

  -- Specials:
  -- ⌊|⌋
  -- ⌈|⌉
  -- ⟦|⟧
  -- --
  ["q"] = { key = "CtrlAlt'",       note = 'cleared "|"', },
  ["w"] = { key = "CtrlAlt;",       note = 'cleared «|»', },
} --- QuoteMarks

  local DescFmt = "Quote: %s"

for k, v in pairs(QuoteMarks) do
  if k ~= "" then
    Macro {
      area = "Editor",
      key = v.key,
      flags = "",
      description = DescFmt:format(v.note),
      condition = Exist,
      action = function ()
        if not PluginMenu(guids.LF4Ed) then return end
        Keys"M"
        --far.Message(Menu.Id, tostring(Area.Menu))
        if not Area.Menu or Menu.Id ~= guids.LUM then return end
        Keys"Q Q"
        return Keys(k)
      end, ---
    } ---
  end
end

Macro {
  area = "Editor",
  key = "CtrlAltShiftM",
  flags = "",
  description = "Dequote: <!--|-->",
  condition = Exist,
  action = function ()
    if not PluginMenu(guids.LF4Ed) then return end
    Keys"M"
    --far.Message(Menu.Id, tostring(Area.Menu))
    if not Area.Menu or Menu.Id ~= guids.LUM then return end
    return Keys"Q D X"
  end, ---
} ---

end -- do
--]]
--------------------------------------------------------------------------------