From 1a5c7f6e4f0a6f7b4aa662ad0d9b1fca2bc58ac4 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sun, 9 Oct 2022 09:38:53 +1100 Subject: adding active profile indication --- pactl.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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)")))) -- cgit v1.2.3