branch: externals/show-font
commit f90e03c5e87a79cb710ea0fee3bab63bbcfe88c2
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Refine how the title faces are produced
---
show-font.el | 19 ++++++++++++++++---
1 file changed, 16 insertions(+), 3 deletions(-)
diff --git a/show-font.el b/show-font.el
index 8b48fcae19..d301670791 100644
--- a/show-font.el
+++ b/show-font.el
@@ -99,12 +99,25 @@ x×X .,·°;:¡!¿?`'‘’ ÄAÃÀ TODO
"Face for font preview at large height."
:group 'show-font-faces)
-(defface show-font-title '((t :inherit error :height 2.2))
+(defconst show-font-title-common
+ '((((class color) (min-colors 88) (background dark))
+ :foreground "#fff29a")
+ (((class color) (min-colors 88) (background light))
+ :foreground "#873300")
+ (t
+ :inherit warning))
+ "Common face attributes for titles.")
+
+(defface show-font-title
+ `((default :height 2.6)
+ ,@show-font-title-common)
"Face for font preview title."
:group 'show-font-faces)
-(defface show-font-subtitle '((t :inherit bold :height 1.6))
- "Face for font preview title."
+(defface show-font-title-small
+ `((default :height 2.0)
+ ,@show-font-title-common)
+ "Face for smaller font preview title."
:group 'show-font-faces)
;;;###autoload
