mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 02:30:38 -08:00
81 lines
1.3 KiB
Common Lisp
81 lines
1.3 KiB
Common Lisp
(defpackage :app
|
|
(:use :cl :qml)
|
|
(:export
|
|
#:change-setting
|
|
#:ini
|
|
#:load-settings
|
|
#:save-settings
|
|
#:setting
|
|
#:toast
|
|
#:kw
|
|
#:view-index-changed))
|
|
|
|
(defpackage :lora
|
|
(:use :cl :qml)
|
|
(:local-nicknames (:pr :cl-protobufs)
|
|
(:me :cl-protobufs.meshtastic))
|
|
(:export
|
|
#:*channel*
|
|
#:*channels*
|
|
#:*config-lora*
|
|
#:*my-node-info*
|
|
#:*node-infos*
|
|
#:*primary-channel*
|
|
#:*reading*
|
|
#:*ready*
|
|
#:*received*
|
|
#:*receiver*
|
|
#:*remote-node*
|
|
#:*settings*
|
|
#:change-receiver
|
|
#:change-region
|
|
#:change-modem-preset
|
|
#:channel-to-url
|
|
#:ini
|
|
#:start-config
|
|
#:start-device-discovery
|
|
#:read-radio
|
|
#:received-from-radio
|
|
#:region-changed
|
|
#:send-message
|
|
#:send-to-radio
|
|
#:url-to-channel))
|
|
|
|
(defpackage :group
|
|
(:use :cl :qml)
|
|
(:export
|
|
#:add-person
|
|
#:clear
|
|
#:name-edited
|
|
#:receiver-changed
|
|
#:set-unread))
|
|
|
|
(defpackage :db
|
|
(:use :cl)
|
|
(:export
|
|
#:ini
|
|
#:load-message
|
|
#:load-messages
|
|
#:max-message-id
|
|
#:save-message
|
|
#:update-message))
|
|
|
|
(defpackage :messages
|
|
(:nicknames :msg)
|
|
(:use :cl :qml)
|
|
(:export
|
|
#:*message-id*
|
|
#:*states*
|
|
#:add-message
|
|
#:change-state
|
|
#:receiver-changed
|
|
#:show-messages))
|
|
|
|
(defpackage :radios
|
|
(:use :cl :qml)
|
|
(:export
|
|
#:*schedule-clear*
|
|
#:add-radio
|
|
#:change-radio
|
|
#:clear))
|
|
|