mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-07 02:51:09 -08:00
Code Issues Projects Releases Packages Wiki Activity

revisions

Browse source
This commit is contained in:
pls.153 2023-07-24 11:01:26 +02:00
parent 790305dff1
commit 2737ebd19f
4 changed files with 5 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

5
examples/meshtastic/lisp/location.lisp
View file

@ -19,12 +19,13 @@
(qjs |lastPosition| ui:*position-source*)) (qjs |lastPosition| ui:*position-source*))
#+mobile #+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." "Mobile only: update position from GPS of mobile device."
(destructuring-bind (lat lon time) (destructuring-bind (lat lon time)
(last-gps-position) (last-gps-position)
(if (zerop lat) (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 (let ((pos (list :lat lat
:lon lon :lon lon
:time (if (zerop (length time)) 0 (parse-integer time))))) :time (if (zerop (length time)) 0 (parse-integer time)))))

2
examples/meshtastic/lisp/main.lisp
View file

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

4
examples/meshtastic/readme-usage.md
View file

@ -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 if you experience that the connection didn't work, in case the selected radio
is currently not available. 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 Unread messages
--------------- ---------------

2
readme-prepare-ios.md
View file

@ -28,7 +28,7 @@ like:
for script **1** put: for script **1** put:
``` ```
cl_object 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); cl_object cmd = si_copy_to_simple_base_string(cmd_string);
int code = system((const char *)(cmd->base_string.self)); int code = system((const char *)(cmd->base_string.self));