blob: 8f6da2b09893d6466225bd2693bfbe4c37d20909 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
|
;;; nix-shell.el -- run nix commands in Emacs -*- lexical-binding: t -*-
;; Author: Matthew Bauer <mjbauer95@gmail.com>
;; Homepage: https://github.com/NixOS/nix-mode
;; Keywords: nix
;; This file is NOT part of GNU Emacs.
;;; Commentary:
;; To use this just run:
;; M-x RET nix-shell RET
;; This will give you some
;;; Code:
(require 'nix)
(require 'nix-instantiate)
(require 'nix-store)
(defgroup nix-shell nil
"All nix-shell options."
:group 'nix)
(defcustom nix-shell-inputs '(depsBuildBuild
depsBuildBuildPropagated
nativeBuildInputs
propagatedNativeBuildInputs
depsBuildTarget
depsBuildTargetPropagated)
"List of inputs to collect for nix-shell."
:type 'list
:group 'nix-shell)
(defcustom nix-shell-clear-environment nil
"Whether to clear the old ‘exec-path’ & environment.
Similar to ‘--pure’ argument in command line nix-shell."
:type 'boolean
:group 'nix-shell)
(defcustom nix-shell-auto-realise t
"Whether we can realise paths in the built .drv file."
:type 'boolean
:group 'nix-shell)
(defcustom nix-file nil
"Nix file to build expressions from.
Should only be set in dir-locals.el file."
:type 'stringp
:group 'nix-shell)
(defcustom nix-attr nil
"Nix attribute path to use.
Should only be set in dir-locals.el file."
:type 'stringp
:group 'nix-shell)
;;;###autoload
(defun nix-shell-unpack (file attr)
"Run Nix’s unpackPhase.
FILE is the file to unpack from.
ATTR is the attribute to unpack."
(interactive (list (nix-read-file) nil))
(unless attr (setq attr (nix-read-attr file)))
(nix-shell--run-phase "unpack" file attr))
(defun nix-read-attr (_)
"Get nix attribute from user."
(read-string "Nix attr: "))
(defun nix-read-file ()
"Get nix file from user."
(cond
(nix-file nix-file)
((file-exists-p "shell.nix") "shell.nix")
((file-exists-p "default.nix") "default.nix")
(t (read-file-name "Nix file: " nil "<nixpkgs>"))))
;;;###autoload
(defun nix-shell-configure (file attr)
"Run Nix’s configurePhase.
FILE is the file to configure from.
ATTR is the attribute to configure."
(interactive (list (nix-read-file) nil))
(unless attr (setq attr (nix-read-attr file)))
(nix-shell--run-phase "configure" file attr))
;;;###autoload
(defun nix-shell-build (file attr)
"Run Nix’s buildPhase.
FILE is the file to build from.
ATTR is the attribute to build."
(interactive (list (nix-read-file) nil))
(unless attr (setq attr (nix-read-attr file)))
(nix-shell--run-phase "build" file attr))
(defun nix-shell--run-phase (phase file attr)
"Get source from a Nix derivation.
PHASE phase to run.
FILE used for base of Nix expresions.
ATTR from NIX-FILE to get Nix expressions from."
(shell-command
(format "%s '%s' -A '%s' --run 'if [ -z \"$%sPhase\" ]; then eval %sPhase; else eval \"$%sPhase\"; fi' &"
nix-shell-executable
file attr phase phase phase)))
(declare-function flycheck-buffer "flycheck")
(defun nix-shell--callback (buffer drv)
"Run the nix-shell callback to setup the buffer.
The BUFFER to run in.
The DRV file to use."
(let* ((env (alist-get 'env drv))
(stdenv (alist-get 'stdenv env))
(system (alist-get 'system env))
(inputs (remove nil
(apply 'append
(mapcar (lambda (prop)
(split-string (alist-get prop env)))
nix-shell-inputs)))))
;; Prevent accidentally rebuilding the world.
(unless (file-directory-p stdenv)
(error
"Your stdenv at %s has not been built. Please run: nix-store -r %s"
stdenv stdenv))
;; Make sure this .drv file can actually be built here.
(unless (string= system (nix-system))
(error
"Your system (%s) does not match .drv’s build system (%s)"
(nix-system) system))
(with-current-buffer buffer
(when nix-shell-clear-environment
(setq-local exec-path nil)
(setq-local eshell-path-env "")
;; (setq-local process-environment nil)
)
(dolist (input inputs)
(when (and (not (file-directory-p input))
nix-shell-auto-realise)
(nix-store-realise input))
(let ((bin (expand-file-name "bin" input))
(man (expand-file-name "share/man" input))
(include (expand-file-name "include" input)))
(add-to-list 'exec-path bin)
(setq-local eshell-path-env
(format "%s:%s" bin eshell-path-env))
(add-to-list 'woman-manpath man)
(add-to-list 'ffap-c-path include)
(add-to-list 'Man-header-file-path include)
(add-to-list 'irony-additional-clang-options
(format "-I%s" include))))
(when flycheck-mode
(flycheck-buffer))
)))
(defun nix-shell-with-packages (packages &optional pkgs-file)
"Create a nix shell environment from the listed package.
PACKAGES a list of packages to use.
PKGS-FILE the Nix file to get the packages from."
(nix-instantiate-async (apply-partially 'nix-shell--callback
(current-buffer))
(nix-shell--with-packages-file packages pkgs-file)
))
(defun nix-shell--with-packages-file (packages &optional pkgs-file)
"Get a .nix file from the packages list.
PACKAGES to put in the .nix file.
PKGS-FILE package set to pull from."
(unless pkgs-file (setq pkgs-file "<nixpkgs>"))
(let ((nix-file (make-temp-file "nix-shell" nil ".nix")))
(with-temp-file nix-file
(insert (format "with import %s { };\n" pkgs-file))
(insert "runCommandCC \"shell\" {\n")
(insert " nativeBuildInputs = [\n")
(mapc (lambda (x) (insert (format " %s\n" x))) packages)
(insert " ];\n")
(insert "} \"\"\n"))
nix-file))
(defun nix-eshell-with-packages (packages &optional pkgs-file)
"Create an Eshell buffer that has the shell environment in it.
PACKAGES a list of packages to pull in.
PKGS-FILE a file to use to get the packages."
(let ((buffer (generate-new-buffer "*nix-eshell*")))
(pop-to-buffer-same-window buffer)
(setq-local nix-shell-clear-environment t)
(nix-shell--callback
(current-buffer)
(nix-instantiate
(nix-shell--with-packages-file packages pkgs-file) nil t))
(eshell-mode)
buffer))
(defun nix-eshell (file &optional attr)
"Create an Eshell buffer that has the shell environment in it.
FILE the .nix expression to create a shell for.
ATTR attribute to instantiate in NIX-FILE."
(interactive (list (nix-read-file) nil))
(unless attr (setq attr (nix-read-attr nix-file)))
(let ((buffer (generate-new-buffer "*nix-eshell*")))
(pop-to-buffer-same-window buffer)
(setq-local nix-shell-clear-environment t)
(nix-shell--callback
(current-buffer)
(nix-instantiate file attr t))
(eshell-mode)
buffer))
;;;###autoload
(defun nix-shell-with-string (string)
"A nix-shell emulator in Emacs from a string.
STRING the nix expression to use."
(let ((file (make-temp-file "nix-shell" nil ".nix")))
(with-temp-file file (insert string))
(nix-instantiate-async (apply-partially 'nix-shell--callback
(current-buffer))
file)))
;;;###autoload
(defun nix-shell (file &optional attr)
"A nix-shell emulator in Emacs.
FILE the file to instantiate.
ATTR an attribute of the Nix file to use."
(interactive (list (nix-read-file) nil))
(unless attr (setq attr (nix-read-attr file)))
(nix-instantiate-async (apply-partially 'nix-shell--callback
(current-buffer))
file attr))
(provide 'nix-shell)
;;; nix-shell.el ends here
|