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

revisions

Browse source
This commit is contained in:
pls.153 2024-04-10 21:33:22 +02:00
parent 31dda52cda
commit a196a1516a
3 changed files with 25 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -10,7 +10,8 @@
(defvar *receiver* nil) (defvar *receiver* nil)
(defvar *config-lora* nil) (defvar *config-lora* nil)
(defvar *ble-names* nil) (defvar *ble-names* nil)
(defvar *print-json* t) (defvar *print-json* #+mobile nil
#-mobile t)
(defun ini () (defun ini ()
(setf *receiver* (app:setting :latest-receiver) (setf *receiver* (app:setting :latest-receiver)
@ -20,14 +21,10 @@
;;; header ;;; header
(defun lsb (size)
(ldb (byte 8 0) size))
(defun msb (size)
(ldb (byte 8 8) size))
(defun header (size) (defun header (size)
(vector #x94 #xc3 (msb size) (lsb size))) (flet ((b8 (x)
(ldb (byte 8 x) size)))
(vector #x94 #xc3 (b8 8) (b8 0))))
;;; ini/send/receive ;;; ini/send/receive
@ -348,10 +345,12 @@
(send-admin (me:make-admin-message (send-admin (me:make-admin-message
:set-channel (setf *my-channel* channel)))) :set-channel (setf *my-channel* channel))))
(defun reset-node-db () (defun reset-node-db () ; see QML
(when (send-admin (me:make-admin-message (qlater (lambda ()
:nodedb-reset (my-num))) (when (send-admin (funcall 'me:make-admin-message
(wait-for-reboot))) :nodedb-reset (my-num))) ; see note *)
(wait-for-reboot))))
(values))
(defun change-lora-config () (defun change-lora-config ()
(when (send-admin (when (send-admin
@ -361,10 +360,9 @@
:use-preset t :use-preset t
:modem-preset (app:setting :modem-preset) :modem-preset (app:setting :modem-preset)
:region (app:setting :region) :region (app:setting :region)
:channel-num 0 ; default for region
:hop-limit 3 :hop-limit 3
:tx-enabled t :tx-enabled t
:tx-power 0 ; max legal power :tx-power 0 ; max legal power
:sx126x-rx-boosted-gain t)))) :sx126x-rx-boosted-gain t))))
(wait-for-reboot))) (wait-for-reboot)))
@ -451,7 +449,7 @@
(qlater 'set-primary-channel)))) (qlater 'set-primary-channel))))
(values)) (values))
(defun edit-device-filter () (defun edit-device-filter () ; see QML
(app:input-dialog (app:input-dialog
(tr "Device filter:") 'device-filter-changed (tr "Device filter:") 'device-filter-changed
:title (tr "Filter") :title (tr "Filter")
@ -472,3 +470,7 @@
(:region-code (:region-code
'me:config.lo-ra-config.region-code)))) 'me:config.lo-ra-config.region-code))))
;;; notes
;;;
;;; *) FUNCALL needed in C compiled code: for some reason, this would give
;;; a protobuf type mismatch error without it

8
examples/meshtastic/qml/main.qml
View file

@ -62,7 +62,13 @@ Item {
MenuSeparator {} MenuSeparator {}
Com.MenuItem { Com.MenuItem {
text: qsTr("Export DB (Lisp)") text: qsTr("Reset node DB")
onTriggered: Lisp.call("lora:reset-node-db")
enabled: (view.pageIndex === 0)
}
Com.MenuItem {
text: qsTr("Export message DB (Lisp)")
onTriggered: Lisp.call("db:export-to-list") onTriggered: Lisp.call("db:export-to-list")
} }

2
examples/palindrome/lisp/helper/generate-qml.lisp
View file

@ -31,5 +31,5 @@
(* 31 (second xy)))) (* 31 (second xy))))
*chars* (first *move-to-positions*)))))) *chars* (first *move-to-positions*))))))
(qquit) (qlater 'qquit)