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

refactor(cli): better error for missing profiles.el

Browse source 
Only appears if a profile was requested and no profile file was found.
This commit is contained in:
Henrik Lissner 2022-07-29 12:32:35 +02:00
parent 068966a4cd
commit 491f49cfe5
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
core/core-cli.el
View file

@ -47,16 +47,22 @@
(when profile
(with-temp-buffer
(let ((coding-system-for-read 'utf-8-auto)
(profile-file (expand-file-name "profiles.el" user-emacs-directory)))
(insert-file-contents profile-file)
(profiles-file (expand-file-name "profiles.el" user-emacs-directory)))
(condition-case e
(progn
(insert-file-contents profiles-file)
(dolist (var (or (cdr (assq (intern profile) (read (current-buffer))))
(progn (message "No %S profile found" profile)
(kill-emacs 3))))
(if (eq (car var) 'env)
(dolist (env (cdr var)) (setenv (car env) (cdr env)))
(set (car var) (cdr var))))
(end-of-file (signal 'end-of-file (list profile-file)))
(set (car var) (cdr var)))))
(file-missing
(message "No $EMACSDIR/%s file to look up %S in."
(file-name-nondirectory profiles-file)
profile)
(kill-emacs 3))
(end-of-file (signal 'end-of-file (list profiles-file)))
(error (error "Parser error in profiles.el: %s" (error-message-string e))))))))
;; HACK Load `cl' and site files manually to prevent polluting logs and stdout