diff options
author | William Carroll <wpcarro@gmail.com> | 2022-01-28T19·55-0800 |
---|---|---|
committer | clbot <clbot@tvl.fyi> | 2022-01-28T20·02+0000 |
commit | 4b8998c9c8ff352b0bed96f70e4c2eaa162bf4b9 (patch) | |
tree | 53f9f67b58e90b55cdd240ebcd0af6adf951657e /users/wpcarro/ci/pipelines/script.el | |
parent | d2052ff753ea53715fe29d11722f00e521521d77 (diff) |
feat(wpcarro/emacs): Test that my Emacs can initialize r/3696
...without warnings, errors. This was previously a step in my buildkite instance, but I'm no longer supporting that (in favor of the TVL one). Change-Id: Ifed39aef248b21a1eb5a6c9d8427ebe6996abc3a Reviewed-on: https://cl.tvl.fyi/c/depot/+/5103 Tested-by: BuildkiteCI Reviewed-by: wpcarro <wpcarro@gmail.com> Autosubmit: wpcarro <wpcarro@gmail.com>
Diffstat (limited to 'users/wpcarro/ci/pipelines/script.el')
-rw-r--r-- | users/wpcarro/ci/pipelines/script.el | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/users/wpcarro/ci/pipelines/script.el b/users/wpcarro/ci/pipelines/script.el deleted file mode 100644 index da079b64ba5b..000000000000 --- a/users/wpcarro/ci/pipelines/script.el +++ /dev/null @@ -1,44 +0,0 @@ -;; 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) |