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

example 'meshtastic': add proper local data paths on desktop

Browse source
This commit is contained in:
pls.153 2023-08-05 08:36:42 +02:00
parent 4fc8ee3ca8
commit bc2e23b4bd
9 changed files with 44 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -18,6 +18,12 @@
(ensure-permissions :bluetooth-scan :bluetooth-connect)) ; android >= 12
(lora:start-device-discovery (or (setting :device) "")))
(defun in-data-path (file)
#+mobile
(merge-pathnames (x:cc "data/" file))
#-mobile
(x:cc (qt:data-path qt:*cpp*) file))
(defun view-index-changed (index) ; see QML
(when (and (= 1 index)
(not (app:setting :latest-receiver)))
@ -37,17 +43,17 @@
;;; settings
(defvar *file* (merge-pathnames "data/settings.exp"))
(defun load-settings ()
(when (probe-file *file*)
(with-open-file (s *file*)
(setf lora:*settings* (read s)))))
(defun save-settings ()
(with-open-file (s *file* :direction :output :if-exists :supersede)
(let ((*print-pretty* nil))
(prin1 lora:*settings* s))))
(let (file)
(defun load-settings ()
(unless file
(setf file (in-data-path "settings.exp")))
(when (probe-file file)
(with-open-file (s file)
(setf lora:*settings* (read s)))))
(defun save-settings ()
(with-open-file (s file :direction :output :if-exists :supersede)
(let ((*print-pretty* nil))
(prin1 lora:*settings* s)))))
(defun kw (string)
"Intern in KEYWORD package."