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

Back to tmux

Browse source
This commit is contained in:
Henrik Lissner 2015-11-17 03:46:38 -05:00
parent 64c80af959
commit 6b668cee85
3 changed files with 4 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

7
core/core-os-osx.el
View file

@ -76,12 +76,5 @@
(narf:tmux-chdir nil t) (narf:tmux-chdir nil t)
(narf-switch-to-iterm)) (narf-switch-to-iterm))
(defun narf-send-to-iterm (command &optional dont-run)
(when dont-run
(setq command (concat command " ")))
(do-applescript
(format "tell app \"iTerm\" to tell current session of current tab of first window to write text \"%s\""
(s-replace "\"" "\\\"" command))))
(provide 'core-os-osx) (provide 'core-os-osx)
;;; core-os-osx.el ends here ;;; core-os-osx.el ends here

11
core/lib/defuns-term.el
View file

@ -12,19 +12,10 @@
(evil-define-command narf:send-to-tmux (command &optional bang) (evil-define-command narf:send-to-tmux (command &optional bang)
"Sends input to tmux. Use `bang' to append to tmux" "Sends input to tmux. Use `bang' to append to tmux"
(interactive "<term><!>") (interactive "<term><!>")
(narf--send-to-tmux (format (if bang "C-u %s Enter" "%s") (narf--send-to-tmux (format (if bang "%s" "C-u %s Enter")
(shell-quote-argument command))) (shell-quote-argument command)))
(when (evil-ex-p) (when (evil-ex-p)
(message "[Tmux] %s" command))) (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) (provide 'defuns-tmux)
;;; defuns-tmux.el ends here ;;; defuns-tmux.el ends here

13
private/my-commands.el
View file

@ -45,6 +45,9 @@
(exmap "tsnip[pets]" 'narf:yas-file-templates) ; tsnip[!] (exmap "tsnip[pets]" 'narf:yas-file-templates) ; tsnip[!]
(exmap "x" 'narf:scratch-buffer) (exmap "x" 'narf:scratch-buffer)
(exmap "t[mux]" 'narf:send-to-tmux)
(exmap "tcd" (λ (narf:send-to-tmux (format "cd '%s'" default-directory))))
(after! flycheck (after! flycheck
(exmap "er[rors]" (λ (flycheck-buffer) (flycheck-list-errors)))) (exmap "er[rors]" (λ (flycheck-buffer) (flycheck-list-errors))))
@ -62,15 +65,5 @@
(exmap "k[ill]w" 'wg-kill-workgroup) (exmap "k[ill]w" 'wg-kill-workgroup)
(exmap "k[ill]ow" 'narf:kill-other-workgroups)) (exmap "k[ill]ow" 'narf:kill-other-workgroups))
(cond (IS-MAC
(exmap "t[erm]" 'narf:send-to-iterm)
(exmap "tcd" (λ (narf:send-to-iterm (format "cd '%s'" default-directory)))))
(IS-LINUX
(exmap "t[mux]" 'narf:send-to-tmux)
(exmap "tcd" (λ (narf:send-to-tmux (format "cd '%s'" default-directory)))))
(IS-WINDOWS
;; TODO Eshell integration
))
(provide 'my-commands) (provide 'my-commands)
;;; my-commands.el ends here ;;; my-commands.el ends here