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

Add: (ement-redact)

Browse source 
And use in ement-room-delete-emssage.
This commit is contained in:
Adam Porter 2022-05-05 16:49:31 -05:00
parent 3064b07e0a
commit e0004b9202
2 changed files with 13 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
ement-room.el
View file

@ -569,6 +569,7 @@ apply the face to the string themselves, if desired."
;; Other function declarations (seems better to have them all in one place, otherwise they
;; litter the code).
(declare-function ement--events-equal-p "ement")
(declare-function ement-redact "ement" t t)
(declare-function ement-upload "ement" t t)
;;;; Macros
@ -1528,18 +1529,7 @@ The message must be one sent by the local user."
ement-room ement-session (read-string "Reason (optional): " nil nil nil 'inherit-input-method))
;; HACK: This isn't really an error, but is there a cleaner way to cancel?
(user-error "Message not deleted"))))
(pcase-let* (((cl-struct ement-event (id event-id)) event)
((cl-struct ement-room (id room-id)) room)
(endpoint (format "rooms/%s/redact/%s/%s"
(url-hexify-string room-id) (url-hexify-string event-id)
(ement-room-update-transaction-id ement-session)))
(content (if reason
(ement-alist "reason" reason)
;; To get an empty JSON object, we use an empty hash table.
(make-hash-table))))
(ement-api session endpoint :method 'put :data (json-encode content)
:then (lambda (_data)
(message "Event %S deleted." event-id)))))
(ement-redact event room session reason))
(defun ement-room-send-reply ()
"Send a reply to event at point."

11
ement.el
View file

@ -447,6 +447,17 @@ new one automatically if necessary."
(ement-room-display-name room)
(ement-room-id room))))))
(defun ement-redact (event room session &optional reason)
"Redact EVENT in ROOM on SESSION, optionally for REASON."
(pcase-let* (((cl-struct ement-event (id event-id)) event)
((cl-struct ement-room (id room-id)) room)
(endpoint (format "rooms/%s/redact/%s/%s"
room-id event-id (ement-room-update-transaction-id session)))
(content (ement-alist "reason" reason)))
(ement-api session endpoint :method 'put :data (json-encode content)
:then (lambda (_data)
(message "Event %s redacted." event-id)))))
(defun ement-tag-room (tag room session &optional delete)
"Add TAG to ROOM on SESSION.
If DELETE (interactively, with prefix), delete it."