mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-15 14:51:14 -08:00
Code Issues Projects Releases Packages Wiki Activity

example 'meshtastic': revisions

Browse source
This commit is contained in:
pls.153 2024-02-23 14:57:15 +01:00
parent 52ad54dfca
commit 6cb2a40683
8 changed files with 14 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

5
examples/meshtastic/lisp/lora.lisp
View file

@ -69,9 +69,10 @@
(me:make-to-radio :want-config-id *config-id*))
(q> |playing| ui:*busy* t)))
(defun set-ready (name &optional (ready t)) ; see Qt
(defun set-ready (ready name ble-names) ; see Qt
(setf *ready* ready)
(when ready
(setf *ble-names* ble-names)
(app:toast (x:cc (tr "radio") ": " name) 2)
(qlater 'get-node-config))
(values))
@ -198,8 +199,6 @@
(defun process-received ()
"Walks *RECEIVED* FROM-RADIOs and saves relevant data."
(setf *received* (nreverse *received*))
(unless *ble-names*
(setf *ble-names* (qt:short-names qt:*cpp*)))
(dolist (struct *received*)
(cond ((me:from-radio.has-packet struct)
(let* ((packet (me:from-radio.packet struct))