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

bin/doom: more feedback about enabled options

Browse source
This commit is contained in:
Henrik Lissner 2018-06-15 04:22:05 +02:00
parent 2c0e93773b
commit fb406a165b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

16
bin/doom
View file

@ -48,20 +48,26 @@
(error "Did you mean 'doom help'?"))
((or "-d" "--debug")
(setq doom-debug-mode t)
(setenv "DEBUG" "1"))
(setenv "DEBUG" "1")
(message "Debug mode on"))
((or "-i" "--insecure")
(setenv "INSECURE" "1"))
(setenv "INSECURE" "1")
(message "Insecure mode on"))
((or "-p" "--private")
(setq doom-private-dir (expand-file-name (concat (pop args) "/")))
(or (file-directory-p doom-private-dir)
(error "%s does not exist" doom-private-dir)))
(error "%s does not exist" doom-private-dir))
(setenv "DOOMDIR" doom-private-dir)
(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)))
(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"))))
(setenv "YES" "1")
(message "Auto-yes mode on"))))
;; Bootstrap Doom
(load (expand-file-name "init" emacs-dir)