How to close other windows in tmux?

Question

I write some functions in .bashrc to make tmux easy to use:

#!/bin/bash
# .bashrc

# vim            tmux
#-----  --------------------
tabc()  { tmux kill-window; }
tabe()  { tmux new-window; }
tabf()  { tmux find-window $@; }
tabn()  { tmux next-window; }
tabo()  { ; }                         # <-- How to `tabonly`?
tabp()  { tmux previous-window; }
qa()    { tmux kill-session; }
sp()    { tmux split-window; }
vsp()   { tmux split-window -h; }
on()    { tmux kill-pane -a; }

typeset -fx tab{c,e,f,n,o,p} {,v}sp qa on

I want to implement the tabonly command, but don't know how.

Answer 1

With the window you want to keep as the current window, just call next-window and kill-window repeatedly, until next-window fails:

while tmux next-window 2> /dev/null; do
    tmux kill-window
done

Answer 2

For easy copying, tmux >= 1.7:

tabo()  { tmux kill-window -a; }

Thanks Chris Johnsen.