pw-access.el

@@ -182,7 +182,7 @@ Note this interface may not work with all PipeWire versions.")
              (push item array)
              (pw-cli--next-line))
            (nreverse array)))))))
-
+  
 (defun pw-cli--parse-properties ()
   (pw-cli--next-line)
   (let ((end (or (save-excursion (re-search-forward "^  Object:" nil t))

pw-lib.el

@@ -78,7 +78,7 @@ version, call `pw-lib-refresh' first."
 
 (defun pw-lib--object-info (object)
   (cdr object))
-
+  
 (defun pw-lib-object-value (object key &optional default)
   "Return PipeWire OBJECT value identified by KEY.
 KEY is a string corresponding to a PipeWire value identifier.
@@ -86,13 +86,6 @@ If the given KEY doesn't exist in OBJECT, return DEFAULT."
   (or (cdr (assoc key (pw-lib--object-info object)))
       default))
 
-(defun pw-lib-properties (object)
-  "Return names of PipeWire OBJECT properties.
-The returned value is a list of strings.
-The corresponding values can be retrieved using `pw-lib-object-value'
-function."
-  (cl-remove-if-not #'stringp (mapcar #'car (pw-lib--object-info object))))
-
 (defun pw-lib-object-type (object)
   "Return PipeWire type of OBJECT as a string.
 E.g. \"Device\", \"Node\", \"Port\", \"Client\", ..."
@@ -283,7 +276,7 @@ rather than using cached data to obtain the result."
      (if node-p
          (cdr (assoc "volume" parameters))
        (nth port-id (cdr (assoc (if monitor-p "monitorVolumes" "channelVolumes") parameters)))))))
-
+   
 (defun pw-lib-set-volume (volume object &optional single-p)
   "Set the volume of PipeWire OBJECT to VOLUME.
 VOLUME must be an integer in the range 0-100.
@@ -325,7 +318,7 @@ otherwise set the current default sink or source."
      (pw-lib--set-default-node object stored-p))
     (_
      (error "Cannot set this kind of object as default."))))
-
+                           
 (provide 'pw-lib)
 
 ;;; pw-lib.el ends here

pw-ui.el

@@ -96,7 +96,6 @@ The indicator is displayed only on graphical terminals."
   :group 'pipewire)
 
 (defvar pipewire-buffer "*PipeWire*")
-(defvar pipewire-properties-buffer "*PipWire-properties*")
 
 (defun pw-ui--label (label)
   (propertize (concat label ":") 'face 'pipewire-label))
@@ -110,7 +109,7 @@ The indicator is displayed only on graphical terminals."
                                      '("application.name")
                                    (let ((prefix (concat (downcase type) ".")))
                                      (mapcar (lambda (suffix) (concat prefix suffix))
-                                             '("nick" "description" "name"))))))
+                                             '("description" "name"))))))
     (or (cl-find-if #'identity
                     (mapcar (lambda (p) (pw-lib-object-value object p))
                             description-properties))
@@ -382,20 +381,6 @@ Otherwise ask for the Node to set as the default Node."
         (pw-ui--update))
     (error "Nothing to set a profile for here")))
 
-(defun pipewire-properties ()
-  "Display properties of the object at the current point."
-  (interactive)
-  (if-let ((object (pw-ui--current-object)))
-      (progn
-        (pop-to-buffer pipewire-properties-buffer)
-        (let ((inhibit-read-only t))
-          (erase-buffer)
-          (dolist (p (sort (pw-lib-properties object) #'string-lessp))
-            (insert (format "%s: %s\n" p (pw-lib-object-value object p)))))
-        (goto-char (point-min))
-        (view-mode))
-    (error "No PipeWire object here")))
-
 (defvar pipewire-mode-map
   (let ((map (make-sparse-keymap)))
     (define-key map "d" 'pipewire-set-default)
@@ -406,7 +391,6 @@ Otherwise ask for the Node to set as the default Node."
     (define-key map "-" 'pipewire-decrease-volume)
     (define-key map "+" 'pipewire-increase-volume-single)
     (define-key map "_" 'pipewire-decrease-volume-single)
-    (define-key map " " 'pipewire-properties)
     map))
 
 (define-derived-mode pipewire-mode special-mode "PW"