From db667520603613b46cdcda901216f87d7ee19f2a Mon Sep 17 00:00:00 2001 From: defanor Date: Fri, 14 May 2021 15:02:47 +0300 Subject: Add timestamps into xmpp.el message buffers --- emacs/xmpp.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/emacs/xmpp.el b/emacs/xmpp.el index 6f6c008..e04cfe5 100644 --- a/emacs/xmpp.el +++ b/emacs/xmpp.el @@ -147,13 +147,15 @@ (when message-body (with-current-buffer (xmpp-query message-from proc) (xmpp-insert - (concat "< " (car (xml-node-children message-body)) "\n")) + (concat (format-time-string "%FT%T%z") + " < " (car (xml-node-children message-body)) "\n")) (xmpp-message-notify)))) ("groupchat" (when message-body (with-current-buffer (xmpp-muc-buffer message-from proc) (xmpp-insert - (concat (xmpp-jid-resource message-from) ": " + (concat (format-time-string "%FT%T%z") ", " + (xmpp-jid-resource message-from) ": " (car (xml-node-children message-body)) "\n")) (xmpp-message-notify)))))))))) @@ -190,7 +192,8 @@ (with-current-buffer buf (xmpp-insert (concat - "> " (car (xml-node-children message-body)) "\n"))))))) + (format-time-string "%FT%T%z") + " > " (car (xml-node-children message-body)) "\n"))))))) ("groupchat" nil))))))) (defun xmpp-process (proc xml) -- cgit v1.2.3