emacs tmux navigator

emacs.el

(defun tmux-command (dir)
  (shell-command-to-string
   (concat "tmux select-pane -" dir)))

(defun last-window-send-tmux (dir tmuxdir)
  (let ((other-window (windmove-find-other-window 'right)))
    (cond ((null other-window)
           (tmux-command tmuxdir))
          ((and (window-minibuffer-p other-window)
                (not (minibuffer-window-active-p other-window)))
           (tmux-command tmuxdir))
          )
    ))

(defadvice windmove-right (before windmove-window activate)
  (last-window-send-tmux 'right "R"))

(defadvice windmove-left (before windmove-window activate)
  (last-window-send-tmux 'left "L"))

(defadvice windmove-up (before windmove-window activate)
  (last-window-send-tmux 'up "U"))

(defadvice windmove-down (before windmove-window activate)
  (last-window-send-tmux 'down "D"))

tmux.conf

is_cmd_prior='echo "#{pane_current_command}" | grep -iqE ".*(emacs(client)?)|(irssi).*"'
bind -n M-Right if-shell "$is_cmd_prior" "send-keys M-Right" "select-pane -R"
bind -n M-Left if-shell "$is_cmd_prior" "send-keys M-Left" "select-pane -L"
bind -n M-Up if-shell "$is_cmd_prior" "send-keys M-Up" "select-pane -U"
bind -n M-Down if-shell "$is_cmd_prior" "send-keys M-Down" "select-pane -D"