radical/impl/alttab/init.lua

283 lines
9.8 KiB
Lua

local setmetatable = setmetatable
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 radical = require( "radical" )
local util = require( "awful.util" )
local wibox = require( "wibox" )
local tag_list = require( "radical.impl.taglist" )
local capi = { client = client, mouse = mouse, screen = screen}
local module,pause_monitoring = {},false
-- Using viewonly to change tag will create an unwanted
-- focus event in the awful stack. While this module does
-- not use it, it try to be a good citizen and avoid corrupting
-- it.
local lock_history = false
local function awful_client_history_add(c)
if not lock_history then
client2.focus.history.add(c)
end
end
-- Keep its own history instead of using awful.client.focus.history
local focusIdx,focusTable = 1,setmetatable({}, { __mode = 'v' })
local focusTag = setmetatable({}, { __mode = 'v' })
local function push_focus(c)
if c and not pause_monitoring then
focusTable[c] = focusIdx
focusIdx = focusIdx + 1
focusTag[c] = c.screen.selected_tag
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
if not item then return end
item.selected = true
item.button1(nil,nil,nil,nil,true)
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 reload_infoshapes(client,item)
local infoshapes = {}
for k,v in ipairs(client:tags()) do
infoshapes[#infoshapes+1] = {text = v.name}
end
if item then
item.infoshapes = infoshapes
end
return infoshapes
end
local function reload_highlight(i)
if i.selected then
local hl = {}
for k,v in ipairs(i.client:tags()) do
hl[#hl+1] = v
end
tag_list.highlight(hl)
i._internal.border_color_back = i._internal.border_color_back or i.client.border_color
i.client.border_color = beautiful.bg_urgent
elseif i._internal.border_color_back then
i.client.border_color = i._internal.border_color_back
end
end
--TODO save the settings somewhere
local conf = {
tags = true,
screens = true,
minimized = true,
}
local function toggle_all_tags(item)
conf.tags = not conf.tags
item.checked = conf.tags
end
local function toggle_all_screens(item)
conf.screens = not conf.screens
item.checked = conf.screens
end
local function toggle_maximized(item)
conf.minimized = not conf.minimized
item.checked = conf.minimized
end
local function new(args)
local histo = get_history(--[[screen]])
if #histo == 0 then
return
end
local scr = capi.client.focus and capi.client.focus.screen or capi.mouse.screen
local t,auto_release = scr.selected_tag,args.auto_release
local currentMenu = radical.box({filter = true, show_filter=not auto_release, autodiscard = true,
disable_markup=true,fkeys_prefix=not auto_release,width=(((capi.screen[scr]).geometry.width)/2),
icon_transformation = beautiful.alttab_icon_transformation,filter_underlay="Use [Shift] and [Control] to toggle clients",filter_underlay_color=beautiful.menu_bg_normal,
filter_placeholder="<span fgcolor='".. (beautiful.menu_fg_disabled or beautiful.fg_disabled or "#777777") .."'>Type to filter</span>"})
currentMenu.margins.top = currentMenu.border_width
currentMenu.margins.bottom = currentMenu.border_width
if not auto_release then
local pref_bg = wibox.container.background()
local pref_l = wibox.layout.align.horizontal()
pref_bg.fit = function(s,c,w,h)
local w2 = wibox.container.background.fit(s,c,w,h)
return w2,currentMenu.item_height
end
pref_bg:set_bg(currentMenu.bg_alternate)
local tb2= wibox.widget.textbox()
tb2:set_markup(" <b>"..#histo.."</b> clients")
pref_l:set_first(tb2)
pref_bg:set_widget(pref_l)
local pref_menu,pref_menu_l = radical.bar{item_style=radical.item.style.basic}
pref_menu:add_widget(wibox.widget.textbox "<b>Display: </b>")
pref_menu:add_widget(radical.widgets.separator(pref_menu,radical.widgets.separator.VERTICAL))
pref_menu:add_item{text="All tags ", checkable = true, checked = true, button1 = toggle_all_tags}
pref_menu:add_widget(radical.widgets.separator(pref_menu,radical.widgets.separator.VERTICAL))
pref_menu:add_item{text="Minimized ", checkable = true, checked = true, button1 = toggle_all_screens}
pref_menu:add_widget(radical.widgets.separator(pref_menu,radical.widgets.separator.VERTICAL))
pref_menu:add_item{text="All Screens ", checkable = true, checked = true, button1 = toggle_maximized}
-- pref_menu:add_widget(radical.widgets.separator(pref_menu,radical.widgets.separator.VERTICAL))
pref_l:set_third(pref_menu_l)
currentMenu:add_prefix_widget(pref_bg)
end
currentMenu:add_key_hook({}, "Tab", "press", select_next)
currentMenu:add_key_hook({}, "Shift_L", "press", function()
local item = currentMenu._current_item
item.checked = not item.checked
local c = item.client
if c.screen ~= scr then return end
client2.toggletag (t, c)
reload_infoshapes(c,item)
if not auto_release then
reload_highlight(item)
end
if item._internal.border_color_back then
c.border_color = item._internal.border_color_back
end
return true
end)
currentMenu:add_key_hook({}, "Control_L", "press", function()
local item = currentMenu._current_item
item.checked = not item.checked
local c = item.client
if c.screen ~= scr then return end
client2.movetotag(t, c)
reload_infoshapes(c,item)
if not auto_release then
reload_highlight(item)
end
return true
end)
for k,v2 in ipairs(histo) do
local l,v = wibox.layout.fixed.horizontal(),v2[2]
if not auto_release and module.titlebar_path then
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(); currentMenu.visible = false; end }))
l.fit = function (s,c,w,h) return 5*h,h end
end
local underlays = reload_infoshapes(v)
local i = currentMenu:add_item({
text = v.name,
icon = v.icon or module.default_icon,
suffix_widget = not auto_release and l or nil,
selected = capi.client.focus and capi.client.focus == v,
infoshapes = underlays,
checkable = (not auto_release) and v.screen == scr,
checked = v.screen == scr and (not auto_release and is_in_tag(t,v)) or nil,
button1 = function(a,b,c,d,no_hide)
if t and t.selected == false and not util.table.hasitem(v:tags(),capi.screen[v.screen].selected_tag) then
lock_history = true
tag.viewonly(t)
lock_history = false
end
capi.client.focus = v
v:raise()
if not no_hide then
currentMenu.visible = false
end
end,
})
i.client = v
if not auto_release then
i:connect_signal("selected::changed",reload_highlight)
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)
if not auto_release then
tag_list.highlight()
end
if currentMenu._current_item and currentMenu._current_item._internal.border_color_back then
currentMenu._current_item.client.border_color = currentMenu._current_item._internal.border_color_back
end
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
-- Sometime need to lock .add
capi.client.disconnect_signal("focus", client2.focus.history.add)
capi.client.connect_signal("focus", awful_client_history_add)
return setmetatable(module, { __call = function(_, ...) return new(...) end })
-- kate: space-indent on; indent-width 2; replace-tabs on;