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

Simplify/improve concatenation for shell-command

Browse source
This commit is contained in:
claytharrison 2025-07-19 20:12:23 +02:00
parent 3c63a7ddd2
commit 2ef6ac7e19
1 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
micromamba.el
View file

@ -95,7 +95,7 @@ Pass ARGS as arguments to the program."
(user-error "Micromamba-executable is not set!"))
(with-temp-buffer
(if (file-remote-p default-directory)
(shell-command (mapconcat 'identity (cons micromamba-executable args) " ") (current-buffer))
(shell-command (mapconcat #'shell-quote-argument (cons micromamba-executable args) " ") (current-buffer))
(apply #'call-process micromamba-executable nil t nil args))
(goto-char (point-min))
(json-read)))
@ -232,9 +232,8 @@ The parameters value is an alist as defined by
(with-temp-buffer
(if (file-remote-p default-directory)
(shell-command
(mapconcat 'identity
(list micromamba-executable "shell"
"activate" prefix "-s" "bash") " ")
(concat micromamba-executable " shell"
" activate " prefix " -s" " bash")
(current-buffer))
(call-process micromamba-executable nil t nil
"shell" "activate" prefix "-s" "bash"))
@ -249,10 +248,9 @@ The parameters value is an alist as defined by
(with-temp-buffer
(if (file-remote-p default-directory)
(shell-command
(mapconcat 'identity
(list micromamba-executable "run"
"micromamba" "shell"
"deactivate" "-s" "bash") " ")
(concat micromamba-executable " run"
" micromamba" " shell"
" deactivate" " -s" " bash")
(current-buffer))
(call-process micromamba-executable nil t nil
"shell" "deactivate" "-s" "bash"))