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

remove useless copy functions

Browse Source
This commit is contained in:
Ivan Malison 2016-06-02 14:37:42 -07:00
parent c40c222030
commit dcc614e9a5
1 changed files with 0 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
dotfiles/emacs.d/init.el
View File

@ -420,35 +420,12 @@ buffer is not visiting a file."
(insert string) (insert string)
(kill-ring-save (point-max) (point-min)))) (kill-ring-save (point-max) (point-min))))
(defun os-copy-string (string)
(with-temp-buffer
(insert string)
(os-copy (beginning-of-buffer) (end-of-buffer))))
(defun os-copy (&optional b e)
(interactive "r")
(shell-command-on-region b e "source ~/.zshrc; cat | smart_copy"))
(defun os-paste ()
(interactive)
(insert (shell-command-to-string "source ~/.zshrc; ospaste")))
(defun all-copy (&optional b e)
(interactive "r")
(os-copy b e)
(tmux-copy b e)
(kill-ring-save b e))
(defun open-pdf () (defun open-pdf ()
(interactive) (interactive)
(let ( (pdf-file (replace-regexp-in-string (let ( (pdf-file (replace-regexp-in-string
"\.tex$" ".pdf" buffer-file-name))) "\.tex$" ".pdf" buffer-file-name)))
(shell-command (concat "open " pdf-file)))) (shell-command (concat "open " pdf-file))))
(defun tmux-copy (&optional b e)
(interactive "r")
(shell-command-on-region b e "cat | tmux loadb -"))
(defun eval-and-replace () (defun eval-and-replace ()
(interactive) (interactive)
(backward-kill-sexp) (backward-kill-sexp)