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

Compare commits

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

No commits in common. "6041fcdc0b8001c653629a78c68d179d53d2ea0b" and "cd1a8beeab8bb0b464ae0300327762ea5c78dd35" have entirely different histories.
6041fcdc0b ... cd1a8beeab

1 changed files with 5 additions and 23 deletions
Show Stats Expand all files Collapse all files

28
pw-lib.el
View File

@ -115,9 +115,6 @@ 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
@ -149,31 +146,16 @@ 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--default-node "default.audio.sink")) (pw-lib-get-object (cdr (assoc "default.audio.sink" (pw-lib-default-nodes)))))
(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."
(pw-lib--node-ports (pw-lib-default-audio-sink) "^playback")) (cl-remove-if-not #'(lambda (o)
(if-let ((name (pw-lib-object-value o "port.name")))
(defun pw-lib-default-capture-ports () (string-match "^playback" name)))
"Return list of PipeWire objects that are default capture ports." (pw-lib-children (pw-lib-object-id (pw-lib-default-audio-sink)) "Port")))
(pw-lib--node-ports (pw-lib-default-audio-source) "^capture"))
(defun pw-lib--volume-% (volume) (defun pw-lib--volume-% (volume)
(when volume (when volume