sqrtminusone/micromamba.el
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/micromamba.el.git synced 2025-12-10 21:23:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: allow call micromamba-activate with env name

Browse source
This commit is contained in:
Pavel Korytov 2023-06-18 14:52:13 +03:00
parent 01e5cd6b64
commit 691727e27d
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
micromamba.el
View file

@ -175,6 +175,8 @@ The parameters value is an alist as defined by
The parameters value is an alist as defined by The parameters value is an alist as defined by
`micromamba--parse-script-buffer'." `micromamba--parse-script-buffer'."
(unless (alist-get 'path parameters)
(user-error "Something went wrong. Cannot get PATH"))
(setq exec-path (alist-get 'path parameters)) (setq exec-path (alist-get 'path parameters))
(setenv "PATH" (string-join (alist-get 'path parameters) ":")) (setenv "PATH" (string-join (alist-get 'path parameters) ":"))
(dolist (var-name (alist-get 'vars-unset parameters)) (dolist (var-name (alist-get 'vars-unset parameters))
@ -192,6 +194,13 @@ The parameters value is an alist as defined by
(completing-read "Choose a micromamba environment: " envs (completing-read "Choose a micromamba environment: " envs
nil t) nil t)
envs nil nil #'equal)))) envs nil nil #'equal))))
;; To allow calling the function with env name as well
(unless (string-match-p (rx bos "/") prefix)
(let ((envs (micromamba-envs)))
(setq prefix (alist-get prefix envs nil nil #'equal)))
(unless prefix
(user-error "Environment %s not found")))
(message prefix)
(micromamba-deactivate) (micromamba-deactivate)
(setq micromamba-env-current-prefix prefix) (setq micromamba-env-current-prefix prefix)
(run-hooks 'micromamba-preactivate-hook) (run-hooks 'micromamba-preactivate-hook)