1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
-- Authors: Matthieu Moy <matthieu.moy@imag.fr>, Etan Reisner <deryni@gmail.com>
-- License: Public domain
-- Last Changed: 2006-07-03
--
-- Nest workspaces inside Frames.
-- Matthieu Moy <Matthieu.Moy@imag.fr>, February 15th 2005.
-- Made into a function (and to only show valid workspace types) by Etan Reisner <deryni@gmail.com> July 03 2006.
-- Public domain.
-- This adds a submenu to the client context menu.
-- Usage:
-- Add defbindings("WFrame", {
-- kpress(META.."M", "nest_ws_menu(_, 'Context menu: ', 'Attach')"), -- Query menu
-- })
--
-- or kpress(META.."M", "nest_ws_menu(_, _sub, 'Attach')"), -- Popup menu
--
-- This will override the default binding for the context menu and provide you
-- with a context menu with the nest_ws submenu.
-- LEGACY USAGE.
--
-- This defines a menu to be used as a submenu for WFrames.
-- Add the line
-- submenu("Attach", "menuattach"),
-- to the definition defctxmenu("WFrame", { ... })
function nest_ws_menu(frame, cwin, name)
if mod_menu then
local framemenu = ioncore.getmenu("ctxmenu")(frame, cwin)
local nestmenu = {}
if mod_ionws then
table.insert(nestmenu, menuentry("WIonWS", "_:attach_new({type=\"WIonWS\" }):goto_focus()"))
end
if mod_floatws then
table.insert(nestmenu, menuentry("WFloatWS", "_:attach_new({type=\"WFloatWS\"}):goto_focus()"))
end
if mod_panews then
table.insert(nestmenu, menuentry("WPaneWS", "_:attach_new({type=\"WPaneWS\" }):goto_focus()"))
end
if #nestmenu > 0 then
local name = name or 'Attach'
table.insert(framemenu, submenu(name, nestmenu))
end
if (type(cwin) == "userdata" and obj_typename(cwin) == "WClientWin") or
not cwin then
mod_menu.menu(frame, cwin, framemenu)
else
local prompt = cwin
mod_query.query_menu(frame, framemenu, prompt)
end
end
end
-- Legacy
defmenu("menuattach", {
menuentry("WIonWS", "_:attach_new({type=\"WIonWS\" }):goto_focus()"),
menuentry("WFloatWS", "_:attach_new({type=\"WFloatWS\"}):goto_focus()"),
menuentry("WPaneWS", "_:attach_new({type=\"WPaneWS\" }):goto_focus()"),
})
|
