Replace calls to (getenv "BRIEFCASE") with constants/briefcase

I would prefer to define constants/briefcase in terms of `(getenv "BRIEFCASE")`
and assert that `(f-exists? (getenv "BRIEFCASE"))`, in one location:
constants.el
This commit is contained in:
William Carroll 2020-08-25 14:19:19 +01:00
parent 21ce27b0ca
commit 8eed16dc67
4 changed files with 17 additions and 10 deletions

View file

@ -9,8 +9,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'device)
(prelude/assert (f-exists? (getenv "BRIEFCASE")))
(require 'constants)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Library
@ -28,7 +27,7 @@
(bname (format "*%s*" pname)))
(start-process pname bname
"nix-env"
"-I" (format "briefcase=%s" (getenv "BRIEFCASE"))
"-I" (format "briefcase=%s" constants/briefcase)
"-f" "<briefcase>" "-iA" emacs)
(display-buffer bname)))