alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e-view-mode: use overlays for url numbers

Browse Source
This commit is contained in:
sabof
2014-02-07 05:19:33 +00:00
parent 49e46e99ac
commit 28a970a778
1 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
mu4e/mu4e-view.el
View File

@ -266,6 +266,7 @@ marking if it still had that."
(when (or embedded (not (mu4e~view-mark-as-read msg))) (when (or embedded (not (mu4e~view-mark-as-read msg)))
(let ((inhibit-read-only t)) (let ((inhibit-read-only t))
(erase-buffer) (erase-buffer)
(delete-all-overlays)
(insert (mu4e-view-message-text msg)) (insert (mu4e-view-message-text msg))
(goto-char (point-min)) (goto-char (point-min))
(mu4e~fontify-cited) (mu4e~fontify-cited)
@ -798,19 +799,22 @@ Also number them so they can be opened using `mu4e-view-go-to-url'."
(make-hash-table :size 32 :weakness nil)) (make-hash-table :size 32 :weakness nil))
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward mu4e~view-url-regexp nil t) (while (re-search-forward mu4e~view-url-regexp nil t)
(let ((url (match-string 0))) (let* ((url (match-string 0))
(ov (make-overlay (match-beginning 0) (match-end 0))))
(puthash (incf num) url mu4e~view-link-map) (puthash (incf num) url mu4e~view-link-map)
(add-text-properties 0 (length url) (add-text-properties
(match-beginning 0)
(match-end 0)
`(face mu4e-link-face `(face mu4e-link-face
mouse-face highlight mouse-face highlight
mu4e-url ,url mu4e-url ,url
keymap ,mu4e-view-clickable-urls-keymap keymap ,mu4e-view-clickable-urls-keymap
help-echo help-echo
"[mouse-1] or [M-RET] to open the link") url) "[mouse-1] or [M-RET] to open the link"))
(replace-match (overlay-put ov 'after-string
(concat url (propertize (format "[%d]" num)
(propertize (format "[%d]" num) 'face 'mu4e-url-number-face))
'face 'mu4e-url-number-face)))))))) )))))
(defun mu4e~view-hide-cited () (defun mu4e~view-hide-cited ()