1e6ef4d6e4
- Replace doom//upgrade with doom/upgrade - Replace doom//autoloads with doom/reload-autoloads - Replace doom//refresh with doom/reload - Remove doom//install; there should be no workflow for this command - Remove doom//autoremove; autoremove was replaced with purge. Maybe I'll write a doom//purge analogue. Not sure yet. - Use compile instead of hacky wrapper around core-cli API Rewrite interactive CLI commands - Rewrite doom//upgrade & doom//autoloads - Remove doom//install; there really should be no use-case for it - Remove doom//autoremove; autoremove was replaced with purge. I'll get around to writing a doom//purge eventually. fixup! Rewrite interactive CLI commands
46 lines
1.6 KiB
EmacsLisp
46 lines
1.6 KiB
EmacsLisp
;;; core/autoload/cli.el -*- lexical-binding: t; -*-
|
|
|
|
;;
|
|
;;; Library
|
|
|
|
;;;###autoload
|
|
(defun doom-call-process (command &rest args)
|
|
"Execute COMMAND with ARGS synchronously.
|
|
|
|
Returns (STATUS . OUTPUT) when it is done, where STATUS is the returned error
|
|
code of the process and OUTPUT is its stdout output."
|
|
(with-temp-buffer
|
|
(cons (or (apply #'call-process command nil t nil args)
|
|
-1)
|
|
(string-trim (buffer-string)))))
|
|
|
|
;;;###autoload
|
|
(defun doom-exec-process (command &rest args)
|
|
"Execute COMMAND with ARGS synchronously.
|
|
|
|
Unlike `doom-call-process', this pipes output to `standard-output' on the fly to
|
|
simulate 'exec' in the shell, so batch scripts could run external programs
|
|
synchronously without sacrificing their output.
|
|
|
|
Warning: freezes indefinitely on any stdin prompt."
|
|
;; FIXME Is there any way to handle prompts?
|
|
(with-temp-buffer
|
|
(cons (let ((process
|
|
(make-process :name "doom-sh"
|
|
:buffer (current-buffer)
|
|
:command (cons command args)
|
|
:connection-type 'pipe))
|
|
done-p)
|
|
(set-process-filter
|
|
process (lambda (_process output)
|
|
(princ output (current-buffer))
|
|
(princ output)))
|
|
(set-process-sentinel
|
|
process (lambda (process _event)
|
|
(when (memq (process-status process) '(exit stop))
|
|
(setq done-p t))))
|
|
(while (not done-p)
|
|
(sit-for 0.1))
|
|
(process-exit-status process))
|
|
(string-trim (buffer-string)))))
|