From b725c8a98daf0ad14e4bf9db936977ce030e51d1 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sun, 14 Sep 2014 02:04:02 -0400
Subject: Add interactive version of org-open-file

---
 lisp/init-org.el | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'lisp/init-org.el')

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)
-- 
cgit v1.2.3