Zander671/random-scripts
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'main' of git.zander.im:Zander671/random-scripts

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-01-14 03:57:06 -08:00
parent bde31d893e 34ff6f72ba
commit 4769b48328
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
cl/inhibit-sleep-for-audio.lisp
View File

@ -38,13 +38,16 @@
(defun start-inhibitor () (defun start-inhibitor ()
"Start the inhibitor process." "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" "--mode=block"
"--what=sleep:idle" "--what=sleep:idle"
"--who=inhibit-sleep-for-audio" "--who=inhibit-sleep-for-audio"
"--why=PipeWire audio playing or recording" "--why=PipeWire audio playing or recording"
"sleep" "sleep"
(princ-to-string most-positive-fixnum)))) "infinity")))
(setq *inhibitor-process* (uiop:launch-program cmd :output "/dev/null")) (setq *inhibitor-process* (uiop:launch-program cmd :output "/dev/null"))
(debug-format "Started inhibitor process ~S~%" cmd))) (debug-format "Started inhibitor process ~S~%" cmd)))