mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(emacs-pkgs/nix-util): Fix nix/sly-from-depot function

Browse source 
A formatting error broke this at some point (the let clauses were
outside of the definition list).

Change-Id: Iaa2dc9ad02d2f7e909ca9bf28705e782ad26060b
Reviewed-on: https://cl.tvl.fyi/c/depot/+/4765
Tested-by: BuildkiteCI
Autosubmit: tazjin <tazjin@tvl.su>
Reviewed-by: sterni <sternenseemann@systemli.org>
Reviewed-by: grfn <grfn@gws.fyi>
This commit is contained in:
Vincent Ambo 2022-01-03 17:09:34 +03:00 • committed by clbot
parent f7235d10e7
commit 9d327c3acc
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tools/emacs-pkgs/nix-util/nix-util.el
View file

@ -68,7 +68,7 @@
(defun nix/sly-from-depot (attribute) (defun nix/sly-from-depot (attribute)
"Start a Sly REPL configured with a Lisp matching a derivation "Start a Sly REPL configured with a Lisp matching a derivation
from my depot. from the depot.
The derivation invokes nix.buildLisp.sbclWith and is built The derivation invokes nix.buildLisp.sbclWith and is built
asynchronously. The build output is included in the error asynchronously. The build output is included in the error
@ -77,10 +77,8 @@
(interactive "sAttribute: ") (interactive "sAttribute: ")
(lexical-let* ((outbuf (get-buffer-create (format "*depot-out/%s*" attribute))) (lexical-let* ((outbuf (get-buffer-create (format "*depot-out/%s*" attribute)))
(errbuf (get-buffer-create (format "*depot-errors/%s*" attribute))) (errbuf (get-buffer-create (format "*depot-errors/%s*" attribute)))
(expression (format "let depot = import <depot> {}; in depot.nix.buildLisp.sbclWith [ depot.%s ]" attribute)) (expression (format "(import <depot> {}).%s.repl" attribute))
;; TODO(tazjin): use <depot> (command (list "nix-build" "--no-out-link" "-I" (format "depot=%s" tvl-depot-path) "-E" expression)))
(command (list "nix-build" "--no-out-link" "-I" (format "depot=%s" nix-depot-path) "-E" expression)))
(message "Acquiring Lisp for <depot>.%s" attribute) (message "Acquiring Lisp for <depot>.%s" attribute)
(make-process :name (format "depot-nix-build/%s" attribute) (make-process :name (format "depot-nix-build/%s" attribute)
:buffer outbuf :buffer outbuf