phundrak/dotfiles
1
0
Fork 0
Code Issues Pull Requests Activity

[StumpWM] Fix issue with selecting bluetooth device

Browse Source
This commit is contained in:
Lucien Cartier-Tilet 2022-08-12 17:55:39 +02:00
parent 993cae429d
commit 8cebd9636e
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
org/config/stumpwm.org
View File

@ -1769,11 +1769,11 @@ then attempt to connect to it.
(sb-thread:make-thread (sb-thread:make-thread
(lambda () (lambda ()
(let* ((devices (bluetooth-get-devices)) (let* ((devices (bluetooth-get-devices))
(choice (cdr (stumpwm:select-from-menu (choice (cadr (stumpwm:select-from-menu
(stumpwm:current-screen) (stumpwm:current-screen)
(mapcar (lambda (device) (mapcar (lambda (device)
`(,(bluetooth-device-full-name device) ,device)) `(,(bluetooth-device-full-name device) ,device))
devices))))) devices)))))
(bluetooth-connect-device choice))))) (bluetooth-connect-device choice)))))
#+end_src #+end_src