hiro/ement.el
1
0
Fork 0
mirror of https://github.com/vale981/ement.el synced 2025-03-06 01:31:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix: (ement-put-account-data) Save echoed-back event

Browse source
This commit is contained in:
Adam Porter 2022-03-25 22:01:18 -05:00
parent cab45dd912
commit b9ee9ce948
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
ement.el
View file

@ -918,15 +918,20 @@ IMAGE should be one as created by, e.g. `create-image'."
(> (latest-event-in a) (latest-event-in b)))))))) (> (latest-event-in a) (latest-event-in b))))))))
(defun ement-put-account-data (session type data) (defun ement-put-account-data (session type data)
"Put account data of TYPE with DATA on SESSION." "Put account data of TYPE with DATA on SESSION.
Also handle the echoed-back event."
(declare (indent defun)) (declare (indent defun))
(let ((endpoint (format "user/%s/account_data/%s" (let ((endpoint (format "user/%s/account_data/%s"
(url-hexify-string (ement-user-id (ement-session-user session))) (url-hexify-string (ement-user-id (ement-session-user session)))
type))) type)))
(ement-api session endpoint :data (json-encode data) (ement-api session endpoint :data (json-encode data)
:then (lambda (_data) :then (lambda (received-data)
(ement-debug "Account data put on session %s: TYPE:%S DATA:%S" ;; Handle echoed-back account data event (the spec does not explain this,
(ement-user-id (ement-session-user session)) type (json-encode data)))))) ;; but see <https://github.com/matrix-org/matrix-react-sdk/blob/675b4271e9c6e33be354a93fcd7807253bd27fcd/src/settings/handlers/AccountSettingsHandler.ts#L150>).
;; FIXME: Make session account-data a map instead of a list of events.
(push received-data (ement-session-account-data session))
(ement-debug "Account data put and received back on session %s: PUT(json-encoded):%S RECEIVED:%S"
(ement-user-id (ement-session-user session)) (json-encode data) received-data)))))
;;;;; Reading/writing sessions ;;;;; Reading/writing sessions