Add send-to-iterm defuns

core/lib/defuns-term.el

@@ -0,0 +1,30 @@
+;;; defuns-tmux.el
+
+(defun narf--send-to-tmux (command)
+  (shell-command (format "tmux send-keys %s" command)))
+
+(evil-define-interactive-code "<term>"
+  "Ex tmux argument (a mix between <sh> <f> and <fsh>)"
+  :ex-arg shell
+  (list (when (evil-ex-p) (evil-ex-file-arg))))
+
+;;;###autoload (autoload 'narf:send-to-tmux "defuns-term" nil t)
+(evil-define-command narf:send-to-tmux (command &optional bang)
+  "Sends input to tmux. Use `bang' to append to tmux"
+  (interactive "<term><!>")
+  (narf--send-to-tmux (format (if bang "C-u %s Enter" "%s")
+                              (shell-quote-argument command)))
+  (when (evil-ex-p)
+    (message "[Tmux] %s" command)))
+
+;;;###autoload (autoload 'narf:send-to-iterm "defuns-term" nil t)
+(when IS-MAC
+  (evil-define-command narf:send-to-iterm (command &optional bang)
+    "Sends input to tmux. Use `bang' to append to tmux"
+    (interactive "<term><!>")
+    (narf-send-to-iterm command bang)
+    (when (evil-ex-p)
+      (message "[iTerm] %s" command))))
+
+(provide 'defuns-tmux)
+;;; defuns-tmux.el ends here