;;; -*- lexical-binding: t -*-
;;
;; --------------------------------------------------------------------------
;; (* not) mentioned in the `process' group
;;
;; beg:
;; * `call-process'
;; * `start-process'
;;   (make-process :name "foo" :command '("cat" "/tmp/foo"))
;; IPC:
;; * `signal-process'
;; preds and meta:
;;   (processp       p)
;;   (process-live-p p)
;; * (get-process    p)
;;   (process-status p)
;; buffer:
;;   (process-buffer p)
;;   (get-buffer-process buf)
;; sentinel:
;;   (set-process-sentinel p (L (proc str)))
;; end:
;;   (delete-process p)
;;   (kill-process   p)
;; --------------------------------------------------------------------------

(require 'luki-lisp)

;; --------------------------------------------------------------------------

(defalias 'ps #'list-processes)

;; --------------------------------------------------------------------------

(when nil

(setq process-connection-type nil) ; for pipes, t for `pty'

)

;; --------------------------------------------------------------------------

(defun mi-kill-warnings ()
  (dolist (p (process-list))
    (set-process-query-on-exit-flag p)))

;; --------------------------------------------------------------------------
;; (info "(elisp)")

(when nil

(make-process
 :name "mi-make-process"
 :command (list (insert-char ?\i))
 :noquery t)

(let ((buf "*mi-buf*")
      (nom "mi-start-process")
      (cmd "ls")
      (args (list "-l" "/bin/")))
  (unless (processp nom)
    (start-process nom buf cmd (1st args) (2nd args)))
  (pop-to-buffer buf))

)

;; --------------------------------------------------------------------------

(<- 'll-multincal)