diff options
Diffstat (limited to 'granolin.lisp')
| -rw-r--r-- | granolin.lisp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/granolin.lisp b/granolin.lisp index f1ce5c3..a5a1e66 100644 --- a/granolin.lisp +++ b/granolin.lisp @@ -199,6 +199,12 @@ ;; the basic-json struct is used as a kind of default in some places (def-json-wrap basic-json) + +;;; Event Utility Functions +(defun im-the-sender-p (client event) + (equal (user-id client) + (sender event))) + ;;; URI constants (format) strings for interacting with the Matrix API (defparameter +login-path+ "/_matrix/client/r0/login") |