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

Compare commits

base: pdm:b80fbab73ad240831b22375fe870c642ff611825
Branches Tags
pdm:main
...
compare: pdm:b6f9754600eb588a30e0dc46c7b84b5c58479e58
Branches Tags
pdm:main

2 Commits
b80fbab73a ... b6f9754600

Author SHA1 Message Date
Milan Zamazal
b6f9754600 Report the node name of the muted port 2022-06-28 20:56:21 +02:00
Milan Zamazal
adf36e59b1 New command pipewire-toggle-microphone 2022-06-28 20:43:37 +02:00
2 changed files with 21 additions and 2 deletions
Show Stats Expand all files Collapse all files

8
pw-lib.el
View File

@ -113,10 +113,16 @@ returned from `pw-lib-profiles'. "
(error "Index of %s profile of device %s not found" profile device-id))
(pw-access-set-profile pw-lib--accessor device-id index))))
(defun pw-lib-parent-node (object)
"Return parent node of `object'.
This is typically used for ports.
Behavior is undefined if `object' has no parent node."
(pw-lib-get-object (pw-lib-object-value object "node.id")))
(defun pw-lib--node (object)
(if (equal (pw-lib-object-type object) "Node")
object
(pw-lib-get-object (pw-lib-object-value object "node.id"))))
(pw-lib-parent-node object)))
(defun pw-lib--node-parameters (object-or-id &optional refresh)
(let* ((object (if (numberp object-or-id)

15
pw-ui.el
View File

@ -251,6 +251,11 @@ The indicator is displayed only on graphical terminals."
(propertize (make-string n-inactive mark)
'face `(:background ,pipewire-osd-volume-off-color)))))))
(defun pw-ui--update-muted (object muted-p)
(let ((object-name (pw-ui--object-name object))
(node-name (pw-ui--object-name (pw-lib-parent-node object))))
(pw-ui--update (format "%s in %s %s" object-name node-name (if muted-p "muted" "unmuted")))))
;;;###autoload
(defun pipewire-toggle-muted ()
"Switch mute status of an audio output or input.
@ -259,9 +264,17 @@ object. Otherwise apply it on the default audio sink."
(interactive)
(let* ((object (pw-ui--current-object t '("Node" "Port")))
(muted-p (pw-lib-toggle-mute object)))
(pw-ui--update (format "%s %s" (pw-ui--object-name object) (if muted-p "muted" "unmuted")))
(pw-ui--update-muted object muted-p)
(pw-ui--osd-volume object)))
;;;###autoload
(defun pipewire-toggle-microphone ()
"Switch mute status of the default audio input."
(interactive)
(let* ((object (car (pw-lib-default-capture-ports)))
(muted-p (pw-lib-toggle-mute object)))
(pw-ui--update-muted object muted-p)))
;;;###autoload
(defun pipewire-set-volume (volume &optional object single-p)
"Set volume of an audio output or input.