yogsototh/doom-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

doom-doctor: prevent errors we don't care about

Browse source
This commit is contained in:
Henrik Lissner 2019-05-05 14:21:44 -04:00
parent 78cff4ef97
commit 89b20d71ce
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
bin/doom-doctor
View file

@ -39,7 +39,9 @@
;;; Helpers
(defun sh (cmd)
(string-trim-right (shell-command-to-string cmd)))
(ignore-errors
(string-trim-right
(shell-command-to-string cmd))))
(defun elc-check-dir (dir)
(dolist (file (directory-files-recursively dir "\\.elc$"))
@ -99,12 +101,13 @@
(msg! "Doom v%s (%s)"
(or (let ((core-file (expand-file-name "core/core.el" user-emacs-directory)))
(and (file-exists-p core-file)
(with-temp-buffer
(insert-file-contents-literally core-file)
(goto-char (point-min))
(when (re-search-forward "doom-version" nil t)
(forward-char)
(sexp-at-point)))))
(ignore-errors
(with-temp-buffer
(insert-file-contents-literally core-file)
(goto-char (point-min))
(when (re-search-forward "doom-version" nil t)
(forward-char)
(sexp-at-point))))))
"???")
(if (and (executable-find "git")
(file-directory-p (expand-file-name ".git" user-emacs-directory)))