[StumpWM] Fix issue with selecting bluetooth device

2022-08-12 17:55:39 +02:00 · 2022-08-12 17:55:39 +02:00 · 8cebd9636e
commit 8cebd9636e
parent 993cae429d
1 changed files with 5 additions and 5 deletions
--- a/org/config/stumpwm.org
+++ b/org/config/stumpwm.org
@ -1769,11 +1769,11 @@ then attempt to connect to it.
  (sb-thread:make-thread
   (lambda ()
    (let* ((devices (bluetooth-get-devices))
-           (choice  (cdr (stumpwm:select-from-menu
-                          (stumpwm:current-screen)
-                          (mapcar (lambda (device)
-                                    `(,(bluetooth-device-full-name device) ,device))
-                                  devices)))))
+           (choice  (cadr (stumpwm:select-from-menu
+                           (stumpwm:current-screen)
+                           (mapcar (lambda (device)
+                                     `(,(bluetooth-device-full-name device) ,device))
+                                   devices)))))
      (bluetooth-connect-device choice)))))
 #+end_src