[StumpWM] Fix issue with selecting bluetooth device
This commit is contained in:
parent
993cae429d
commit
8cebd9636e
@ -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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user