Optimize file-template find-file hook function

This commit is contained in:
Henrik Lissner 2019-10-25 18:07:06 -04:00
parent d8ea65b968
commit 3f759dde23
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 18 additions and 18 deletions

View file

@ -91,18 +91,6 @@ evil is loaded and enabled)."
(file-relative-name path doom-emacs-dir))
((abbreviate-file-name path))))))
;;;###autoload
(defun +file-template-p (rule)
"Return t if RULE applies to the current buffer."
(let ((pred (car rule))
(plist (cdr rule)))
(and (cond ((and (stringp pred) buffer-file-name)
(string-match-p pred buffer-file-name))
((symbolp pred) (eq major-mode pred)))
(or (not (plist-member plist :when))
(funcall (plist-get plist :when) buffer-file-name))
rule)))
;;
;;; Commands