emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add EMACSDIR envvar support to bin/doom

Browse source 
As an alternative to the -e/--emacsd options. Sometimes it is more
consistent to customize bin/doom this way. e.g.

EMACS=/another/bin/emacs DOOMDIR=~/someplace EMACSDIR=~/emacsd bin/doom install
This commit is contained in:
Henrik Lissner 2018-06-20 02:07:20 +02:00
parent 151858a8dc
commit 9f9b7ad792
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
bin/doom
View file

@ -40,7 +40,8 @@
;;
(let ((args (cdr (cdr (cdr command-line-args))))
(emacs-dir (expand-file-name "../" (file-name-directory load-file-name))))
(emacs-dir (or (getenv "EMACSDIR")
(expand-file-name "../" (file-name-directory load-file-name)))))
;; Parse options
(while (ignore-errors (string-prefix-p "-" (car args)))
(pcase (pop args)
@ -61,14 +62,15 @@
(message "DOOMDIR changed to %s" doom-private-dir))
((or "-e" "--emacsd")
(setq emacs-dir (expand-file-name (concat (pop args) "/")))
(or (file-directory-p emacs-dir)
(error "%s does not exist" emacs-dir))
(message "Emacs directory changed to %s" emacs-dir))
((or "-y" "--yes")
(setq doom-auto-accept t)
(setenv "YES" "1")
(message "Auto-yes mode on"))))
(or (file-directory-p emacs-dir)
(error "%s does not exist" emacs-dir))
;; Bootstrap Doom
(load (expand-file-name "init" emacs-dir)
nil 'nomessage)