mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-07 19:10:32 -08:00
10 lines
241 B
Common Lisp
10 lines
241 B
Common Lisp
(in-package :app)
|
|
|
|
(defun ini ()
|
|
(qt:ini)
|
|
(qt:start-device-discovery qt:*ble*)
|
|
(msg:load-messages)
|
|
(q> |playing| ui:*loading* nil) ; shown during Lisp startup
|
|
(q> |playing| ui:*busy* t)) ; shown during BLE setup
|
|
|
|
(qlater 'ini)
|