bindings: factor out shifting current client up/down

1 files changed, 9 insertions, 0 deletions

diff --git a/workspace.lua b/workspace.lua
index 654b118..db9973a 100644
--- a/workspace.lua
+++ b/workspace.lua
@@ -179,6 +179,15 @@ function Workspace:swap_screens(phys_idx)
     end
 end
 
+function Workspace:shift_cur_client(dir)
+    if client.focus then
+        local c = client.focus
+        local s = c.screen
+        self:client_move_relative(c, dir)
+        timer.delayed_call(awful.screen.focus, s)
+    end
+end
+
 function Workspace:new(layouts)
     local o = setmetatable({}, self)
     self.__index = self