45da3bce86
...in favor of `meta.targets = [ "check" ]`. Change-Id: I08b035b7d7bbe5ef4eab10a9f55481048c67330a Reviewed-on: https://cl.tvl.fyi/c/depot/+/5104 Reviewed-by: wpcarro <wpcarro@gmail.com> Autosubmit: wpcarro <wpcarro@gmail.com> Tested-by: BuildkiteCI
44 lines
1.4 KiB
EmacsLisp
44 lines
1.4 KiB
EmacsLisp
;; 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 initialized Emacs without errors or warnings!")
|
|
(kill-emacs 0)
|