diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2022-12-06 07:52:14 -0500 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2022-12-06 07:52:14 -0500 |
| commit | 6f8d6dd0e3afe8f129c362281b1b63dd70632a4f (patch) | |
| tree | 3251e803d9d71bd8f4f4d3ccd44e4af3d2c948f6 | |
| parent | ad597f9148444ed7a176b8532f2e4fe1e515e417 (diff) | |
This is just some uncommitted code I had hanging around. I no longer
use this code. buffer-env + inheritenv cover this use case.
| -rw-r--r-- | guix-shell.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/guix-shell.el b/guix-shell.el index 61478c9..df0ea8d 100644 --- a/guix-shell.el +++ b/guix-shell.el @@ -34,6 +34,7 @@ an alist of search path environment variables." (with-current-buffer buffer (setq default-directory directory) (erase-buffer) + (message "running guix shell...") (call-process "guix" nil t nil "shell" "--search-paths") ;; Gather up the names of all the environment variables and transform ;; the lines into echo commands that we can eval to get the actual @@ -62,6 +63,7 @@ an alist of search path environment variables." (setq names (reverse names)) ;; Eval the search paths. (call-process-region (point-min) (point-max) "sh" t t nil) + (message "guix shell complete") ;; Iterate over the result lines and create an environment variable ;; mapping. (goto-char (point-min)) |