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

Change: (ement-room-send-event-callback) Message only when :debug

Browse source
This commit is contained in:
Adam Porter 2021-08-01 08:36:16 -05:00
parent 5883b243c1
commit 0cb35b4617
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
ement-room.el
View file

@ -662,8 +662,12 @@ mentioning the ROOM and CONTENT."
(when content
(setf message (concat message (format " Event content: %S" content))))
(display-warning 'ement-room-send-event-callback message))
(message "Message sent to room %S: %S"
(ement-room-display-name room) (alist-get "body" content nil nil #'equal)))))
(when (eq :debug warning-minimum-log-level)
;; HACK: Mildly abuse `warning-minimum-log-level' by using it to control whether
;; successfully sent events display a message. This is really only needed for
;; debugging (until adding local echo), and using actual warnings would be too much.
(message "Message sent to room %S: %S"
(ement-room-display-name room) (alist-get "body" content nil nil #'equal))))))
(defun ement-room-edit-message ()
"Edit message at point.