Add script to set the PulseAudio sink for the current window.

This binding is set to <C-z>a. It creates a dmenu prompting the user to
select which output device the current application should send audio to.

In the future I might create an analog for input devices, but as things
stand, I change input so much more infrequently that pavucontrol is
probably fine for that.

2 files changed, 48 insertions, 0 deletions

diff --git a/extras/HOME/.local/bin/set-sink.sh b/extras/HOME/.local/bin/set-sink.sh
new file mode 100755
index 0000000..be04833
--- /dev/null
+++ b/extras/HOME/.local/bin/set-sink.sh
@@ -0,0 +1,45 @@
+#!/bin/bash
+
+current_pid=$(xdotool getactivewindow getwindowpid)
+DMENU=(dmenu -i -nf "#88ff88" -sb "#88ff88" -p "Move Audio" -l 12 -dim 0.4)
+
+sinks="$(
+  pactl list sinks | while read line ; do
+    case "$line" in
+      Sink\ \#*)
+        name="${line//*#}" ;;
+      Description:\ *)
+        description="${line//*: }"
+        echo "$description "'#'"$name"
+        ;;
+      *) ;;
+    esac
+  done)"
+
+client_input="$(
+  pactl list sink-inputs | while read line ; do
+    case "$line" in
+      application.process.id\ =*)
+        app="${line//*= \"}"
+        app="${app%%\"}"
+        ;;
+      object.id\ =*)
+        obj="${line//*= \"}"
+        obj="${obj%%\"}"
+        echo "$obj $app"
+        ;;
+    esac
+  done
+)"
+
+input_sink=$(echo "$client_input" | grep  "$current_pid\$")
+input_sink=${input_sink%% *}
+
+selected_sink=$(echo "$sinks" | "${DMENU[@]}")
+sink_num=${selected_sink//*#}
+
+#echo "$sinks"
+#echo "$client_input"
+
+echo "pactl move-sink-input $input_sink $sink_num"
+pactl move-sink-input "$input_sink" "$sink_num"
diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs
index 44a7c9f..fc0244b 100644
--- a/src/Internal/Keys.hs
+++ b/src/Internal/Keys.hs
@@ -233,6 +233,9 @@ keymap = runKeys $ do
 
       bind xK_e $
         (justMod -|- noMod) $ spawn "emoji-select.sh"
+
+      bind xK_a $
+        (justMod -|- noMod) $ spawn "set-sink.sh"
         
 
       -- Double-tap Z to toggle zoom.