mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 10:31:34 -08:00
27 lines
680 B
Common Lisp
27 lines
680 B
Common Lisp
(in-package :app)
|
|
|
|
(defun ini ()
|
|
(qt:ini)
|
|
(load-settings)
|
|
(msg:load-messages)
|
|
(q> |playing| ui:*loading* nil)
|
|
(q> |interactive| ui:*main-view* t)
|
|
#+android
|
|
(ensure-permissions :bluetooth-scan :bluetooth-connect) ; android >= 12
|
|
(lora:start-device-discovery (getf lora:*settings* :device "")))
|
|
|
|
;;; 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))))
|
|
|
|
(qlater 'ini)
|