emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

tools/tmux: fix +tmux:run & +tmux/run; add +tmux/send-region

Browse source
This commit is contained in:
Henrik Lissner 2017-04-09 22:30:49 -04:00
parent 0c81402599
commit 335d9c27a9
2 changed files with 12 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
modules/tools/tmux/autoload/evil.el
View file

@ -1,9 +1,11 @@
;;; tools/tmux/autoload/evil.el
;;;###autoload (autoload '+tmux:run "tools/tmux/autoload/evil" nil t)
(evil-define-command +tmux:run (command bang)
(interactive "<fsh><!>")
(+tmux/run command bang))
(evil-define-command +tmux:run (bang &optional command)
(interactive "<!><fsh>")
(if (evil-visual-state-p)
(+tmux/send-region evil-visual-beginning evil-visual-end bang)
(+tmux/run command bang)))
;;;###autoload (autoload '+tmux:cd-here "tools/tmux/autoload/evil" nil t)
(evil-define-command +tmux:cd-here (bang)

11
modules/tools/tmux/autoload/tmux.el
View file

@ -46,13 +46,16 @@ but do not execute them."
(interactive
(list (read-string "tmux $ ")
current-prefix-arg))
(+tmux (concat "send-keys C-u " command (unless noreturn " Enter"))))
(+tmux (concat "send-keys C-u "
(shell-quote-argument command)
(unless noreturn " Enter"))))
;;;###autoload
(defun +tmux/send-region (beg end)
(defun +tmux/send-region (beg end &optional noreturn)
"Send region to tmux."
(interactive "r")
(error "Not implemented"))
(interactive "rP")
(+tmux/run (string-trim (buffer-substring-no-properties beg end))
noreturn))
;;;###autoload
(defun +tmux/rerun ()