kill tmux windows except active window (ksh)

tm_kill_other_windows.ksh.sh

function tm_kill_other_windows {
  pat=$1
  windows="`tmux list-windows -F '#{window_index}:#{window_name}-#{window_active}'`"

  [ `echo "${windows}" | wc -l | tr -d ' ' | grep '^1$'` ] && return

  cur_win_nbr=`echo "${windows}" | grep '\-1$' | grep -o '^[0-9]\+'`
  windows=`echo "${windows}" | grep -v "^${cur_win_nbr}:"`
  windows=`echo "${windows}" | grep "^[0-9]\+:.*${pat}.*-[01]$"`

  for i in `echo "${windows}" | grep -o '^[0-9]\+'`; do
    tmux kill-window -t ${i}
  done
}