From 8d2e83dd652ed74f6e59ab5de237d2549c4000dc Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Fri, 9 Jul 2021 20:00:02 +0200 Subject: Let the config have all the styling --- glyphs/en.scm | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) (limited to 'glyphs') diff --git a/glyphs/en.scm b/glyphs/en.scm index c84dc2c..255bf2e 100644 --- a/glyphs/en.scm +++ b/glyphs/en.scm @@ -12,5 +12,18 @@ ;(define fn '("Fn")) (define fn-keys (string->list "")) -;(define extra-sybols (string->list "☠⌨☭☮☢☣☥⚓")) -(define extra-sybols (string->list "☠⌨⌨☮☢☣☥")) +;(define extra-symbols (string->list "☠⌨☭☮☢☣☥⚓")) +(define extra-symbols (string->list "☠⌨⌨☮☢☣☥")) + +(define glyphs + (concatenate + (list + (map (lambda (l) (glyph l "6" "white" "none")) letters) + (map (lambda (l) (glyph l "6" "lightgreen" "none")) symbols) + (map (lambda (l) (glyph l "6" "white" "none")) key-symbols) + (map (lambda (l) (glyph l "6" "white" "none")) numbers) + (map (lambda (l) (glyph l "3" "white" "italic")) modifiers) + (map (lambda (l) (glyph l "6" "red" "none")) brackets) + (map (lambda (l) (glyph l "6" "steelblue" "none")) fn-keys) + (map (lambda (l) (glyph l "6" "white" "none")) extra-symbols) + (map (lambda (l) (glyph l "6" "white" "none")) punct)))) -- cgit v1.2.3