From df818c1b69aed575d009221cdc4e9dc81135ed6c Mon Sep 17 00:00:00 2001
From: Nicholas Marriott <nicm@openbsd.org>
Date: Sat, 24 Oct 2009 10:12:39 +0000
Subject: [PATCH] -a option to kill all except current pane. From Tiago Cunha,
 thanks!

---
 cmd-kill-pane.c | 23 ++++++++++++++++++-----
 tmux.1          |  9 ++++++++-
 2 files changed, 26 insertions(+), 6 deletions(-)

diff --git a/cmd-kill-pane.c b/cmd-kill-pane.c
index 38d0daef..351ef0c8 100644
--- a/cmd-kill-pane.c
+++ b/cmd-kill-pane.c
@@ -30,8 +30,8 @@ int	cmd_kill_pane_exec(struct cmd *, struct cmd_ctx *);
 
 const struct cmd_entry cmd_kill_pane_entry = {
 	"kill-pane", "killp",
-	CMD_TARGET_PANE_USAGE,
-	0, 0,
+	"[-a] " CMD_TARGET_PANE_USAGE,
+	0, CMD_CHFLAG('a'),
 	cmd_target_init,
 	cmd_target_parse,
 	cmd_kill_pane_exec,
@@ -44,7 +44,7 @@ cmd_kill_pane_exec(struct cmd *self, struct cmd_ctx *ctx)
 {
 	struct cmd_target_data	*data = self->data;
 	struct winlink		*wl;
-	struct window_pane	*wp;
+	struct window_pane	*loopwp, *nextwp, *wp;
 
 	if ((wl = cmd_find_pane(ctx, data->target, NULL, &wp)) == NULL)
 		return (-1);
@@ -56,8 +56,21 @@ cmd_kill_pane_exec(struct cmd *self, struct cmd_ctx *ctx)
 		return (0);
 	}
 
-	layout_close_pane(wp);
-	window_remove_pane(wl->window, wp);
+	if (data->chflags & CMD_CHFLAG('a')) {
+		loopwp = TAILQ_FIRST(&wl->window->panes);
+		while (loopwp != NULL) {
+			nextwp = TAILQ_NEXT(loopwp, entry);
+			if (loopwp != wp) {
+				layout_close_pane(loopwp);
+				window_remove_pane(wl->window, loopwp);
+			}
+			loopwp = nextwp;
+		}
+	} else {
+		layout_close_pane(wp);
+		window_remove_pane(wl->window, wp);
+	}
 	server_redraw_window(wl->window);
+
 	return (0);
 }
diff --git a/tmux.1 b/tmux.1
index e25657e2..80283678 100644
--- a/tmux.1
+++ b/tmux.1
@@ -740,10 +740,17 @@ If only one window is matched, it'll be automatically selected, otherwise a
 choice list is shown.
 This command only works from inside
 .Nm .
-.It Ic kill-pane Op Fl t Ar target-pane
+.It Xo Ic kill-pane
+.Op Fl a
+.Op Fl t Ar target-pane
+.Xc
 .D1 (alias: Ic killp )
 Destroy the given pane.
 If no panes remain in the containing window, it is also destroyed.
+The
+.Fl a
+option kills all but the pane given with
+.Fl t .
 .It Ic kill-window Op Fl t Ar target-window
 .D1 (alias: Ic killw )
 Kill the current window or the window at