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

Add safe-shell-command and use it for getting json (broken)

Browse source
This commit is contained in:
Clay Harrison 2025-07-18 16:09:32 +02:00
parent 86bf3bb155
commit 72b425c069
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
micromamba.el
View file

@ -87,6 +87,12 @@
(defvar eshell-path-env)
(defun safe-shell-command (args &optional output-buffer error-buffer)
(apply 'shell-command (mapconcat 'shell-quote-argument args " ")
output-buffer error-buffer nil))
;; (safe-shell-command (#'micromamba-executable "env" "list" "--json"))
(defun micromamba--call-json (&rest args)
"Call micromamba and parse the return value as JSON.
@ -94,7 +100,9 @@ Pass ARGS as arguments to the program."
(unless micromamba-executable
(user-error "Micromamba-executable is not set!"))
(with-temp-buffer
(apply #'call-process micromamba-executable nil t nil args)
(if (file-remote-p default-directory)
(safe-shell-command (cons micromamba-executable args) (current-buffer))
(apply #'call-process micromamba-executable nil t nil args))
(goto-char (point-min))
(json-read)))