From 4fc2fb0b342c43c8d79b3423b4c4eed24d217a23 Mon Sep 17 00:00:00 2001
From: Andrew <andreasohaodha@proton.me>
Date: Sat, 17 Aug 2024 19:13:15 +0100
Subject: [PATCH] [bluetooth_dmenu.pl]: Add prompt to dmenu

---
 bluetooth_dmenu.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bluetooth_dmenu.pl b/bluetooth_dmenu.pl
index 0a69637..5b930ef 100755
--- a/bluetooth_dmenu.pl
+++ b/bluetooth_dmenu.pl
@@ -21,7 +21,7 @@ foreach my $name (sort(keys %devices)) {
     $device_list .= $name . "\n";
 }
 
-my $selection = `printf "$device_list" | dmenu` or die("No selection made");
+my $selection = `printf "$device_list" | dmenu -p "Connect Bluetooth device:"` or die("No selection made");
 chomp($selection);
 `notify-send "$script_name" "Attempting to connect to $selection ($devices{$selection})"`;
 `bluetoothctl connect $devices{$selection}`;