colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remote-os-copy -> smart-copy; now copies to remote host if sshed.

Browse Source
This commit is contained in:
Ivan Malison 2014-04-13 23:54:33 -07:00
parent 4561dd9721
commit bbdc7a5436
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
init.el
View File

@ -105,13 +105,9 @@
((string= (car shorter) (car longer)) (list-diff (cdr shorter) (cdr longer))) ((string= (car shorter) (car longer)) (list-diff (cdr shorter) (cdr longer)))
(t (throw 'error "longer does not match shorter")))) (t (throw 'error "longer does not match shorter"))))
(defun remote-os-copy (&optional b e)
(interactive "r")
(shell-command-on-region b e "source ~/.zshrc; cat | linux_nc_paste_to_remote_clipboard"))
(defun os-copy (&optional b e) (defun os-copy (&optional b e)
(interactive "r") (interactive "r")
(shell-command-on-region b e "pbcopy")) (shell-command-on-region b e "source ~/.zshrc; cat | smart_copy"))
;; ============================================================================= ;; =============================================================================
;; tmux ;; tmux
@ -187,7 +183,7 @@
(global-set-key (kbd "C-c t") 'testify-run-test) (global-set-key (kbd "C-c t") 'testify-run-test)
(global-set-key (kbd "C-c C-o") 'testify-run-case) (global-set-key (kbd "C-c C-o") 'testify-run-case)
(global-set-key (kbd "C-c w") 'tmux-copy) (global-set-key (kbd "C-c w") 'tmux-copy)
(global-set-key (kbd "C-c e") 'remote-os-copy) (global-set-key (kbd "C-c e") 'os-copy)
(global-set-key (kbd "C-x O") (lambda () (interactive) (other-window -1))) (global-set-key (kbd "C-x O") (lambda () (interactive) (other-window -1)))
(global-set-key (kbd "C-c t") 'testify-run-test) (global-set-key (kbd "C-c t") 'testify-run-test)
(global-set-key (kbd "C-c C-t") 'testify-run-case) (global-set-key (kbd "C-c C-t") 'testify-run-case)