mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2025-12-06 10:31:34 -08:00
Code Issues Projects Releases Packages Wiki Activity

fix/revision of example 'meshtastic'

Browse source
This commit is contained in:
pls.153 2023-11-07 18:06:17 +01:00
parent a5af331a8d
commit 6da7bf8670
5 changed files with 126 additions and 110 deletions
Download patch file Download diff file Expand all files Collapse all files

20
examples/meshtastic/lisp/messages.lisp
View file

@ -124,15 +124,19 @@
sending an ':e ...' text message, which will be echoed with info about signal
strength, position and distance."
(let ((from-pos (loc:position* from))
(my-pos #+mobile (nbutlast (loc:last-gps-position) 1)
(my-pos #+mobile (nbutlast (loc:latest-gps-position) 1)
#-mobile nil))
(format nil "~A~%~%snr: <b>~F</b> rssi: <b>~D</b>~%lat: ~,5F lon: ~,5F~%distance: <b>~:D m</b>"
text snr rssi
(if my-pos (first my-pos) "-")
(if my-pos (second my-pos) "-")
(if (and from-pos my-pos)
(loc:distance my-pos from-pos)
"-"))))
(x:cc (format nil "~A~%~%snr: <b>~F</b> rssi: <b>~D</b>"
text snr rssi)
(if my-pos
(format nil "~%lat: ~,5F lon: ~,5F"
(first my-pos)
(second my-pos))
"")
(if (and my-pos from-pos)
(format nil "~%distance: <b>~:D m</b>"
(loc:distance my-pos from-pos))
""))))
(defun swipe-to-left () ; see QML
(q> |currentIndex| ui:*main-view* 0)