From 53de06b844bca337a5bb43b645c7e8604c60f1f0 Mon Sep 17 00:00:00 2001 From: Lucien Cartier-Tilet Date: Thu, 19 May 2022 18:20:33 +0200 Subject: [PATCH] [StumpWM] Fix concurrency issue --- org/config/stumpwm.org | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/org/config/stumpwm.org b/org/config/stumpwm.org index c2eadbe..2568bf3 100644 --- a/org/config/stumpwm.org +++ b/org/config/stumpwm.org @@ -1689,16 +1689,14 @@ we can easily define how to turn on bluetooth. #+begin_src lisp (defcommand bluetooth-turn-on () () "Turn on bluetooth." - (sb-thread:make-thread - (lambda () (bluetooth-message-command "power" "on")))) + (bluetooth-message-command "power" "on")) #+end_src And how to power it off. #+begin_src lisp (defcommand bluetooth-turn-off () () "Turn off bluetooth." - (sb-thread:make-thread - (lambda () (bluetooth-message-command "power" "off")))) + (bluetooth-message-command "power" "off")) #+end_src *** Bluetooth Devices