Kill the rest of the panes that are not on the original window.

1 files changed, 20 insertions, 0 deletions

diff --git a/src/sledjchisl/sledjchisl.c b/src/sledjchisl/sledjchisl.c
index 230371b..e779c0c 100644
--- a/src/sledjchisl/sledjchisl.c
+++ b/src/sledjchisl/sledjchisl.c
@@ -8292,6 +8292,26 @@ fcgiDone:
     }
     ourSims->simsLua->unlock(ourSims->simsLua);
 
+    // Kill the rest of the panes that are not on the original window.
+    snprintf(toybuf, sizeof(toybuf), "echo 'IDs={' >%s/IDs_ALL.lua", scTemp);
+    system(toybuf);
+    doTmuxCmd("list-panes -s -F '\"#{window_id}.#{pane_id}\",' >> %s/IDs_ALL.lua", scTemp);
+    snprintf(toybuf, sizeof(toybuf), "echo '}\nreturn IDs' >>%s/IDs_ALL.lua", scTemp);
+    system(toybuf);
+
+    snprintf(toybuf, sizeof(toybuf), "%s/IDs_ALL.lua", scTemp);
+    qtreetbl_t *IDs = Lua2tree(toybuf, "IDs");
+
+    memset((void*)&obj0, 0, sizeof(obj0));
+    IDs->lock(IDs);
+    while(IDs->getnext(IDs, &obj0, false) == true)
+    {
+      q0 = obj0.data;
+      if ('0' != q0->v.s[1])
+        doTmuxCmd("kill-pane -t %s", q0->v.s);
+    }
+    IDs->unlock(IDs);
+    freeLuaTree(IDs);
     char *c = xmprintf("rm -fr %s/*", scTemp);
     if (!WIFEXITED(system(c)))
       E("rrm command failed!  %s", c);