23a41528bb
The Nix expression that builds `wpcarros-emacs` sets BRIEFCASE, so the .envrc isn't relied on.
79 lines
3.3 KiB
EmacsLisp
79 lines
3.3 KiB
EmacsLisp
;;; wpc-nix.el --- Nix support -*- lexical-binding: t -*-
|
|
;; Author: William Carroll <wpcarro@gmail.com>
|
|
|
|
;;; Commentary:
|
|
;; Configuration to support working with Nix.
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Dependencies
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(require 'device)
|
|
|
|
(prelude/assert (f-exists? (getenv "BRIEFCASE")))
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Library
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(use-package nix-mode
|
|
:mode "\\.nix\\'")
|
|
|
|
;; TODO(wpcarro): Ensure the sub-process can resolve <briefcase>.
|
|
(defun nix/rebuild-emacs ()
|
|
"Use nix-env to rebuild wpcarros-emacs."
|
|
(interactive)
|
|
(let* ((emacs (if (device/corporate?) "emacs.glinux" "emacs.nixos"))
|
|
(pname (format "nix-build <briefcase/%s>" emacs))
|
|
(bname (format "*%s*" pname)))
|
|
(start-process pname bname
|
|
"nix-env"
|
|
"-I" (format "briefcase=%s" (getenv "BRIEFCASE"))
|
|
"-f" "<briefcase>" "-iA" emacs)
|
|
(display-buffer bname)))
|
|
|
|
(defun nix/home-manager-switch ()
|
|
"Use Nix to reconfigure the user environment."
|
|
(interactive)
|
|
(start-process "nix/home-manager-switch" "*nix/home-manager-switch*"
|
|
"home-manager"
|
|
"-I" (format "nixpkgs=%s" (f-expand "~/nixpkgs-channels"))
|
|
"-I" (format "home-manager=%s" (f-expand "~/home-manager"))
|
|
"switch")
|
|
(display-buffer "*nix/home-manager-switch*"))
|
|
|
|
(defun nix/sly-from-briefcase (attribute)
|
|
"Start a Sly REPL configured with a Lisp matching a derivation
|
|
from my monorepo.
|
|
|
|
This function was taken from @tazjin's depot and adapted for my monorepo.
|
|
|
|
The derivation invokes nix.buildLisp.sbclWith and is built
|
|
asynchronously. The build output is included in the error
|
|
thrown on build failures."
|
|
(interactive "sAttribute: ")
|
|
(lexical-let* ((outbuf (get-buffer-create (format "*briefcase-out/%s*" attribute)))
|
|
(errbuf (get-buffer-create (format "*briefcase-errors/%s*" attribute)))
|
|
(expression (format "let briefcase = import <briefcase> {}; in briefcase.third_party.depot.nix.buildLisp.sbclWith [ briefcase.%s ]" attribute))
|
|
(command (list "nix-build" "-E" expression)))
|
|
(message "Acquiring Lisp for <briefcase>.%s" attribute)
|
|
(make-process :name (format "nix-build/%s" attribute)
|
|
:buffer outbuf
|
|
:stderr errbuf
|
|
:command command
|
|
:sentinel
|
|
(lambda (process event)
|
|
(unwind-protect
|
|
(pcase event
|
|
("finished\n"
|
|
(let* ((outpath (s-trim (with-current-buffer outbuf (buffer-string))))
|
|
(lisp-path (s-concat outpath "/bin/sbcl")))
|
|
(message "Acquired Lisp for <briefcase>.%s at %s" attribute lisp-path)
|
|
(sly lisp-path)))
|
|
(_ (with-current-buffer errbuf
|
|
(error "Failed to build '%s':\n%s" attribute (buffer-string)))))
|
|
(kill-buffer outbuf)
|
|
(kill-buffer errbuf))))))
|
|
|
|
(provide 'wpc-nix)
|
|
;;; wpc-nix.el ends here
|