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

Try to fix inhibit-sleep-for-audio.lisp for discord

Browse Source
This commit is contained in:
Alexander Rosenberg
2025-11-07 22:46:58 -08:00
parent e0dad7f7dd
commit a3aba45b6e
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -20,13 +20,13 @@
(defun event-stream-states (event)
"Return a alist mapping ids to stream states."
(loop for obj across event
for info = (gethash "info" obj)
for id = (gethash "id" obj)
for running = (and (hash-table-p info)
for info = (gethash "info" obj)
for props = (and (hash-table-p info) (gethash "props" info))
for running = (and (hash-table-p props)
(equal (gethash "type" obj) "PipeWire:Interface:Node")
(equal (gethash "state" info) "running")
(or (not (equal (gethash "n-input-ports" info) 0))
(not (equal (gethash "n-output-ports" info) 0))))
(gethash "stream.is-live" props))
collect (cons id running)))
(defvar *inhibitor-process* nil