diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-07-01 13:45:52 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-07-01 13:45:52 +0200 |
| commit | 474f5b21b43efd4c2f60bfdfa385c8b522bf12c8 (patch) | |
| tree | 562c25dad1c212747ac2e877f1d41e461b2434e8 /lisp/net/shr.el | |
| parent | 3a4c408a7b6f3df5ca0eb4a406efbdb4899e9742 (diff) | |
| download | emacs-474f5b21b43efd4c2f60bfdfa385c8b522bf12c8.tar.gz emacs-474f5b21b43efd4c2f60bfdfa385c8b522bf12c8.tar.bz2 emacs-474f5b21b43efd4c2f60bfdfa385c8b522bf12c8.zip | |
Add support for <mark> in shr
* lisp/net/shr.el (shr-mark): New face (bug#48211).
(shr-tag-mark): New function
Diffstat (limited to 'lisp/net/shr.el')
| -rw-r--r-- | lisp/net/shr.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 0645f4721a3..63f313bbf44 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -232,6 +232,11 @@ temporarily blinks with this face." "Face used for rendering <code> blocks." :version "29.1") +(defface shr-mark + '((t :background "yellow" :foreground "black")) + "Face used for <mark> elements." + :version "29.1") + (defcustom shr-inhibit-images nil "If non-nil, inhibit loading images." :version "28.1" @@ -1422,6 +1427,14 @@ ones, in case fg and bg are nil." ;; The `tt' tag is deprecated in favor of `code'. (shr-tag-code dom)) +(defun shr-tag-mark (dom) + (when (and (not (bobp)) + (not (= (char-after (1- (point))) ?\s))) + (insert " ")) + (let ((start (point))) + (shr-generic dom) + (shr-add-font start (point) 'shr-mark))) + (defun shr-tag-ins (cont) (let* ((start (point)) (color "green") |