runejuhl/playground
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Output emojis matching sound card profile

Browse source
This commit is contained in:
Rune Juhl (Atea) 2024-02-23 11:45:12 +01:00
parent e09a8b41f6
commit 3af2b9d97d
1 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
toggle_headset
View file

@ -40,6 +40,11 @@
(map :name) (map :name)
))) )))
(defn profile->emoji [profile]
(if (re-find #"a2dp" (name profile))
"🎧"
"🎤"))
(defn toggle-card-profile [card] (defn toggle-card-profile [card]
(let [current (get-card-current-profile card) (let [current (get-card-current-profile card)
profiles (get-card-profiles card)] profiles (get-card-profiles card)]
@ -47,7 +52,12 @@
(if-let [next-profile (some->> profiles (if-let [next-profile (some->> profiles
(remove (partial = current)) (remove (partial = current))
first)] first)]
(do
(sh "pactl" "set-card-profile" card (name next-profile)) (sh "pactl" "set-card-profile" card (name next-profile))
(profile->emoji next-profile))
(prn "Error selecting next profile")))) (prn "Error selecting next profile"))))
(toggle-card-profile (get-current-sink-name)) (case (some->> *command-line-args*
first)
"get" (println (profile->emoji (get-card-current-profile (get-current-sink-name))))
"toggle" (println (toggle-card-profile (get-current-sink-name))))