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

Remove obsolete code

Browse source
This commit is contained in:
claytharrison 2024-12-21 21:54:29 +01:00
parent 148e36e326
commit ffbe41a3a4
1 changed files with 0 additions and 36 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
micromamba.el
View file

@ -49,25 +49,11 @@
"Micromamba (environment manager) integration for Emacs." "Micromamba (environment manager) integration for Emacs."
:group 'python) :group 'python)
(defcustom micromamba-home (expand-file-name "~/.micromamba") ;; adapted from conda.el
"The directory where micromamba stores its files."
:type 'directory
:group 'micromamba)
(defcustom micromamba-executable (executable-find "micromamba") (defcustom micromamba-executable (executable-find "micromamba")
"Path to micromamba executable." "Path to micromamba executable."
:type 'string :type 'string
:group 'micromamba) :group 'micromamba)
(defcustom micromamba-message-on-environment-switch t ;;adapted from conda.el
"Whether to message when switching environments. Default true."
:type 'boolean
:group 'micromamba)
(defcustom micromamba-activate-base-by-default nil ;;adapted from conda.el
"Whether to activate the base environment by default if no other is preferred.
Default nil."
:type 'boolean
(defcustom micromamba-fallback-environment nil (defcustom micromamba-fallback-environment nil
"An environment that micromamba.el activates by default." "An environment that micromamba.el activates by default."
:type 'string :type 'string
@ -98,17 +84,6 @@ Default nil."
(defvar eshell-path-env) (defvar eshell-path-env)
;; internal variables that you probably shouldn't mess with
(defvar micromamba-env-executables-dir ;; copied from virtualenv.el b/w/o conda.el
(if (eq system-type 'windows-nt) "Scripts" "bin")
"Name of the directory containing executables. It is system dependent.")
(defvar micromamba-env-meta-dir "conda-meta" ;; copied from conda.el
"Name of the directory containing metadata.
This should be consistent across platforms.")
;; internal utility functions
(defun micromamba--call-json (&rest args) (defun micromamba--call-json (&rest args)
"Call micromamba and parse the return value as JSON. "Call micromamba and parse the return value as JSON.
@ -120,17 +95,6 @@ Pass ARGS as arguments to the program."
(goto-char (point-min)) (goto-char (point-min))
(json-read))) (json-read)))
(defvar micromamba--config nil
"Cached copy of configuration that Micromamba sees (including `condarc', etc).
Set for the lifetime of the process.")
(defun micromamba--get-config()
"Return current Conda configuration. Cached for the lifetime of the process."
(if (not (eq micromamba--config nil))
micromamba--config
(let ((cfg (micromamba--call-json "config" "list" "--json")))
(setq micromamba--config cfg))))
(defun micromamba-envs () (defun micromamba-envs ()
"Get micromamba environments. "Get micromamba environments.