[elpa] externals/show-font 2f55db5bad 02/54: Fix rendering of title and subtitle in the given font

[ELPA Syncer]

branch: externals/show-font
commit 2f55db5bada795e9f4b157a69522a23bb4a24409
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@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))