radical/item/init.lua

local type = type
local capi = {timer = timer}
local beautiful = require("beautiful")
local theme = require("radical.theme")
local object = require("radical.object")

local module = {
 -- style  = require("radical.item.style"),
 -- layout = require("radical.item.layout"),
  arrow_type = {
    NONE     = 0,
    PRETTY   = 1,
    CENTERED = 2,
  },
  event      ={
    NEVER    = 0,
    BUTTON1  = 1,
    BUTTON2  = 2,
    BUTTON3  = 3,
    SELECTED = 100,
    HOVER    = 1000,
    LEAVE    = 1001,
  },
  item_flags     = {
    NONE      = 999999 ,
    DISABLED  = 1 , -- Cannot be interacted with
    URGENT    = 2 , -- Need attention
    SELECTED  = 3 , -- Single item selected [[FOCUS]]
    HOVERED   = -1 , -- Mouse hover
    PRESSED   = 4 , -- Mouse pressed
    USED      = 6 , -- Common flag
    CHECKED   = 7 , -- When checkbox isn't enough
    ALTERNATE = 8 ,
    HIGHLIGHT = 9 ,
    HEADER    = 10,

    -- Implementation defined flags
    USR1     = 101,
    USR2     = 102,
    USR3     = 103,
    USR4     = 104,
    USR5     = 105,
    USR6     = 106,
    USR7     = 107,
    USR8     = 108,
    USR9     = 109,
    USR10    = 110,
  },
}

local function load_async(tab,key)
  if key == "style" then
    module.style = require("radical.item.style")
    return module.style
  elseif key == "layout" then
    module.layout = require("radical.item.layout")
    return module.layout
  end
  return rawget(module,key)
end

function module.execute_sub_menu(data,item)
  if (item._private_data.sub_menu_f  or item._private_data.sub_menu_m) then
    local sub_menu = item._private_data.sub_menu_m or item._private_data.sub_menu_f(data,item)
    if sub_menu and (item._private_data.sub_menu_f or sub_menu.rowcount > 0) then
      sub_menu.arrow_type = module.arrow_type.NONE
      sub_menu.parent_item = item
      sub_menu.parent_geometry = data
      sub_menu.visible = true
      item._tmp_menu = sub_menu
      data._tmp_menu = sub_menu
    end
  end
end

local function hide_sub_menu(item,data)
  if item._tmp_menu then
    item._tmp_menu.visible = false
    item._tmp_menu = nil
    data._tmp_menu = nil
    item:emit_signal("state::changed")
  end
end

-- local registered_items = {}
-- local is_watching = false
-- local mouse_tracker = object{}
-- local function watch_mouse(a,b,c)
--   print("move",a,b,c)
-- end

-- local function register_mouse_track()
--   if not is_watching then
--     
--   end
-- end

local function new_item(data,args)
  local args = args or {}
  local item,private_data = object({
    private_data  = {
      text        = args.text        or ""                                                                  ,
--       height      = args.height      or data.item_height or beautiful.menu_height or 30                     ,
      width       = args.width       or nil                                                                 ,
      icon        = args.icon        or nil                                                                 ,
      prefix      = args.prefix      or ""                                                                  ,
      suffix      = args.suffix      or ""                                                                  ,
      bg          = args.bg          or nil                                                                 ,
      fg          = args.fg          or data.fg                                                             , --TODO don't do this
      border_color= args.border_color or data.border_color                                                  ,
      bg_prefix   = args.bg_prefix   or data.bg_prefix                                                      ,
      sub_menu_m  = (args.sub_menu   and type(args.sub_menu) == "table" and args.sub_menu.is_menu) and args.sub_menu or nil,
      sub_menu_f  = (args.sub_menu   and type(args.sub_menu) == "function") and args.sub_menu or nil        ,
      checkable   = args.checkable   or (args.checked ~= nil) or false                                      ,
      checked     = args.checked     or false                                                               ,
      underlay    = args.underlay    or nil                                                                 ,
      tooltip     = args.tooltip     or nil                                                                 ,
      style       = args.style       or data.item_style                                                     ,
      layout      = args.layout      or args.item_layout or nil                                             ,
      overlay     = args.overlay     or data.overlay or nil                                                 ,
      item_border_color = args.item_border_color or data.item_border_color or nil                           ,
    },
    force_private = {
      visible = true,
      selected = true,
      index    = true,
    },
    autogen_getmap  = true,
    autogen_setmap  = true,
    autogen_signals = true,
  })
  item._private_data = private_data
  item._internal     = args._internal or {}
  theme.setup_item_colors(data,item,args)
  item.get_y = function()
    return (args.y and args.y >= 0) and args.y or data.height - (data.margins.top or data.border_width) - data.item_height --Hack around missing :fit call for last item
  end
  item.get_height = function()
    return args.height or data.item_height or beautiful.menu_height or 30
  end
  item.get_bg = function()
    return data.bg
  end
  item.get_fg = function()
    return data.fg
  end

  item.set_underlay = function(item,underlay)
    if not item._internal.underlay_init then
      data:add_colors_group("underlay")
      item._internal.underlay_init = true
    end

    item._internal.underlay_content = underlay
  end
  item.get_underlay =  function(item)
    return item._internal.underlay_content
  end
  item.state         = theme.init_state(item)
  item.underlay = args.underlay

  for i=1,10 do
    item["button"..i] = args["button"..i]
  end

  if data.max_items ~= nil and data.rowcount >= data.max_items then-- and (data._start_at or 0)
    item._hidden = true
  end

  -- Use _internal to avoid the radical.object trigger
  data._internal.visible_item_count = (data._internal.visible_item_count or 0) + 1
  item._internal.f_key = data._internal.visible_item_count

  -- Need to be done before painting
  data._internal.items[#data._internal.items+1] = {}
  data._internal.items[#data._internal.items] = item

  -- Getters
  item.get_selected = function(_)
    return item.state[module.item_flags.SELECTED] == true
  end

  -- Setters
  item.set_selected = function(_,value,force)
    private_data.selected = value

    -- Hide the sub-menu
    local current_item = data._current_item
    if current_item and current_item ~= item or force then
      current_item.state[module.item_flags.SELECTED] = nil
      current_item:emit_signal("selected::changed",false)
      hide_sub_menu(current_item,data)
    end

    -- Unselect item
    if value == false then
      item.state[module.item_flags.SELECTED] = nil
      return
    end

    -- Select the new one
    if data.sub_menu_on == module.event.SELECTED and (current_item ~= item or not item._tmp_menu)then
      module.execute_sub_menu(data,item)
    end
    item.state[module.item_flags.SELECTED] = true
    data._current_item = item
  end

  -- Listen to signals
  item:connect_signal("state::changed",function()
    item:style()
  end)

  -- Add support for long hover and press
  local main_timer,press_timer = nil
  item:connect_signal("mouse::enter",function(_,m,--[[mod,]]geo)
    if not main_timer then
      main_timer = timer{}
      main_timer.timeout = 1.5
      main_timer:connect_signal("timeout",function()
        item._internal._is_long_hover = true
        item:emit_signal("long::hover",item,mod,geo)
        data:emit_signal("long::hover",item,mod,geo)
        main_timer:stop()
      end)
    end
    if not main_timer.started then
--       item:connect_signal("mouse::move",test)
      main_timer:start()
    end
  end)
  item:connect_signal("mouse::leave",function()
    if main_timer and main_timer.started then
      main_timer:stop()
--       item:disconnect_signal("mouse::move",test)
    elseif item._internal._is_long_hover then
      item._internal._is_long_hover = nil
      item:emit_signal("long::exit",data,item)
    end
  end)
  item:connect_signal("button::press",function()
    if not press_timer then
      press_timer = timer{}
      press_timer.timeout = 1.5
      press_timer:connect_signal("timeout",function()
        item:emit_signal("long::press",data,item)
--         item:disconnect_signal("mouse::move",test)
        press_timer:stop()
      end)
    end
    if not press_timer.started then
--       item:connect_signal("mouse::move",test)
      press_timer:start()
    end
  end)
  item:connect_signal("button::release",function()
    if press_timer and press_timer.started then
      press_timer:stop()
    end
  end)

  return item
end

return setmetatable(module, { __call = function(_, ...) return new_item(...) end, __index=load_async})
-- kate: space-indent on; indent-width 2; replace-tabs on;