diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2023-01-14 16:38:17 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2023-01-14 16:39:12 -0700 |
commit | 42727965c2831984e14a46c012612a06e291d0ea (patch) | |
tree | 2b00689625303d116ca6c19c776f5e958576a8ce | |
parent | 2cb36e41c82c1ee1ef2bfdd7e803b3e95919d350 (diff) | |
download | dotfiles-42727965c2831984e14a46c012612a06e291d0ea.tar.gz |
have gdbmacs load Gnus out of ~/src/emacs/primary/
-rw-r--r-- | .emacs.d/init.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index bc2e6b19..6505ef8e 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -58,6 +58,17 @@ (expand-file-name "initlibs/" user-emacs-directory)) t) +;; gdbmacs loads Gnus out of ~/src/emacs/primary/, if it's there. +(when (string= (daemonp) "gdbmacs") + (let ((gnus-primary (expand-file-name "~/src/emacs/primary/lisp/gnus/"))) + (when (file-directory-p gnus-primary) + (when-let* ((gnus-lib (locate-library "gnus")) + (gnus-lib-dir (file-name-directory gnus-lib)) + (gnus-lib-cons + (or (member (directory-file-name gnus-lib-dir) load-path) + (member gnus-lib-dir load-path)))) + (rplaca gnus-lib-cons (directory-file-name gnus-primary)))))) + (require 'cl-lib) (require 'subr-x) (require 'diminish) |