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

revisions

Browse source
This commit is contained in:
pls.153 2024-03-15 21:16:10 +01:00
parent 2d1360769c
commit 93509fd52b
4 changed files with 119 additions and 110 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -135,23 +135,24 @@
*default-position*))))
(defun show-map-clicked () ; see QML
(let ((show (not (q< |visible| ui:*map-view*))))
(when show
(activate-map)
(x:when-it (lora:my-num)
(qjs |updatePositions| ui:*map*
x:it
(lora:my-name)
(find-quick-item ui:*group*))
(q> |visible| ui:*add-manual-marker* t)))
(q> |visible| ui:*map-view* show)
;; move map (not page) when swiping to left
(q> |interactive| ui:*main-view* (not show))
(if show
(q> |visible| ui:*remove-marker*
(app:setting :selected-position))
(q> |active| ui:*map-loader* nil)))
(values))
(when (lora:radio-ready-p)
(let ((show (not (q< |visible| ui:*map-view*))))
(when show
(activate-map)
(x:when-it (lora:my-num)
(qjs |updatePositions| ui:*map*
x:it
(lora:my-name)
(find-quick-item ui:*group*))
(q> |visible| ui:*add-manual-marker* t)))
(q> |visible| ui:*map-view* show)
;; move map (not page) when swiping to left
(q> |interactive| ui:*main-view* (not show))
(if show
(q> |visible| ui:*remove-marker*
(app:setting :selected-position))
(q> |active| ui:*map-loader* nil)))
(values)))
(defun add-manual-marker () ; see QML
(setf *my-position* (or (center-position)

1
examples/meshtastic/lisp/package.lisp
View file

@ -61,6 +61,7 @@
#:my-name
#:my-num
#:process-saved-packets
#:radio-ready-p
#:send-position
#:start-device-discovery
#:read-radio