Fix failure when setting a numeric property value

This commit is contained in:
Milan Zamazal 2022-06-06 19:55:25 +02:00
parent 9890f6d0f3
commit d81907be16
1 changed files with 7 additions and 3 deletions

View File

@ -172,9 +172,13 @@ Note this interface may not work with all PipeWire versions.")
(pw-cli--parse-properties)))
(defun pw-cli--format-property-value (value)
(if (consp value)
(concat "[ " (mapconcat #'pw-cli--format-property-value value ", ") " ]")
value))
(cond
((consp value)
(concat "[ " (mapconcat #'pw-cli--format-property-value value ", ") " ]"))
((numberp value)
(number-to-string value))
(t
value)))
(defun pw-cli--format-property (property)
(format "%s: %s" (car property) (pw-cli--format-property-value (cdr property))))