diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-09-14 02:03:50 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-09-14 02:03:50 -0400 |
| commit | dcbf8c2aaba1ac8a713358a25d6c568619368a59 (patch) | |
| tree | a4e69b5c46f5b83cd8c5350dda64b66d2f43f3f3 /lisp/init-org.el | |
| parent | c76186ccc383593342439b2e02096a00573a5296 (diff) | |
| download | emacs.d-dcbf8c2aaba1ac8a713358a25d6c568619368a59.tar.gz | |
Add org-open-annex-file
Diffstat (limited to 'lisp/init-org.el')
| -rw-r--r-- | lisp/init-org.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/init-org.el b/lisp/init-org.el index be05b84..b11a82a 100644 --- a/lisp/init-org.el +++ b/lisp/init-org.el @@ -46,7 +46,17 @@ (org-open-file file) (user-error "No file at point")))) +(defun km/org-open-annex-file () + "Open a git annex file with `org-open-file'." + (interactive) + (-if-let (files (magit-annex-present-files)) + (org-open-file (magit-completing-read "Open annex file" files nil t)) + (message "No annex files found"))) + +(autoload 'magit-annex-present-files "magit-annex") + (after 'init-buffile + (define-key km/file-map "a" 'km/org-open-annex-file) (define-key km/file-map "p" 'km/org-open-file-at-point)) (setq initial-major-mode 'org-mode) |