about summary refs log tree commit diff
path: root/users/wpcarro/ci/pipelines/script.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2022-01-28T19·55-0800
committerclbot <clbot@tvl.fyi>2022-01-28T20·02+0000
commit4b8998c9c8ff352b0bed96f70e4c2eaa162bf4b9 (patch)
tree53f9f67b58e90b55cdd240ebcd0af6adf951657e /users/wpcarro/ci/pipelines/script.el
parentd2052ff753ea53715fe29d11722f00e521521d77 (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.el44
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)