03/04: emacs: Allow users to choose a 'find-file' function.

[Alex Kost]

alezost pushed a commit to branch master
in repository guix.

commit 32c0b6d78ce815350acf2f6879579d5b628c437f
Author: Alex Kost <address@hidden>
Date:   Sun Aug 30 18:51:09 2015 +0300

    emacs: Allow users to choose a 'find-file' function.
    
    * emacs/guix-utils.el (guix-find-file-function): New variable.
      (guix-find-file): Use it.
---
 emacs/guix-utils.el |   11 ++++++++++-
 1 files changed, 10 insertions(+), 1 deletions(-)

diff --git a/emacs/guix-utils.el b/emacs/guix-utils.el
index 78ea354..c1ce954 100644
--- a/emacs/guix-utils.el
+++ b/emacs/guix-utils.el
@@ -193,10 +193,19 @@ Return time value."
   (require 'org)
   (org-read-date nil t nil prompt))
 
+(defcustom guix-find-file-function #'find-file
+  "Function used to find a file.
+The function is called by `guix-find-file' with a file name as a
+single argument."
+  :type '(choice (function-item find-file)
+                 (function-item org-open-file)
+                 (function :tag "Other function"))
+  :group 'guix)
+
 (defun guix-find-file (file)
   "Find FILE if it exists."
   (if (file-exists-p file)
-      (find-file file)
+      (funcall guix-find-file-function file)
     (message "File '%s' does not exist." file)))
 
 (defmacro guix-while-search (regexp &rest body)