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

Add: (ement-room--format-message) Zero-width spaces after names

Browse source 
This allows commands like dabbrev-expand to work for displaynames,
otherwise they combine displaynames with the message bodies.
This commit is contained in:
Adam Porter 2021-07-26 20:00:15 -05:00
parent abd8cf9fbd
commit 344be71dda
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
ement-room.el
View file

@ -1101,8 +1101,11 @@ Format defaults to `ement-room-message-format-spec', which see."
(add-face-text-property 0 (length body) (body-face) 'append body) (add-face-text-property 0 (length body) (body-face) 'append body)
body)) body))
(?i (ement-event-id event)) (?i (ement-event-id event))
(?s (propertize (ement-user-id (ement-event-sender event)) ;; Add unit separators to prevent, e.g. dabbrev-expand
'face 'ement-room-user)) ;; from reading displaynames with the next field.
(?s (concat (propertize (ement-user-id (ement-event-sender event))
'face 'ement-room-user)
"​"))
(?S (let ((sender (ement-room--format-user (ement-event-sender event) ement-room))) (?S (let ((sender (ement-room--format-user (ement-event-sender event) ement-room)))
(when (and ement-room-sender-in-left-margin (when (and ement-room-sender-in-left-margin
(< (string-width sender) ement-room-left-margin-width)) (< (string-width sender) ement-room-left-margin-width))
@ -1114,7 +1117,7 @@ Format defaults to `ement-room-message-format-spec', which see."
;; NOTE: I'd like to add a help-echo function to display the sender ID, but the Emacs ;; NOTE: I'd like to add a help-echo function to display the sender ID, but the Emacs
;; manual says that there is currently no way to make text in the margins mouse-sensitive. ;; manual says that there is currently no way to make text in the margins mouse-sensitive.
;; So `ement-room--format-user' returns a string propertized with `help-echo' as a string. ;; So `ement-room--format-user' returns a string propertized with `help-echo' as a string.
sender)) (concat sender "​")))
(?r (ement-room--format-reactions event)) (?r (ement-room--format-reactions event))
(?t (propertize (format-time-string ement-room-timestamp-format (?t (propertize (format-time-string ement-room-timestamp-format
;; Timestamps are in milliseconds. ;; Timestamps are in milliseconds.