Don't error when core.el not availible

This commit is contained in:
TEC 2022-06-18 23:56:04 +08:00
parent d5665e1a81
commit a7f0580ac4
Signed by: tec
GPG Key ID: 779591AFDB81F06C
1 changed files with 3 additions and 1 deletions

View File

@ -5249,7 +5249,9 @@ correct package statement needed.
#+name: org-pkg-statement
#+begin_src emacs-lisp :tangle no
(load (expand-file-name "core/core.el" user-emacs-directory) nil t) ; for `doom-local-dir'
(condition-case nil
(load (expand-file-name "core/core.el" user-emacs-directory) nil t) ; For `doom-local-dir'
(error (setq doom-local-dir (expand-file-name ".local/" user-emacs-directory)))) ; Fall back on the default value.
(let ((dev-key (and (file-exists-p "~/.ssh/id_ed25519.pub")
(= 0 (shell-command "cat ~/.ssh/id_ed25519.pub | grep -q AAAAC3NzaC1lZDI1NTE5AAAAIOZZqcJOLdN+QFHKyW8ST2zz750+8TdvO9IT5geXpQVt"))))
(dev-pkg (let ((default-directory (expand-file-name "straight/repos/org-mode" doom-local-dir)))