pdm/pipewire-0
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: pdm:cd1a8beeab8bb0b464ae0300327762ea5c78dd35
Branches Tags
pdm:main
...
compare: pdm:6041fcdc0b8001c653629a78c68d179d53d2ea0b
Branches Tags
pdm:main

2 Commits
cd1a8beeab ... 6041fcdc0b

Author SHA1 Message Date
Milan Zamazal
6041fcdc0b Add retrieval of default capture ports 2022-06-14 20:22:22 +02:00
Milan Zamazal
36b66024ad Don’t err in pw-lib-default-playback-ports without default sink 2022-06-14 20:03:46 +02:00
1 changed files with 23 additions and 5 deletions
Show Stats Expand all files Collapse all files

28
pw-lib.el
View File

@ -115,6 +115,9 @@ version, call `pw-lib-refresh' first."
(cons (car d) (cdr (assoc (cdr d) nodes)))) (cons (car d) (cdr (assoc (cdr d) nodes))))
defaults)))) defaults))))
(defun pw-lib--default-node (key)
(pw-lib-get-object (cdr (assoc key (pw-lib-default-nodes)))))
(defun pw-lib-bindings () (defun pw-lib-bindings ()
"Return bindings between PipeWire objects. "Return bindings between PipeWire objects.
An association lists with elements of the form (PARENT . CHILD) is An association lists with elements of the form (PARENT . CHILD) is
@ -146,16 +149,31 @@ version, call `pw-lib-refresh' first."
children))) children)))
children)) children))
(defun pw-lib--node-ports (node &optional regexp)
(when node
(let ((ports (pw-lib-children (pw-lib-object-id node) "Port")))
(if regexp
(cl-delete-if-not #'(lambda (o)
(if-let ((name (pw-lib-object-value o "port.name")))
(string-match regexp name)))
ports)
ports))))
(defun pw-lib-default-audio-sink () (defun pw-lib-default-audio-sink ()
"Return a PipeWire object that is the current default audio sink." "Return a PipeWire object that is the current default audio sink."
(pw-lib-get-object (cdr (assoc "default.audio.sink" (pw-lib-default-nodes))))) (pw-lib--default-node "default.audio.sink"))
(defun pw-lib-default-audio-source ()
"Return a PipeWire object that is the current default audio source."
(pw-lib--default-node "default.audio.source"))
(defun pw-lib-default-playback-ports () (defun pw-lib-default-playback-ports ()
"Return list of PipeWire objects that are default playback ports." "Return list of PipeWire objects that are default playback ports."
(cl-remove-if-not #'(lambda (o) (pw-lib--node-ports (pw-lib-default-audio-sink) "^playback"))
(if-let ((name (pw-lib-object-value o "port.name")))
(string-match "^playback" name))) (defun pw-lib-default-capture-ports ()
(pw-lib-children (pw-lib-object-id (pw-lib-default-audio-sink)) "Port"))) "Return list of PipeWire objects that are default capture ports."
(pw-lib--node-ports (pw-lib-default-audio-source) "^capture"))
(defun pw-lib--volume-% (volume) (defun pw-lib--volume-% (volume)
(when volume (when volume