36 lines
1.3 KiB
EmacsLisp
36 lines
1.3 KiB
EmacsLisp
|
(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 (concat (unless bang "C-u ")
|
||
|
|
(shell-quote-argument command)
|
||
|
|
(unless bang " Enter")))
|
||
|
|
(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)))))
|
||
|
|
|