me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
* emacs/guix-utils.el (guix-find-file-function): New variable.
  (guix-find-file): Use it.
This commit is contained in:
Alex Kost 2015-08-30 18:51:09 +03:00
parent 70fabd498c
commit 32c0b6d78c
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
emacs/guix-utils.el
View file

@ -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)