tec/emacs-config
tec
/
emacs-config
1
0
Fork 0
Code Issues 4 Pull Requests Releases Activity

Tweak doom check in Org package recipie

This commit is contained in:
TEC 2022-09-13 18:25:52 +08:00
parent 91469d1fb8
commit 4eb76b819e
Signed by: tec
SSH Key Fingerprint: SHA256:eobz41Mnm0/iYWBvWThftS0ElEs1ftBr6jamutnXc/A
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
config.org
View File

@ -5602,9 +5602,12 @@ correct package statement needed.
#+name: org-pkg-statement
#+begin_src emacs-lisp :tangle no
(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.
(or (require 'doom (expand-file-name "lisp/doom.el"
(or (bound-and-true-p doom-emacs-dir)
user-emacs-directory)))
(setq doom-local-dir
(expand-file-name ".local/" (or (bound-and-true-p doom-emacs-dir)
user-emacs-directory))))
(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)))