b121c5e1c6
This allows us to load them via doom-require. Why not use normal features? Because Doom's libraries are designed to be loaded as part of Doom, and will openly rely on Doom state if needed; this is a contract I want to enforce by ensuring their only entry points are through `doom-require` or autoloading. I will add them to the rest of the libraries later. Site-node: this also adds Commentary+Code to the comment headings, as I want a space to use that space to describe the library, when I get around to it.
48 lines
1.7 KiB
EmacsLisp
48 lines
1.7 KiB
EmacsLisp
;;; lisp/lib/process.el -*- lexical-binding: t; -*-
|
|
;;; Commentary:
|
|
;;; Code:
|
|
|
|
;;;###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 (remq 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 (remq nil args))
|
|
:connection-type 'pipe))
|
|
done-p)
|
|
(set-process-filter
|
|
process (lambda (_process output)
|
|
(princ output (current-buffer))
|
|
(princ (doom-print--format 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)))))
|
|
|
|
(provide 'doom-lib '(process))
|
|
;;; process.el ends here
|