Add some run-on-raise keybindings

1 files changed, 15 insertions, 0 deletions

diff --git a/.config/awesome/rc.lua b/.config/awesome/rc.lua
index edaee7b..2ec75a0 100644
--- a/.config/awesome/rc.lua
+++ b/.config/awesome/rc.lua
@@ -268,6 +268,17 @@ function hpraise ()
    if client.focus then client.focus:raise() end
 end
 
+function ror (prog, class)
+   function inner ()
+      local matcher = function (c)
+         return awful.rules.match(c, { class = class })
+      end
+      awful.client.run_or_raise(prog, matcher)
+   end
+
+   return inner
+end
+
 -- {{{ Key bindings
 globalkeys = awful.util.table.join(
     awful.key({ modkey, }, "Left", awful.tag.viewprev),
@@ -277,6 +288,10 @@ globalkeys = awful.util.table.join(
     awful.key({ modkey, }, "p", function () fraise(-1) end),
     -- awful.key({ modkey, }, "w", function () mymainmenu:show() end),
 
+    awful.key({ modkey, }, "c", ror("urxvt", "URxvt")),
+    awful.key({ modkey, }, "e", ror("emacsclient -c", "Emacs")),
+    awful.key({ modkey, }, "w", ror("conkeror", "Conkeror")),
+
     -- Layout manipulation
     awful.key({ modkey, "Shift"   }, "n", function () awful.client.swap.byidx(  1)    end),
     awful.key({ modkey, "Shift"   }, "p", function () awful.client.swap.byidx( -1)    end),