mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 02:30:38 -08:00
114 lines
3.2 KiB
Common Lisp
114 lines
3.2 KiB
Common Lisp
(in-package :radios)
|
|
|
|
(defvar *connection* nil) ; :ble :usb :wifi
|
|
(defvar *found* nil)
|
|
|
|
(defun ini ()
|
|
(setf *connection* (or (app:setting :connection)
|
|
:ble))
|
|
(set-connection-type)
|
|
(unless (app:has-feature "ble")
|
|
(q> |height| ui:*ble* 0))
|
|
(unless (app:has-feature "usb")
|
|
(q> |height| ui:*usb* 0))
|
|
(q> |checked| (symbol-name *connection*) t)
|
|
(q> |model| ui:*region*
|
|
(cons "-" (mapcar 'symbol-name (rest (lora:keywords :region-code)))))
|
|
(set-region)
|
|
(x:when-it (app:setting :device-filter)
|
|
(qt:set-device-filter qt:*cpp* x:it)))
|
|
|
|
(defun connection-changed (name)
|
|
(when (eql *connection* :ble)
|
|
(qt:stop-device-discovery qt:*cpp*))
|
|
(let ((con (app:kw name)))
|
|
(setf *connection* con)
|
|
(app:change-setting :connection con))
|
|
(set-connection-type)
|
|
(lora:start-device-discovery))
|
|
|
|
(defun set-connection-type ()
|
|
(qt:set-connection-type qt:*cpp* (symbol-name *connection*)))
|
|
|
|
(defun wifi-ip ()
|
|
(or (app:setting :wifi-ip) ""))
|
|
|
|
(defun wifi-connectable ()
|
|
(qrun* (qt:wifi-connectable qt:*cpp* (wifi-ip))))
|
|
|
|
(let (start-discovery)
|
|
(defun ensure-wifi-connection (&optional start)
|
|
(setf start-discovery start)
|
|
(or (wifi-connectable)
|
|
(progn
|
|
(app:input-dialog
|
|
(tr "Radio WiFi IP:") 'wifi-ip-changed
|
|
:text (wifi-ip)
|
|
:placeholder-text "IP"
|
|
:numbers-only t)
|
|
nil)))
|
|
(defun wifi-ip-changed* (ok)
|
|
(when ok
|
|
(app:change-setting
|
|
:wifi-ip
|
|
(substitute #\. #\, (q< |text| ui:*dialog-line-edit*))) ; SUBSTITUTE for iOS
|
|
(if (and (wifi-connectable)
|
|
start-discovery)
|
|
(progn
|
|
(setf start-discovery nil)
|
|
(qlater 'lora:start-device-discovery))
|
|
(qlater (lambda () (ensure-wifi-connection start-discovery)))))))
|
|
|
|
(defun wifi-ip-changed (ok)
|
|
(qlater (lambda () (wifi-ip-changed* ok))))
|
|
|
|
(defun saved-region ()
|
|
(let ((region (app:setting :region)))
|
|
(unless (find region '(nil :unset))
|
|
region)))
|
|
|
|
(defun set-region ()
|
|
(x:when-it (saved-region)
|
|
(q> |currentIndex| ui:*region*
|
|
(q! |indexOfValue| ui:*region*
|
|
(symbol-name x:it)))))
|
|
|
|
(defun choose-region ()
|
|
(q> |currentIndex| ui:*main-view* 2) ; 'Radios'
|
|
(q! |popup.open| ui:*region*))
|
|
|
|
(defun device-discovered (name) ; see Qt
|
|
"Show discovered (cached) device, which may not be reachable / turned on."
|
|
(let ((usb (string= "USB" name)))
|
|
(case *connection*
|
|
(:ble
|
|
(unless (or *found* usb)
|
|
(add-radio
|
|
(list :name name
|
|
:hw-model "Meshtastic" ; we don't know yet
|
|
:current (equal name (app:setting :device))
|
|
:ini t))))
|
|
(:usb
|
|
(when usb
|
|
(qsingle-shot 3000 'lora:start-device-discovery))))) ; delay for boot
|
|
(values))
|
|
|
|
(defun add-radio (radio)
|
|
"Adds passed RADIO (a PLIST) to QML item model.
|
|
The model keys are:
|
|
:name :hw-model :voltage :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:update-current-device name)
|
|
(qlater (lambda () (lora:start-device-discovery name)))
|
|
(values))
|
|
|
|
(defun reset ()
|
|
(when (eql *connection* :ble)
|
|
(lora:start-device-discovery)))
|
|
|