diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-09-14 02:04:02 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-09-14 02:04:02 -0400 |
| commit | b725c8a98daf0ad14e4bf9db936977ce030e51d1 (patch) | |
| tree | 99fc83e7b069756b89cbd1b6d5fa756f6c8de698 | |
| parent | dcbf8c2aaba1ac8a713358a25d6c568619368a59 (diff) | |
| download | emacs.d-b725c8a98daf0ad14e4bf9db936977ce030e51d1.tar.gz | |
Add interactive version of org-open-file
| -rw-r--r-- | lisp/init-org.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/init-org.el b/lisp/init-org.el index b11a82a..dafc0d4 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -46,6 +46,11 @@ (org-open-file file) (user-error "No file at point")))) +(defun km/org-open-file () + "Interactive version of `org-open-file'." + (interactive) + (org-open-file (read-file-name "Open file" nil nil t))) + (defun km/org-open-annex-file () "Open a git annex file with `org-open-file'." (interactive) @@ -57,6 +62,7 @@ (after 'init-buffile (define-key km/file-map "a" 'km/org-open-annex-file) + (define-key km/file-map "o" 'km/org-open-file) (define-key km/file-map "p" 'km/org-open-file-at-point)) (setq initial-major-mode 'org-mode) |