Rename bluetooth_connect.pl => bluetooth_dmenu.pl

bluetooth_dmenu.pl

@@ -0,0 +1,33 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my $script_name = $1 if ($0 =~ /.*\/(.*)$/);
+my $output = `bluetoothctl devices`;
+my %devices;
+
+# assumes devices have unique names
+foreach my $device (split(/\n/, $output)) {
+    if ($device =~ /Device\s(\S+)\s(.+)/) {
+        my $mac_address = $1;
+        my $name = $2;
+        $devices{$name} = $mac_address;
+    }
+}
+
+my $device_list = "";
+foreach my $name (sort(keys %devices)) {
+    $device_list .= $name . "\n";
+}
+
+my $selection = `printf "$device_list" | dmenu` or die("No selection made");
+chomp($selection);
+`notify-send "$script_name" "Attempting to connect to $selection ($devices{$selection})"`;
+`bluetoothctl connect $devices{$selection}`;
+
+if ($? == 0) {
+    `notify-send "$script_name" "Successfully connected to $selection ($devices{$selection})"`;
+}
+else {
+    `notify-send "$script_name" "Failed to connect to $selection ($devices{$selection})"`;
+}