example 'meshtastic': first usable version (desktop), but direct messages only

examples/meshtastic/lisp/package.lisp

@@ -1,8 +1,14 @@
 (defpackage :app
   (:use :cl :qml)
   (:export
+   #:change-setting
+   #:ini
    #:load-settings
-   #:save-settings))
+   #:save-settings
+   #:setting
+   #:toast
+   #:kw
+   #:view-index-changed))
 
 (defpackage :lora
   (:use :cl :qml)
@@ -18,28 +24,52 @@
    #:*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 :sqlite)
+  (:export
+   #:ini
+   #:load-message
+   #:load-messages
+   #:max-message-id
+   #:save-message
+   #:update-message))
+
 (defpackage :messages
   (:nicknames :msg)
   (:use :cl :qml)
   (:export
-   #:*messages*
    #:*message-id*
    #:*states*
    #:add-message
    #:change-state
-   #:load-messages
-   #:save-messages))
+   #:receiver-changed
+   #:show-messages))
 
 (defpackage :radios
   (:use :cl :qml)