I think I have a problem..

init/init-tmux.el

@@ -0,0 +1,34 @@
+(provide 'init-tmux)
+
+(defun my--tmux-send (command)
+  (shell-command (format "tmux send-keys %s" command)))
+
+(after "evil"
+  (evil-define-interactive-code "<tmux>"
+    "Ex tmux argument (a mix between <sh> <f> and <fsh>)"
+    :ex-arg shell
+    (list (when (evil-ex-p) (evil-ex-file-arg))))
+
+  (evil-ex-define-cmd "t" 'ex:tmux-run)
+  (evil-define-command ex:tmux-run (&optional command bang)
+    "Sends input to tmux. Use `bang' to append to tmux"
+    (interactive "<tmux><!>")
+    (my--tmux-send (format (if bang "C-u %s Enter" "%s")
+                           (shell-quote-argument command)))
+    (when (evil-ex-p)
+      (message "[Tmux] %s" command)))
+
+  (evil-ex-define-cmd "tcd" 'ex:tmux-chdir)
+  (evil-define-command ex:tmux-chdir (&optional path bang)
+    "CDs in tmux using `my--project-root'"
+    (interactive "<f><!>")
+    (let ((dir (shell-quote-argument
+                (if (and path (not (s-blank? path)))
+                    (if (file-directory-p path)
+                        (file-truename path)
+                      (error "Directory doesn't exist %s" path))
+                  (my--project-root bang)))))
+      (my--tmux-send (format "C-u cd Space %s Enter" (shell-quote-argument dir)))
+      (when (evil-ex-p)
+        (message "[Tmux] cd %s" dir)))))
+