Generalize doom-file-cookie-p

And move it to doom-file-cookie-p for anyone to use.
This commit is contained in:
Henrik Lissner 2019-10-04 22:42:53 -04:00
parent 5b5dbe1c47
commit 297728bf74
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
5 changed files with 21 additions and 12 deletions

View file

@ -21,15 +21,6 @@ commands like `doom-packages-install', `doom-packages-update' and
;;
;;; Dispatcher API
(defun doom-file-cookie-p (file)
(with-temp-buffer
(insert-file-contents-literally file nil 0 256)
(if (and (re-search-forward "^;;;###if " nil t)
(<= (line-number-at-pos) 3))
(let ((load-file-name file))
(eval (sexp-at-point) t))
t)))
(defun doom-sh (command &rest args)
"Execute COMMAND with ARGS in the shell and return (STATUS . OUTPUT).