radical/impl/alttab.lua

local setmetatable,type = setmetatable, type
local ipairs, pairs     = ipairs, pairs
local button    = require( "awful.button" )
local beautiful = require( "beautiful"    )
local tag       = require( "awful.tag"    )
local client2   = require( "awful.client" )
local menu      = require( "radical.box"  )
local util      = require( "awful.util"   )
local wibox     = require( "wibox"        )
local capi = { client = client, mouse = mouse, screen = screen}

local module,pause_monitoring = {},false

local function draw_underlay(text)
  -- If blind is installed, it can be used to draw the tag(s) name in the background
  return beautiful.draw_underlay and beautiful.draw_underlay(text) or nil
end

-- Keep its own history instead of using awful.client.focus.history
local focusIdx,focusTable = 1,setmetatable({}, { __mode = 'v' })
local function push_focus(c)
  if c and not pause_monitoring then
    focusTable[c] = focusIdx
    focusIdx = focusIdx + 1
  end
end
capi.client.connect_signal("focus", push_focus)

-- Remove client when closed
client.connect_signal("unmanage", function (c)
  focusTable[c] = nil
end)

local function compare(a,b)
  return a[1] > b[1]
end

local function get_history(screen)
  local result = {}
  for k,v in pairs(focusTable) do
    result[#result+1] = {v,k}
  end
  local orphanCount = -100
  for k,v in ipairs(capi.client.get(screen or 1)) do
    if not focusTable[v] then
      result[#result+1] = setmetatable({orphanCount,v}, { __mode = 'v' })
      orphanCount = orphanCount -1
    end
  end
  table.sort(result,compare)
  return result
end

-- Simulate a titlebar
local function button_group(args)
  local widget   = wibox.widget.imagebox()
  widget:set_image( module.titlebar_path.. args.field .."_normal_"..(args.checked() and "active" or "inactive")..".png" )
  widget:buttons( util.table.join(button({ }, 1 , args.onclick)))
  return widget
end

local function select_next(menu)
  local item = menu.next_item
  item.selected = true
  item.button1()
  return true
end

local function is_in_tag(t,c)
  for k,v in ipairs(c:tags()) do if t == v then return true end end
  return false
end

local function new(args)
  local t,auto_release = tag.selected(capi.client.focus and capi.client.focus.screen or capi.mouse.screen),args.auto_release
  local currentMenu = menu({filter = true, show_filter=true, autodiscard = true,
    disable_markup=true,fkeys_prefix=not auto_release,width=(((capi.screen[capi.client.focus and capi.client.focus.screen or capi.mouse.screen]).geometry.width)/2)})


  currentMenu:add_key_hook({}, "Tab", "press", select_next)
  currentMenu:add_key_hook({}, "Shift_L", "press", function()
    currentMenu._current_item.checked = not currentMenu._current_item.checked
    client2.toggletag (t, currentMenu._current_item.client)
    return true
  end)


  if module.titlebar_path then
    for k,v2 in ipairs(get_history(--[[screen]])) do
      local l,v = wibox.layout.fixed.horizontal(),v2[2]
      l:add( button_group({client = v, field = "floating" , focus = false, checked = function() return v.floating  end, onclick = function() v.floating  = not v.floating  end }))
      l:add( button_group({client = v, field = "maximized", focus = false, checked = function() return v.maximized end, onclick = function() v.maximized = not v.maximized end }))
      l:add( button_group({client = v, field = "sticky"   , focus = false, checked = function() return v.sticky    end, onclick = function() v.sticky    = not v.sticky    end }))
      l:add( button_group({client = v, field = "ontop"    , focus = false, checked = function() return v.ontop     end, onclick = function() v.ontop     = not v.ontop     end }))
      l:add( button_group({client = v, field = "close"    , focus = false, checked = function() return false       end, onclick = function() v:kill()                      end }))

      local underlays = {}
      for k,v in ipairs(v:tags()) do
        underlays[#underlays+1] = v.name
      end

      l.fit = function (s,w,h) return 5*h,h end
      currentMenu:add_item({
        text          = v.name,
        icon          = module.icon_transform and module.icon_transform(v.icon or module.default_icon) or v.icon or module.default_icon,
        suffix_widget = not auto_release and l or nil,
        selected      = capi.client.focus and capi.client.focus == v,
        underlay      = underlays,
        checkable     = not auto_release,
        checked       = not auto_release and is_in_tag(t,v) or nil,
        button1       = function()
          if v:tags()[1] and v:tags()[1].selected == false then
            tag.viewonly(v:tags()[1])
          end
          capi.client.focus = v
          currentMenu.visible = false
        end,
      }).client = v
    end
  end

  if auto_release then
    currentMenu:add_key_hook({}, "Alt_L", "release", function(_)
      currentMenu.visible = false
      return false
    end)
    select_next(currentMenu)
  end

  pause_monitoring,currentMenu.visible = true, true
  currentMenu:connect_signal("visible::changed",function(m)
    if not m.visible then pause_monitoring = false;push_focus(capi.client.focus) end
  end)
  return currentMenu
end

function module.altTab(args)
  new({leap = 1,auto_release = (args or {}).auto_release})
end

function module.altTabBack(args)
  new({leap = -1,auto_release = (args or {}).auto_release})
end

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