mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2026-02-04 23:01:42 -08:00
Code Issues Projects Releases Packages Wiki Activity

example 'meshtastic': fix bug in echo test messages (see ':e')

Browse source
This commit is contained in:
pls.153 2024-02-01 20:13:44 +01:00
parent 8be56c2b65
commit 58a0068905
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -194,7 +194,7 @@
:alt (me:altitude pos)
:time (me:time pos))))))
(let (echo-text)
(let (echo-text echo-receiver)
(defun process-received ()
"Walks *RECEIVED* FROM-RADIOs and saves relevant data."
(setf *received* (nreverse *received*))
@ -215,8 +215,11 @@
(setf msg:*message-id* (max mid msg:*message-id*))
(if (x:starts-with ":e" text) ; 'echo'
(progn
(setf echo-text (subseq text #.(length ":e")))
(qsingle-shot 1000 (lambda () (send-message (x:cc "<b>:e</b>" echo-text)))))
(setf echo-text (subseq text #.(length ":e"))
echo-receiver (me:from packet))
(qsingle-shot 1000 (lambda ()
(let ((*receiver* echo-receiver))
(send-message (x:cc "<b>:e</b>" echo-text))))))
(progn
(when (x:starts-with "<b>:e</b>" text)
(setf text (msg:echo-message text (me:from packet) (me:rx-snr packet) (me:rx-rssi packet))))