etc/skel/.ion2/pwm-menus.lua

   1 --
   2 -- PWM menu definitions
   3 --
   4
   5
   6 -- Load a library with some convenience functions.
   7 include("menulib")
   8
   9
  10 -- Main menu
  11 defmenu("mainmenu", {
  12     submenu("Programs", "appmenu"),
  13     menuentry("Lock screen", make_exec_fn("xlock")),
  14     submenu("Workspaces", "wsmenu"),
  15     submenu("Styles", "stylemenu"),
  16     submenu("Exit", "exitmenu"),
  17 })
  18
  19
  20 -- Application menu
  21 defmenu("appmenu", {
  22     menuentry("XTerm", make_exec_fn("x-terminal-emulator")),
  23     menuentry("Mozilla Firefox", make_exec_fn("firefox")),
  24     menuentry("Xdvi", make_exec_fn("xdvi")),
  25     menuentry("GV", make_exec_fn("gv")),
  26 })
  27
  28
  29 -- Menu with restart/exit alternatives
  30 defmenu("exitmenu", {
  31     menuentry("Restart", restart_wm),
  32     menuentry("Restart Ion", function() restart_other_wm("ion") end),
  33     menuentry("Restart TWM", function() restart_other_wm("twm") end),
  34     menuentry("Exit", exit_wm),
  35 })
  36
  37
  38 -- Workspaces
  39 defmenu("wsmenu", {
  40     menuentry("New", function(m)
  41                          m:screen_of():attach_new({
  42                              type=(default_ws_type or "WFloatWS"),
  43                              switchto=true,})
  44                      end),
  45     menuentry("Close", function(m) m:screen_of():current():close() end),
  46     submenu("List", "workspacelist"),
  47 })
  48
  49
  50 -- Context menu (frame/client window actions)
  51 defmenu("ctxmenu", {
  52     menuentry("Close", WMPlex.close_sub_or_self),
  53     menuentry("Kill", make_mplex_clientwin_fn(WClientWin.kill)),
  54     menuentry("(Un)tag", make_mplex_sub_fn(WRegion.toggle_tag)),
  55     menuentry("Attach tagged", WGenFrame.attach_tagged),
  56     menuentry("Clear tags", clear_tags),
  57 })
  58
  59
  60 -- Context menu for floating frames -- add sticky toggle.
  61 defmenu("ctxmenu-floatframe", {
  62     menuentry("Close", WMPlex.close_sub_or_self),
  63     menuentry("Kill", make_mplex_clientwin_fn(WClientWin.kill)),
  64     menuentry("(Un)tag", make_mplex_sub_fn(WRegion.toggle_tag)),
  65     menuentry("Attach tagged", WGenFrame.attach_tagged),
  66     menuentry("Clear tags", clear_tags),
  67     menuentry("(Un)stick", function(f) f:toggle_sticky() end),
  68 })
  69