c36d61687a
- Groupchats now support XEP-0313 Message Archive Management (MAM)!
- This uses the history stored in the sqlite database, as implemented in the
previous commits.
- The QUERY-ARCHIVE megafunction builds up a SQL query to get stuff out of the
database, in accordance with provided MAM + RSM parameters.
- Notably, various hacks are in here that need to be fixed.
- IQ 'set's are now processed, which means we needed to add a stub impl of
Schrödinger's Chat so people don't drop out of MUCs all of a sudden.
(Well, it just responds to every ping indiscriminately...)
- Oh also the new presence subscription stuff from earlier is borked.
22 lines
636 B
Common Lisp
22 lines
636 B
Common Lisp
(defsystem "whatsxmpp"
|
|
:depends-on ("usocket" "bordeaux-threads" "event-emitter" "blackbird" "cxml" "ironclad" "uuid" "sqlite" "whatscl" "drakma" "local-time" "trivial-timers" "trivial-backtrace" "trivial-mimes" "opticl")
|
|
:serial t
|
|
:build-operation "program-op"
|
|
:build-pathname "whatsxmpp"
|
|
:entry-point "whatsxmpp::main"
|
|
:components
|
|
((:file "packages")
|
|
(:file "utils")
|
|
(:file "namespaces")
|
|
(:file "component")
|
|
(:file "xmpp")
|
|
(:file "xep-0030")
|
|
(:file "xep-0363")
|
|
(:file "xep-0115")
|
|
(:file "xep-0313")
|
|
(:file "sqlite")
|
|
(:file "db")
|
|
(:file "media")
|
|
(:file "message")
|
|
(:file "stuff")))
|