example 'meshtastic': make device name filter editable

examples/meshtastic/cpp/ble_meshtastic.h

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

examples/meshtastic/cpp/qt.cpp

@@ -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() {

examples/meshtastic/lisp/lora.lisp

@@ -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

examples/meshtastic/lisp/package.lisp

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

examples/meshtastic/lisp/radios.lisp

@@ -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."

examples/meshtastic/qml/main.qml

@@ -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")
+      text: qsTr("Device filter...")
-      onTriggered: Lisp.call("lora:get-node-config")
+      onTriggered: Lisp.call("lora:edit-device-filter")
-      enabled: (view.currentIndex === 0)
+      enabled: (view.currentIndex === 2)
     }
 
     Ext.MenuItem {