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

example 'meshtastic': fix bug preventing radio reboot of admin message

Browse source
This commit is contained in:
pls.153 2024-05-27 18:29:55 +02:00
parent 682f2d2f4f
commit 24eff937b8
1 changed files with 2 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -57,8 +57,7 @@
*schedule-clear* t)
(unless radios:*found*
(radios:clear))
(qrun* (qt:start-device-discovery qt:*cpp*
(if wifi (radios:wifi-ip) name)))
(qt:start-device-discovery qt:*cpp* (if wifi (radios:wifi-ip) name))
(q> |playing| ui:*busy* t))))
(defun get-node-config ()
@ -385,7 +384,7 @@
:set-channel (setf *my-channel* channel))))
(defun reset-node-db () ; see QML
(when (send-admin (me:make-admin-message :nodedb-reset 0))
(when (send-admin (me:make-admin-message :nodedb-reset 1))
(qlater 'wait-for-reboot))
(values))
@ -487,19 +486,6 @@
(qlater 'set-primary-channel))))
(values))
(defun edit-device-filter () ; see QML (currently not used)
(app:input-dialog
(tr "Device filter:") 'device-filter-changed
:text (or (app:setting :device-filter) "meshtastic"))
(values))
(defun device-filter-changed (ok)
(when ok
(let ((name (q< |text| ui:*dialog-line-edit*)))
(qrun* (qt:set-device-filter qt:*cpp* name))
(app:change-setting :device-filter name)))
(values))
(defun keywords (name)
(pr:enum-keywords (ecase name
(:modem-preset