diff --git a/examples/meshtastic/lisp/lora.lisp b/examples/meshtastic/lisp/lora.lisp index 97db124..3f0a24a 100644 --- a/examples/meshtastic/lisp/lora.lisp +++ b/examples/meshtastic/lisp/lora.lisp @@ -50,7 +50,7 @@ (qt:start-device-discovery qt:*cpp* name) (q> |playing| ui:*busy* t)) -(defun start-config () +(defun get-node-config () (when *ready* (setf *schedule-clear* t) (setf *config-complete* nil @@ -59,13 +59,14 @@ (incf *config-id*) (send-to-radio (me:make-to-radio :want-config-id *config-id*)) - (q> |playing| ui:*busy* t))) + (q> |playing| ui:*busy* t) + (qsingle-shot (* 15 60 1000) 'get-node-config))) ; every 15 min (defun set-ready (name &optional (ready t)) ; see Qt (setf *ready* ready) (when ready (app:toast (x:cc (tr "radio") ": " name) 2) - (qlater 'start-config)) + (qlater 'get-node-config)) (values)) (defun add-line-breaks (text) diff --git a/examples/meshtastic/lisp/main.lisp b/examples/meshtastic/lisp/main.lisp index 7ae0555..0b0dc4b 100644 --- a/examples/meshtastic/lisp/main.lisp +++ b/examples/meshtastic/lisp/main.lisp @@ -46,7 +46,7 @@ (lora:start-device-discovery (or (setting :device) ""))) ((string= ui:*group-icon* name) ;; force update of: node configuration - (lora:start-config))) + (lora:get-node-config))) (values)) ;;; settings diff --git a/examples/meshtastic/lisp/package.lisp b/examples/meshtastic/lisp/package.lisp index c5c2242..52066fa 100644 --- a/examples/meshtastic/lisp/package.lisp +++ b/examples/meshtastic/lisp/package.lisp @@ -44,12 +44,12 @@ #:change-region #:change-modem-preset #:channel-to-url + #:get-node-config #:ini #:keywords #:my-name #:my-num #:send-position - #:start-config #:start-device-discovery #:read-radio #:received-from-radio diff --git a/examples/meshtastic/qml/main.qml b/examples/meshtastic/qml/main.qml index f1b9a1b..4e5070e 100644 --- a/examples/meshtastic/qml/main.qml +++ b/examples/meshtastic/qml/main.qml @@ -30,7 +30,7 @@ Item { Ext.MenuItem { text: qsTr("Update group/nodes") - onTriggered: Lisp.call("lora:start-config") + onTriggered: Lisp.call("lora:get-node-config") } Ext.MenuItem { diff --git a/examples/meshtastic/readme-usage.md b/examples/meshtastic/readme-usage.md index 9b7e7d8..7343967 100644 --- a/examples/meshtastic/readme-usage.md +++ b/examples/meshtastic/readme-usage.md @@ -168,5 +168,5 @@ get/set variables on the fly (but it might crash regularily if you try to eval some buffer, or even during auto-completion). For full Swank/Slime power you'll need the desktop version anyway (this is how -this app is being developed [...]). +this app is being developed).