maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(wpcarro/emacs): Test that my Emacs can initialize

Browse source 
...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>
This commit is contained in:
William Carroll 2022-01-28 11:55:27 -08:00 • committed by clbot
parent d2052ff753
commit 4b8998c9c8
3 changed files with 23 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

15
users/wpcarro/ci/pipelines/post-receive.nix
View file

@ -2,7 +2,6 @@
let
inherit (builtins) path toJSON;
inherit (depot.users.wpcarro.emacs) initEl runScript;
pipeline.steps = [
{
@ -10,19 +9,5 @@ let
command = "${pkgs.git-secrets}/bin/git-secrets --scan-history";
label = ":broom: lint secrets";
}
{
key = "init-emacs";
command = let
scriptEl = path {
path = ./script.el;
name = "script.el";
};
runScriptEl = runScript {
script = scriptEl;
};
in "${runScriptEl} ${initEl}";
label = ":gnu: initialize Emacs";
depends_on = "lint-secrets";
}
];
in pkgs.writeText "pipeline.yaml" (toJSON pipeline)

44
users/wpcarro/ci/pipelines/script.el
View file

@ -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)