diff options
Diffstat (limited to '.emacs.d/jd/jd-custom.el')
-rwxr-xr-x | .emacs.d/jd/jd-custom.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/.emacs.d/jd/jd-custom.el b/.emacs.d/jd/jd-custom.el index 96d13c6..f48f761 100755 --- a/.emacs.d/jd/jd-custom.el +++ b/.emacs.d/jd/jd-custom.el | |||
@@ -17,6 +17,19 @@ | |||
17 | clipboard-file-path)) | 17 | clipboard-file-path)) |
18 | (find-file clipboard-out-image))) | 18 | (find-file clipboard-out-image))) |
19 | 19 | ||
20 | (defun jd/dired-open-file-in-kill-ring () | ||
21 | (interactive) | ||
22 | (let* ((last-killed (car kill-ring)) | ||
23 | (exists-p (file-exists-p last-killed)) | ||
24 | (dir-p (file-directory-p last-killed))) | ||
25 | (cond | ||
26 | ((not exists-p) (message "File doesn't exists!")) | ||
27 | (dir-p (dired last-killed)) | ||
28 | ((not dir-p) (find-file last-killed))))) | ||
29 | |||
30 | (global-set-key (kbd "C-c O") #'jd/dired-open-file-in-kill-ring) | ||
31 | |||
32 | |||
20 | (setq erc-nick "bobbma" | 33 | (setq erc-nick "bobbma" |
21 | erc-user-full-name "Jakub Dlugosz" | 34 | erc-user-full-name "Jakub Dlugosz" |
22 | erc-notify-list '("akuleszaa")) | 35 | erc-notify-list '("akuleszaa")) |