From 8cebd9636e32968eae8605c9f0b347d727392bcc Mon Sep 17 00:00:00 2001 From: Lucien Cartier-Tilet Date: Fri, 12 Aug 2022 17:55:39 +0200 Subject: [PATCH] [StumpWM] Fix issue with selecting bluetooth device --- org/config/stumpwm.org | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/org/config/stumpwm.org b/org/config/stumpwm.org index f4d686f..0a3ba84 100644 --- 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