26 lines
862 B
EmacsLisp
26 lines
862 B
EmacsLisp
|
;;; tools/impatient-mode/autoload.el -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun +impatient-mode/toggle ()
|
||
|
|
"TODO"
|
||
|
|
(interactive)
|
||
|
|
(require 'simple-httpd)
|
||
|
|
(unless (process-status "httpd")
|
||
|
|
(httpd-start))
|
||
|
|
(impatient-mode)
|
||
|
|
(if impatient-mode
|
||
|
|
(add-hook 'kill-buffer-hook '+impatient-mode--cleanup-impatient-mode)
|
||
|
|
(+impatient-mode--cleanup-impatient-mode)))
|
||
|
|
|
||
|
|
(defun +impatient-mode--cleanup-impatient-mode ()
|
||
|
|
(unless (cl-loop for buf in (doom-buffer-list)
|
||
|
|
if (buffer-local-value 'impatient-mode buf)
|
||
|
|
return t)
|
||
|
|
(httpd-stop)
|
||
|
|
(cl-loop for buf in (doom-buffer-list)
|
||
|
|
if (buffer-local-value 'impatient-mode buf)
|
||
|
|
do
|
||
|
|
(with-current-buffer buf
|
||
|
|
(impatient-mode -1)))
|
||
|
|
(remove-hook 'kill-buffer-hook '+impatient-mode--cleanup-impatient-mode)))
|