dynamic tagging: move_tag added

diff --git a/util/init.lua b/util/init.lua
index 06db0d4bc0acc8c00b8c5f30d0a2df1dc4e1deb0..e380cbbf1f8a42a52ded8b14eaf83715128f5db3 100644 (file)
--- a/util/init.lua
+++ b/util/init.lua
@@ -191,6 +191,18 @@ function util.rename_tag(mypromptbox)
     end)
 end
 
+-- Move current tag
+-- pos in {-1, 1} <-> {previous, next} tag position
+function util.move_tag(pos)
+    local tag = awful.tag.selected(mouse.screen)
+    local idx = awful.tag.getidx(tag)
+    if tonumber(pos) <= -1 then
+        awful.tag.move(idx - 1, tag)
+    else
+        awful.tag.move(idx + 1, tag)
+    end
+end
+
 -- Delete current tag (if empty)
 -- Any rule set on the tag shall be broken
 function util.remove_tag()