branch: externals/show-font
commit 2f55db5bada795e9f4b157a69522a23bb4a24409
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Fix rendering of title and subtitle in the given font
---
show-font.el | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/show-font.el b/show-font.el
index aaae51f9d5..1e2161807d 100644
--- a/show-font.el
+++ b/show-font.el
@@ -181,12 +181,14 @@ matched against the output of the `fc-scan' executable."
(defun show-font--prepare-text ()
"Prepare pangram text at varying font heights."
- (let ((pangram (show-font--get-pangram))
- (faces '(show-font-small show-font-regular show-font-medium
show-font-large))
- (list-of-lines nil)
- (list-of-blocks nil)
- (name (propertize (show-font--get-attribute "fullname") 'face
'show-font-title))
- (family (propertize (show-font--get-attribute "family") 'face
'show-font-subtitle)))
+ (let* ((pangram (show-font--get-pangram))
+ (faces '(show-font-small show-font-regular show-font-medium
show-font-large))
+ (list-of-lines nil)
+ (list-of-blocks nil)
+ (name-string (show-font--get-attribute "fullname"))
+ (family-string (show-font--get-attribute "family"))
+ (name (propertize name-string 'face (list 'show-font-title :family
family-string)))
+ (family (propertize family-string 'face (list 'show-font-subtitle
:family family-string))))
(dolist (face faces)
(push (propertize pangram 'face (list face :family family))
list-of-lines)
(push (propertize show-font-character-sample 'face (list face :family
family)) list-of-blocks))
