Add org-open-file-at-point

1 files changed, 11 insertions, 0 deletions

diff --git a/lisp/init-org.el b/lisp/init-org.el
index 858b7de..be05b84 100644
--- a/lisp/init-org.el
+++ b/lisp/init-org.el
@@ -38,6 +38,17 @@
   (interactive)
   (find-file org-default-notes-file))
 
+(defun km/org-open-file-at-point ()
+  "Open file at point with `org-open-file'."
+  (interactive)
+  (let ((file (thing-at-point 'filename)))
+    (if (and file (file-exists-p file))
+        (org-open-file file)
+      (user-error "No file at point"))))
+
+(after 'init-buffile
+  (define-key km/file-map "p" 'km/org-open-file-at-point))
+
 (setq initial-major-mode 'org-mode)
 
 (define-prefix-command 'km/global-org-map)