revisions

examples/meshtastic/lisp/location.lisp

@@ -19,12 +19,13 @@
   (qjs |lastPosition| ui:*position-source*))
 
 #+mobile
-(defun update-my-position ()
+(defun update-my-position (&optional (sec 60)) ; try for 1 min
   "Mobile only: update position from GPS of mobile device."
   (destructuring-bind (lat lon time)
       (last-gps-position)
     (if (zerop lat)
-        (qsingle-shot 1000 'update-my-position)
+        (unless (zerop sec)
+          (qsingle-shot 1000 (lambda () (update-my-position (1- sec)))))
         (let ((pos (list :lat lat
                          :lon lon
                          :time (if (zerop (length time)) 0 (parse-integer time)))))

examples/meshtastic/lisp/main.lisp

@@ -6,7 +6,7 @@
   (lora:ini)
   (db:ini)
   (loc:ini)
-  (setf msg:*message-id* (1+ (db:max-message-id)))
+  (setf msg:*message-id* (db:max-message-id))
   (if (setting :latest-receiver)
       (msg:show-messages)
       (q> |currentIndex| ui:*main-view* 0)) ; 'Group'

examples/meshtastic/readme-usage.md

@@ -72,10 +72,6 @@ Initially, the list will contain gray items, so you can choose another radio
 if you experience that the connection didn't work, in case the selected radio
 is currently not available.
 
-A press-and-hold on the radio icon will restart bluetooth device discovery.
-This may be useful if you forgot to enable bluetooth before starting the app,
-or if your radio is not being discovered the first time.
-
 
 Unread messages
 ---------------

readme-prepare-ios.md

@@ -28,7 +28,7 @@ like:
 for script **1** put:
 ```
 cl_object
-xsi_system(cl_object cmd_string)
+si_system(cl_object cmd_string)
 {
   cl_object cmd = si_copy_to_simple_base_string(cmd_string);
   int code = system((const char *)(cmd->base_string.self));