From 32c0b6d78ce815350acf2f6879579d5b628c437f Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Sun, 30 Aug 2015 18:51:09 +0300 Subject: 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 file changed, 10 insertions(+), 1 deletion(-) (limited to 'emacs/guix-utils.el') diff --git a/emacs/guix-utils.el b/emacs/guix-utils.el index 78ea3545c6..c1ce954f8f 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) -- cgit 1.4.1