From 46fe7419b79302d5287cf703e441f82016c4ef6b Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Fri, 9 Jan 2026 01:11:54 -0800 Subject: [PATCH 1/2] Update inhibit-sleep-for-audio.lisp --- cl/inhibit-sleep-for-audio.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/cl/inhibit-sleep-for-audio.lisp b/cl/inhibit-sleep-for-audio.lisp index c6d6839..ba0e081 100644 --- a/cl/inhibit-sleep-for-audio.lisp +++ b/cl/inhibit-sleep-for-audio.lisp @@ -44,7 +44,7 @@ "--who=inhibit-sleep-for-audio" "--why=PipeWire audio playing or recording" "sleep" - (princ-to-string most-positive-fixnum)))) + "infinity"))) (setq *inhibitor-process* (uiop:launch-program cmd :output "/dev/null")) (debug-format "Started inhibitor process ~S~%" cmd))) From 34ff6f72ba33dcde0b8bf22291e415b0a3903e7a Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Sat, 10 Jan 2026 12:13:31 -0800 Subject: [PATCH 2/2] Use die-with-parent in inhibit-sleep-for-audio.lisp --- cl/inhibit-sleep-for-audio.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/cl/inhibit-sleep-for-audio.lisp b/cl/inhibit-sleep-for-audio.lisp index ba0e081..1dbb026 100644 --- a/cl/inhibit-sleep-for-audio.lisp +++ b/cl/inhibit-sleep-for-audio.lisp @@ -38,7 +38,10 @@ (defun start-inhibitor () "Start the inhibitor process." - (let ((cmd (list "systemd-inhibit" + (let ((cmd (list "die-with-parent" + "-p" (prin1-to-string (sb-posix:getpid)) + "--" + "systemd-inhibit" "--mode=block" "--what=sleep:idle" "--who=inhibit-sleep-for-audio"