revisions

examples/meshtastic/lisp/lora.lisp

@@ -432,7 +432,6 @@
                           :tx-power 0 ; max legal power
                           :sx126x-rx-boosted-gain t))))))
 
-
 (defun wait-for-reboot (&optional (seconds 15))
   "Changing config will reboot device."
   (qlater (lambda ()

examples/meshtastic/lisp/main.lisp

@@ -32,6 +32,9 @@
                 #-android 0
                 'lora:start-device-discovery))
 
+(defun has-feature (name)
+  (qt:has-feature qt:*cpp* name))
+
 (defun in-data-path (&optional (file "") (prefix "data/"))
   #+mobile
   (merge-pathnames (x:cc prefix file))

examples/meshtastic/lisp/package.lisp

@@ -7,6 +7,7 @@
    #:background-mode-changed
    #:change-setting
    #:confirm-dialog
+   #:has-feature
    #:icon-press-and-hold
    #:in-data-path
    #:ini

examples/meshtastic/lisp/radios.lisp

@@ -7,9 +7,9 @@
   (setf *connection* (or (app:setting :connection)
                          :ble))
   (set-connection-type)
-  (unless (qt:has-feature qt:*cpp* "ble")
+  (unless (app:has-feature "ble")
     (q> |height| ui:*ble* 0))
-  (unless (qt:has-feature qt:*cpp* "usb")
+  (unless (app:has-feature "usb")
     (q> |height| ui:*usb* 0))
   (q> |checked| (symbol-name *connection*) t)
   (q> |model| ui:*region*