Commit bda8a571 authored by Nick Drozd's avatar Nick Drozd Committed by Lars Ingebrigtsen

Handle 'abbr' and 'acronym' tags in shr.el

* lisp/net/shr.el (shr-tag-abbr, shr-tag-acronym): New functions
handling 'abbr' and 'acronym' tags, respectively.
* etc/NEWS: Announce change in shr behavior (bug#36475).
parent 72e21777
Pipeline #2282 failed with stage
in 52 minutes and 24 seconds
......@@ -987,7 +987,7 @@ This attribute is meant to tell screen readers to ignore a tag.
*** 'shr-tag-ol' now respects the ordered list 'start' attribute.
---
*** The <code ...> tag is now handled.
*** The following tags are now handled: <code>, <abbr>, and <acronym>.
** Htmlfontify
......
......@@ -161,6 +161,12 @@ temporarily blinks with this face."
:version "27.1"
:group 'shr)
(defface shr-abbreviation
'((t :inherit underline :underline (:style wave)))
"Face for <abbr> elements."
:version "27.1"
:group 'shr)
(defvar shr-inhibit-images nil
"If non-nil, inhibit loading images.")
......@@ -1472,6 +1478,21 @@ ones, in case fg and bg are nil."
(when url
(shr-urlify (or shr-start start) (shr-expand-url url) title))))
(defun shr-tag-abbr (dom)
(when-let* ((title (dom-attr dom 'title))
(start (point)))
(shr-generic dom)
(shr-add-font start (point) 'shr-abbreviation)
(add-text-properties
start (point)
(list
'help-echo title
'mouse-face 'highlight))))
(defun shr-tag-acronym (dom)
;; `acronym' is deprecated in favor of `abbr'.
(shr-tag-abbr dom))
(defun shr-tag-object (dom)
(unless shr-inhibit-images
(let ((start (point))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment