mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-07 02:51:09 -08:00
16 lines
436 B
Common Lisp
16 lines
436 B
Common Lisp
(in-package :app)
|
|
|
|
;; set here the 4 character short name of your 2 devices
|
|
;; (see debug output during device discovery)
|
|
|
|
(defvar *device-1* "128c")
|
|
(defvar *device-2* "1c9c")
|
|
|
|
(defun ini ()
|
|
(qt:ini)
|
|
(qt:start-device-discovery qt:*ble* *device-1*) ; set device (see above)
|
|
(msg:load-messages)
|
|
(q> |playing| ui:*loading* nil) ; shown during Lisp startup
|
|
(q> |playing| ui:*busy* t)) ; shown during BLE setup
|
|
|
|
(qlater 'ini)
|