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-notify-limit-room-name-width)

Browse source
This commit is contained in:
Adam Porter 2021-08-03 01:14:16 -05:00
parent 44550cfbdc
commit 208be8b23e
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
ement-notify.el
View file

@ -205,6 +205,13 @@ if session hasn't finished initial sync."
'room room
'event event)
"\n"))
;; HACK: Limit room name width.
(when ement-notify-limit-room-name-width
(save-excursion
(let ((room-name-width (- (next-single-property-change (point) 'face) (point))))
(when (> room-name-width ement-notify-limit-room-name-width)
(forward-char ement-notify-limit-room-name-width)
(delete-region (point) (next-single-property-change (point) 'face))))))
;; HACK: Try to remove `button' face property from new text. (It works!)
(cl-loop for next-face-change-pos = (next-single-property-change (point) 'face)
for face-at = (get-text-property (point) 'face)