mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 02:30:38 -08:00
40 lines
1.1 KiB
Common Lisp
40 lines
1.1 KiB
Common Lisp
(in-package :radios)
|
|
|
|
(defvar *found* nil)
|
|
|
|
(defun ini ()
|
|
(q> |model| ui:*region*
|
|
(cons "-" (rest (mapcar 'symbol-name (lora:keywords :region-code)))))
|
|
(x:when-it (app:setting :region)
|
|
(q> |currentIndex| ui:*region*
|
|
(q! |indexOfValue| ui:*region*
|
|
(symbol-name x:it)))))
|
|
|
|
(defun device-discovered (name)
|
|
"Show discovered (cached) device, which may not be reachable / turned on."
|
|
(unless *found*
|
|
(add-radio
|
|
(list :name name
|
|
:hw-model "Meshtastic" ; we don't know yet
|
|
:current (equal name (app:setting :device))
|
|
:ini t))))
|
|
|
|
(defun add-radio (radio)
|
|
"Adds passed RADIO (a PLIST) to QML item model.
|
|
The model keys are:
|
|
:name :hw-model :battery-level :current"
|
|
(qjs |addRadio| ui:*radios* radio))
|
|
|
|
(defun clear ()
|
|
(setf lora:*schedule-clear* nil)
|
|
(q! |clear| ui:*radios*))
|
|
|
|
(defun change-radio (name) ; see QML
|
|
(app:change-setting :device name)
|
|
(qlater (lambda () (lora:start-device-discovery name)))
|
|
(values))
|
|
|
|
(defun reset-default-radio ()
|
|
(app:change-setting :device nil)
|
|
(lora:start-device-discovery))
|
|
|