procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make shr render text with superscripts prettier

Browse source 
* lisp/net/shr.el (shr-sup): New face.
(shr-tag-sup, shr-tag-sub): Use it to make the super/subscripts
slightly smaller so that we don't get uneven line heights with
text that uses these.
This commit is contained in:
Lars Ingebrigtsen 2021-11-20 11:42:38 +01:00
parent 6b0424c102
commit 4351722477
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/net/shr.el
View file

@ -183,6 +183,11 @@ temporarily blinks with this face."
"Face for <abbr> elements."
:version "27.1")
(defface shr-sup
'((t :height 0.8))
"Face for <sup> and <sub> elements."
:version "29.1")
(defface shr-h1
'((t :height 1.3 :weight bold))
"Face for <h1> elements."
@ -1464,12 +1469,14 @@ ones, in case fg and bg are nil."
(defun shr-tag-sup (dom)
(let ((start (point)))
(shr-generic dom)
(put-text-property start (point) 'display '(raise 0.2))))
(put-text-property start (point) 'display '(raise 0.2))
(add-face-text-property start (point) 'shr-sup)))
(defun shr-tag-sub (dom)
(let ((start (point)))
(shr-generic dom)
(put-text-property start (point) 'display '(raise -0.2))))
(put-text-property start (point) 'display '(raise -0.2))
(add-face-text-property start (point) 'shr-sup)))
(defun shr-tag-p (dom)
(shr-ensure-paragraph)