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

Silence compilation warnings about unused variables

Browse Source
This commit is contained in:
Milan Zamazal
2022-06-15 19:50:24 +02:00
parent 6041fcdc0b
commit 08c9d50a1c
3 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
pw-access.el
View File

@@ -123,7 +123,7 @@ Note this interface may not work with all PipeWire versions.")
(push (cons id properties) objects)))
(nreverse objects)))
(cl-defmethod pw-access-objects ((class pw-cli-accessor))
(cl-defmethod pw-access-objects ((_class pw-cli-accessor))
(with-temp-buffer
(pw-cli--command pw-cli-command '("list-objects"))
(pw-cli--parse-list)))
@@ -166,7 +166,7 @@ Note this interface may not work with all PipeWire versions.")
(push (cons property value) properties))))
properties))
(cl-defmethod pw-access-properties ((class pw-cli-accessor) node-id)
(cl-defmethod pw-access-properties ((_class pw-cli-accessor) node-id)
(with-temp-buffer
(pw-cli--command pw-cli-command `("enum-params" ,(number-to-string node-id) "Props"))
(pw-cli--parse-properties)))
@@ -183,11 +183,11 @@ Note this interface may not work with all PipeWire versions.")
(defun pw-cli--format-property (property)
(format "%s: %s" (car property) (pw-cli--format-property-value (cdr property))))
(cl-defmethod pw-access-set-properties ((class pw-cli-accessor) node-id properties)
(let* ((formatted (mapconcat #'pw-cli--format-property properties ", "))
(props (concat "{ " formatted " }")))
(call-process pw-cli-command nil pw-cli-command nil
"set-param" (number-to-string node-id) "Props" props)))
(cl-defmethod pw-access-set-properties ((_class pw-cli-accessor) node-id properties)
(defun pw-cli--parse-metadata ()
(let ((metadata '()))
@@ -197,12 +197,12 @@ Note this interface may not work with all PipeWire versions.")
(push (cons (match-string 1) (match-string 3)) metadata))
metadata))
(cl-defmethod pw-access-defaults ((class pw-cli-accessor))
(cl-defmethod pw-access-defaults ((_class pw-cli-accessor))
(with-temp-buffer
(pw-cli--command pw-cli-metadata-command '("0"))
(pw-cli--parse-metadata)))
(cl-defmethod pw-access-set-default ((class pw-cli-accessor) property node-name)
(cl-defmethod pw-access-set-default ((_class pw-cli-accessor) property node-name)
(call-process pw-cli-metadata-command nil pw-cli-metadata-command nil
"0" property (format "{ \"name\": \"%s\" }" node-name)))