blob: da079b64ba5b040afe2a00b2a9e382210e9f50ff (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
;; This script initializes Emacs and exits with either a zero or non-zero status
;; depending on whether or not Emacs initialized without logging warnings or
;; encountering errors.
;;
;; This script reads the location of init.el as the last argument in `argv'.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Dependencies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'prelude)
(require 'f)
(require 'dash)
(require 'buffer)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Script
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar init-el-path (-last-item argv)
"Path to the init.el file that this script attempts to load.")
(prelude-assert (f-exists? init-el-path))
(condition-case err
(load init-el-path)
(error
(message "Encountered an error while attempting to load init.el: %s" err)
(kill-emacs 1)))
(when (buffer-exists? "*Errors*")
(progn
(with-current-buffer "*Errors*"
(message "Encountered errors in *Errors* buffer: %s" (buffer-string)))
(kill-emacs 1)))
(when (buffer-exists? "*Warnings*")
(progn
(with-current-buffer "*Warnings*"
(message "Encountered warnings in *Warnings* buffer: %s" (buffer-string)))
(kill-emacs 1)))
(message "Successfully init'd Emacs without encountering errors or warnings!")
(kill-emacs 0)
|
