Support microphone toggling

Use pactl and exwm KBDs to support toggling my microphone setting from Emacs.

1 files changed, 9 insertions, 1 deletions

diff --git a/configs/shared/.emacs.d/wpc/pulse-audio.el b/configs/shared/.emacs.d/wpc/pulse-audio.el
index 7dff888e98ea..2a8418439c5d 100644
--- a/configs/shared/.emacs.d/wpc/pulse-audio.el
+++ b/configs/shared/.emacs.d/wpc/pulse-audio.el
@@ -23,6 +23,12 @@
   (shell-command "pactl set-sink-mute @DEFAULT_SINK@ toggle")
   (message (string/format "[pulse-audio.el] Mute toggled.")))
 
+(defun pulse-audio/toggle-microphone ()
+  "Mute the default sink."
+  (interactive)
+  (shell-command "pactl set-source-mute @DEFAULT_SOURCE@ toggle")
+  (message (string/format "[pulse-audio.el] Microphone toggled.")))
+
 (defun pulse-audio/lower-volume ()
   "Low the volume output of the default sink."
   (interactive)
@@ -42,7 +48,9 @@
   (exwm-input-set-key
    (kbd "<XF86AudioLowerVolume>") #'pulse-audio/lower-volume)
   (exwm-input-set-key
-   (kbd "<XF86AudioRaiseVolume>") #'pulse-audio/raise-volume))
+   (kbd "<XF86AudioRaiseVolume>") #'pulse-audio/raise-volume)
+  (exwm-input-set-key
+   (kbd "<XF86AudioMicMute>") #'pulse-audio/toggle-microphone))
 
 (provide 'pulse-audio)
 ;;; pulse-audio.el ends here