From 515f7d8730359495c09d1a79949520a7e1f20cab Mon Sep 17 00:00:00 2001
From: Chris Toomey <chris@ctoomey.com>
Date: Sat, 7 Feb 2015 00:14:53 -0500
Subject: [PATCH] Prevent kill wrong background window

Closes #37 - Check for detached window title before killing
---
 plugin/vim-tmux-runner.vim | 38 +++++++++++++++++++++++++++++++++-----
 1 file changed, 33 insertions(+), 5 deletions(-)

diff --git a/plugin/vim-tmux-runner.vim b/plugin/vim-tmux-runner.vim
index d1d3a7f..8e3abd2 100644
--- a/plugin/vim-tmux-runner.vim
+++ b/plugin/vim-tmux-runner.vim
@@ -53,12 +53,29 @@ function! s:ValidRunnerPaneSet()
     return 1
 endfunction
 
-function! s:DetachedPaneAvailable()
-    if !exists("s:detached_window")
-        call s:EchoError("No detached runner pane.")
-        return 0
-    endif
+function! s:DetachedWindowOutOfSync()
+  let window_map = s:WindowMap()
+  if index(keys(window_map), s:detached_window) == -1
     return 1
+  endif
+  if s:WindowMap()[s:detached_window] != g:VtrDetachedName
+    return 1
+  endif
+  return 0
+endfunction
+
+function! s:DetachedPaneAvailable()
+  if exists("s:detached_window")
+    if s:DetachedWindowOutOfSync()
+      call s:EchoError("Detached pane out of sync. Unable to kill")
+      unlet s:detached_window
+      return 0
+    endif
+  else
+    call s:EchoError("No detached runner pane.")
+    return 0
+  endif
+  return 1
 endfunction
 
 function! s:RequireLocalPaneOrDetached()
@@ -77,7 +94,18 @@ function! s:KillLocalRunner()
     endif
 endfunction
 
+function! s:WindowMap()
+  let window_pattern = '\v(\d+): ([-_a-zA-Z]{-})[-\* ]\s.*'
+  let window_map = {}
+  for line in split(s:SendTmuxCommand("list-windows"), "\n")
+    let dem = split(substitute(line, window_pattern, '\1:\2', ""), ':')
+    let window_map[dem[0]] = dem[1]
+  endfor
+  return window_map
+endfunction
+
 function! s:KillDetachedWindow()
+    if !s:DetachedPaneAvailable() | return | endif
     let cmd = join(["kill-window", '-t', s:detached_window])
     call s:SendTmuxCommand(cmd)
     unlet s:detached_window