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': make device name filter editable

Browse source
This commit is contained in:
pls.153 2024-01-18 16:19:38 +01:00
parent 7350289076
commit 7cf29c2c8c
6 changed files with 27 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
examples/meshtastic/cpp/ble_meshtastic.h
View file

@ -20,7 +20,7 @@ public:
QLowEnergyCharacteristic fromNum;
QLowEnergyCharacteristic toRadio;
QString nameFilter = QStringLiteral("meshtastic");
QString nameFilter = "meshtastic";
QLowEnergyDescriptor notifications;
bool deviceFilter(const QBluetoothDeviceInfo&) override;

1
examples/meshtastic/cpp/qt.cpp
View file

@ -48,6 +48,7 @@ QVariant QT::startDeviceDiscovery(const QVariant& vName) {
QVariant QT::setDeviceFilter(const QVariant& vName) {
ble->nameFilter = vName.toString();
return vName;
}
QVariant QT::shortNames() {

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

@ -419,6 +419,18 @@
(app:change-setting :channel-name name)
(config-device)))))
(defun edit-device-filter () ; see QML
(app:input-dialog
(tr "Device filter:") 'device-filter-changed
:title (tr "Filter")
:text (or (app:setting :device-filter) "meshtastic")))
(defun device-filter-changed (ok)
(when ok
(let ((name (q< |text| ui:*dialog-line-edit*)))
(qt:set-device-filter qt:*cpp* name)
(app:change-setting :device-filter name))))
(defun keywords (name)
(pr:enum-keywords (ecase name
(:modem-preset

1
examples/meshtastic/lisp/package.lisp
View file

@ -51,6 +51,7 @@
#:change-modem-preset
#:channel-to-url
#:edit-channel-name
#:edit-device-filter
#:get-node-config
#:ini
#:keywords

4
examples/meshtastic/lisp/radios.lisp
View file

@ -8,7 +8,9 @@
(x:when-it (app:setting :region)
(q> |currentIndex| ui:*region*
(q! |indexOfValue| ui:*region*
(symbol-name x:it)))))
(symbol-name x:it))))
(x:when-it (app:setting :device-filter)
(qt:set-device-filter qt:*cpp* x:it)))
(defun device-discovered (name)
"Show discovered (cached) device, which may not be reachable / turned on."

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

@ -39,6 +39,12 @@ Item {
enabled: (view.currentIndex === 0)
}
Ext.MenuItem {
text: qsTr("Update group/nodes")
onTriggered: Lisp.call("lora:get-node-config")
enabled: (view.currentIndex === 0)
}
Ext.MenuItem {
text: qsTr("Message font size...")
onTriggered: Lisp.call("msg:font-size-dialog")
@ -46,9 +52,9 @@ Item {
}
Ext.MenuItem {
text: qsTr("Update group/nodes")
onTriggered: Lisp.call("lora:get-node-config")
enabled: (view.currentIndex === 0)
text: qsTr("Device filter...")
onTriggered: Lisp.call("lora:edit-device-filter")
enabled: (view.currentIndex === 2)
}
Ext.MenuItem {