phundrak/config.phundrak.com
1
0
Fork 0
Code Issues Pull Requests Actions Activity

[StumpWM] Fix concurrency issue

Browse Source
This commit is contained in:
Lucien Cartier-Tilet 2022-05-19 18:20:33 +02:00
parent 3a80cc13d2
commit 53de06b844
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
org/config/stumpwm.org
View File

@ -1689,16 +1689,14 @@ we can easily define how to turn on bluetooth.
#+begin_src lisp #+begin_src lisp
(defcommand bluetooth-turn-on () () (defcommand bluetooth-turn-on () ()
"Turn on bluetooth." "Turn on bluetooth."
(sb-thread:make-thread (bluetooth-message-command "power" "on"))
(lambda () (bluetooth-message-command "power" "on"))))
#+end_src #+end_src
And how to power it off. And how to power it off.
#+begin_src lisp #+begin_src lisp
(defcommand bluetooth-turn-off () () (defcommand bluetooth-turn-off () ()
"Turn off bluetooth." "Turn off bluetooth."
(sb-thread:make-thread (bluetooth-message-command "power" "off"))
(lambda () (bluetooth-message-command "power" "off"))))
#+end_src #+end_src
*** Bluetooth Devices *** Bluetooth Devices