diff options
| author | Boutade <thegoofist@protonmail.com> | 2019-09-23 09:59:53 -0500 |
|---|---|---|
| committer | Boutade <thegoofist@protonmail.com> | 2019-09-23 09:59:53 -0500 |
| commit | 7d5506e5f6f25570aa71bd4fa4f32aaef9c68a5f (patch) | |
| tree | 8acc40e06406e222e90b14d0d85fbbbda0251fb2 | |
| parent | 7d7ccc3139247b3a9d997698d9ce16f5a8784050 (diff) | |
nilnitial commit
| -rw-r--r-- | granolin.lisp | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/granolin.lisp b/granolin.lisp index 8179a66..3432e07 100644 --- a/granolin.lisp +++ b/granolin.lisp @@ -3,37 +3,3 @@ (in-package #:granolin) -;;; Login https://matrix.org/docs/spec/client_server/r0.5.0#id242 -;;; Media Upload https://matrix.org/docs/spec/client_server/r0.5.0#post-matrix-media-r0-upload - - - -(defclass client () - ((access-token - :reader login - :initarg :login - :initform (error "Clients need an access token.")) - (homeserver - :reader homeserver - :initarg :homeserver - :initform (error "Clients require a homeserver.")) - (rooms - :accessor rooms - :initform nil) - (users - :accessor users - :initform nil))) -;;TODO add things like transaction ids and time points - - -(defmethod initialize-instance :after ((client client) &key) - ;; fetch rooms - ;; fetch users - ;; fetch any other state that might be useful - ) - -;;; Sending Room Messages -(defgeneric send-message (client room msg) - (:documentation "Ends up sending an http request to the client's homeserver")) - - |