local F = far.Flags
local ColorerMenu = win.Uuid("87C92249-430D-4334-AC33-05E7423286E9")
local ColorerGuid = "D2F36B62-A470-418D-83A3-ED7A3710E5B5"

Event {
  description = "ColorerStatus";
  group = "DialogEvent";
  condition = function(Event,param)
    if Event == F.DE_DLGPROCINIT and param.Msg == F.DN_INITDIALOG then
      local info = param.hDlg:send(F.DM_GETDIALOGINFO)
      return info and info.Id == ColorerMenu
    end
  end;
  action = function(Event,param)
    local hDlg = param.hDlg
    if _G.ColorerOn then
      _G.ColorerPrevStatus = hDlg:send(F.DM_SETCHECK,2,F.BSTATE_CHECKED)
    else
      _G.ColorerPrevStatus = hDlg:send(F.DM_SETCHECK,2,F.BSTATE_UNCHECKED)
    end
  end;
}

local function ColorerConfig()
  --msgbox("Colorer",_G.ColorerOn and "On" or "Off")
  Plugin.Call(ColorerGuid,0)
  Menu.Select("Configure",2)
  Keys("Enter Enter")
end

Macro {
  area = "Common";
  description = "ColorerOff";
  key = "ColorerOff";
  action=function()
    _G.ColorerOn = false
    ColorerConfig()
  end;
}

Macro {
  area = "Common";
  description = "ColorerOn";
  key = "ColorerOn";
  action = function()
    _G.ColorerOn = true
    ColorerConfig()
  end;
}