adding active profile indication

1 files changed, 5 insertions, 1 deletions

diff --git a/pactl.el b/pactl.el
index 1e71c55..a105fda 100644
--- a/pactl.el
+++ b/pactl.el
@@ -32,9 +32,13 @@
                                  (alist-get 'id card)
                                  (alist-get 'id profile))
                          'invisible t)
-                        (format "%s/%s%s"
+                        (format "%s/%s%s%s"
                                 (alist-get 'description card)
                                 (alist-get 'description profile)
+                                (if (equal (alist-get 'active-profile card)
+                                           (alist-get 'id profile))
+                                    " (Active)"
+                                  "")
                                 (if (alist-get 'available profile)
                                     ""
                                   " (Unavailable)"))))