From af897e44bb9ebd710e01760dc3c90a3e64d14d77 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Tue, 23 Jun 2015 22:36:55 -0400 Subject: Add dired-jump-file-at-point command --- lisp/init-files.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'lisp') diff --git a/lisp/init-files.el b/lisp/init-files.el index b1a7778..994687a 100644 --- a/lisp/init-files.el +++ b/lisp/init-files.el @@ -42,6 +42,14 @@ (setq file (concat "/sudo:root@localhost:" file))) (find-file file))) +(defun km/dired-jump-file-at-point () + "Run `dired-jump' on file at point." + (interactive) + (let ((file (thing-at-point 'filename))) + (if (and file (file-exists-p file)) + (dired-jump 'other-window (expand-file-name file)) + (user-error "No file at point")))) + (defun km/write-file () "Run `write-file'. Use the current file name as initial input of prompt." @@ -59,6 +67,7 @@ Use the current file name as initial input of prompt." (define-prefix-command 'km/file-map) (global-set-key (kbd "C-c f") 'km/file-map) +(define-key km/file-map "j" 'km/dired-jump-file-at-point) (define-key km/file-map "R" 'km/find-file-as-root) (define-key km/file-map "n" 'km/rename-current-buffer-file) (define-key km/file-map "l" 'nlines-run-command) -- cgit v1.2.3