Stub in tag removal

1 files changed, 23 insertions, 0 deletions

diff --git a/.config/awesome/mcrute.lua b/.config/awesome/mcrute.lua
index d4d6e34..d5b8780 100644
--- a/.config/awesome/mcrute.lua
+++ b/.config/awesome/mcrute.lua
@@ -31,6 +31,29 @@ function battery_low_warning()
                      icon_size = 256 })
 end
 
+-- TODO:
+-- https://www.reddit.com/r/awesomewm/comments/5r9mgu
+-- https://stackoverflow.com/questions/42056795
+function handle_tag_removal(tag)
+    tag.connect_signal("request::screen", function(t)
+        local live_screen = nil
+        for s in screen do
+            if s ~= t.screen then
+                live_screen = s
+                break
+            end
+        end
+
+        for nt in live_screen.tags do
+            local clients = nt:clients()
+            if #clients == 0 then
+                t:swap(nt)
+                break
+            end
+        end
+    end)
+end
+
 -- Copy of suit.fair that forces rows to 1
 local function do_equal(p, orientation)
     local wa = p.workarea