31 lines
1 KiB
EmacsLisp
31 lines
1 KiB
EmacsLisp
|
;;; 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
|