wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

functions for copying filenames into kill ring.

Browse Source
This commit is contained in:
Ivan Malison 2015-06-23 17:38:16 -04:00
parent 225435ea07
commit 8b7eea6397
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -249,6 +249,24 @@ buffer is not visiting a file."
(defun make-frame-if-none-exists-and-focus () (defun make-frame-if-none-exists-and-focus ()
(make-frame-visible (select-frame (make-frame-if-none-exists)))) (make-frame-visible (select-frame (make-frame-if-none-exists))))
(defun copy-buffer-file-name ()
(interactive)
(add-string-to-kill-ring (file-name-nondirectory (buffer-file-name))))
(defun copy-buffer-file-path ()
(interactive)
(add-string-to-kill-ring (file-relative-name (buffer-file-name) (projectile-project-root))))
(defun add-string-to-kill-ring (string)
(with-temp-buffer
(insert string)
(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) (defun os-copy (&optional b e)
(interactive "r") (interactive "r")
(shell-command-on-region b e "source ~/.zshrc; cat | smart_copy")) (shell-command-on-region b e "source ~/.zshrc; cat | smart_copy"))