emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Fix doom-sh/doom-sudo + bootstraps

Browse source
This commit is contained in:
Henrik Lissner 2017-03-23 02:13:11 -04:00
parent 530935ae02
commit d0b64860e1
2 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
core/autoload/system.el
View file

@ -21,10 +21,14 @@
(defun doom-sh (command &rest args)
"Runs a shell command and prints any output to the DOOM buffer."
(let ((cmd-list (split-string command " ")))
(if (equal (car cmd-list) "sudo")
(apply 'doom-sudo (string-join (cdr command) " ") args)
(let ((buf (get-buffer-create "*doom-sh*")))
(shell-command (apply 'format command args) buf)))))
(cond ((equal (car cmd-list) "sudo")
(apply 'doom-sudo (string-join (cdr cmd-list) " ") args))
((let ((bin (executable-find "npm")))
(and (file-exists-p bin)
(not (file-writable-p bin))))
(apply 'doom-sudo (string-join cmd-list " ") args))
(t
(princ (shell-command-to-string (apply 'format command args)))))))
;;;###autoload
(defun doom-sudo (command &rest args)
@ -33,7 +37,7 @@
(with-current-buffer (get-buffer-create "*doom-sudo*")
(unless (string-prefix-p "/sudo::/" default-directory)
(cd "/sudo::/"))
(apply 'doom-sh command args))))
(princ (shell-command-to-string (apply 'format command args))))))
;;;###autoload
(defun doom-fetch (fetcher location dest)