From 821667e706978ca4731f096a07632a6f1b59574c Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Mon, 7 Oct 2024 18:57:23 +0200 Subject: move glyphs to confs --- confs/en.scm | 42 ++++++++++++++++++++++++++++++++++++++++++ confs/es.scm | 2 ++ confs/ru.scm | 41 +++++++++++++++++++++++++++++++++++++++++ confs/uk.scm | 47 +++++++++++++++++++++++++++++++++++++++++++++++ glyphs/en.scm | 42 ------------------------------------------ glyphs/es.scm | 2 -- glyphs/ru.scm | 41 ----------------------------------------- glyphs/uk.scm | 47 ----------------------------------------------- 8 files changed, 132 insertions(+), 132 deletions(-) create mode 100644 confs/en.scm create mode 100644 confs/es.scm create mode 100644 confs/ru.scm create mode 100644 confs/uk.scm delete mode 100644 glyphs/en.scm delete mode 100644 glyphs/es.scm delete mode 100644 glyphs/ru.scm delete mode 100644 glyphs/uk.scm diff --git a/confs/en.scm b/confs/en.scm new file mode 100644 index 0000000..7480e55 --- /dev/null +++ b/confs/en.scm @@ -0,0 +1,42 @@ +;https://unicode-table.com/en/2B7E/ + +(define letters (string->list "ABCDEFGHIJKLMNOPQRSTUVWXYZ")) +(define numbers (string->list "1234567890")) +(define brackets (string->list "()[]{}<>")) +(define symbols (string->list "+-*\\|@#~$%&^`´\"'")) +(define punct (string->list ",.:;_")) + +;(define tab "⭾") +;(define tab "↹") +;(define tab "→|") +(define tab "⇥") +;(define backspace "⌫") +(define backspace "⟵") +;(define arrows (string->list "▼▶▼▶")) +(define arrows (string->list "←↑→↓")) + +(define key-symbols (concatenate (list (list backspace tab) + arrows + (string->list "⇧⇧⇪⏎")))) +(define modifiers '("Ctrl" "Ctrl" "Alt" "AltGr" "Esc" "Del")) + +(define fn '("Fn")) +(define media (string->list "")) + +;(define extra-symbols (string->list "☠⌨☭☮☢☣☥⚓")) +(define extra-symbols (string->list "☠⎘⎘")) + +(define font "B612") + +(define glyphs + (concatenate + (list + (map (lambda (l) (glyph l font "6" "white" "none")) letters) + (map (lambda (l) (glyph l font "6" "lightgreen" "none")) symbols) + (map (lambda (l) (glyph l font "6" "white" "none")) key-symbols) + (map (lambda (l) (glyph l font "6" "white" "none")) numbers) + (map (lambda (l) (glyph l font "3" "white" "italic")) modifiers) + (map (lambda (l) (glyph l font "6" "red" "none")) brackets) + (map (lambda (l) (glyph l font "6" "steelblue" "none")) media) + (map (lambda (l) (glyph l font "6" "white" "none")) extra-symbols) + (map (lambda (l) (glyph l font "6" "white" "none")) punct)))) diff --git a/confs/es.scm b/confs/es.scm new file mode 100644 index 0000000..5879908 --- /dev/null +++ b/confs/es.scm @@ -0,0 +1,2 @@ +(define letters (string->list "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ")) +(define numbers (string->list "1234567890")) diff --git a/confs/ru.scm b/confs/ru.scm new file mode 100644 index 0000000..46d9ff8 --- /dev/null +++ b/confs/ru.scm @@ -0,0 +1,41 @@ +(define letters (string->list "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ" )) + +(define numbers (string->list "1234567890")) +(define brackets (string->list "()[]{}<>")) +(define symbols (string->list "+-*\\|@#~$%&^`´\"'")) +(define punct (string->list ",.")) + +;(define tab "⭾") +;(define tab "↹") +;(define tab "→|") +(define tab "⇥") +;(define backspace "⌫") +(define backspace "⟵") +;(define arrows (string->list "▼▶▼▶")) +(define arrows (string->list "←↑→↓")) + +(define key-symbols (concatenate (list (list backspace tab) + arrows + (string->list "⇧⇧⇪⏎")))) +(define modifiers '("Ctrl" "Ctrl" "Alt" "AltGr" "Esc" "Del")) + +(define fn '("Fn")) +(define media (string->list "")) + +;(define extra-symbols (string->list "☠⌨☭☮☢☣☥⚓")) +(define extra-symbols (string->list "☠⎘⎘")) + +(define font "B612") + +(define glyphs + (concatenate + (list + (map (lambda (l) (glyph l font "6" "white" "none")) letters) + (map (lambda (l) (glyph l font "6" "lightgreen" "none")) symbols) + (map (lambda (l) (glyph l font "6" "white" "none")) key-symbols) + (map (lambda (l) (glyph l font "6" "white" "none")) numbers) + (map (lambda (l) (glyph l font "3" "white" "italic")) modifiers) + (map (lambda (l) (glyph l font "6" "red" "none")) brackets) + ;(map (lambda (l) (glyph l font "6" "steelblue" "none")) media) + (map (lambda (l) (glyph l font "6" "white" "none")) extra-symbols) + (map (lambda (l) (glyph l font "6" "white" "none")) punct)))) diff --git a/confs/uk.scm b/confs/uk.scm new file mode 100644 index 0000000..6267aa5 --- /dev/null +++ b/confs/uk.scm @@ -0,0 +1,47 @@ +;https://unicode-table.com/en/2B7E/ + +(define letters (string->list "АБВГҐДЕЄЖЗИІЇЙКЛМНОПРСТУФХЦЧШЩЬЮЯ")) +(define numbers (string->list "1234567890")) +(define brackets (string->list "()[]{}<>")) +(define symbols (string->list "+-*\\|@#~$%&^`´\"'")) +(define punct (string->list ",.:;_")) + +;(define tab "⭾") +;(define tab "↹") +;(define tab "→|") +(define tab "⇥") +;(define backspace "⌫") +(define backspace "⟵") +;(define arrows (string->list "▼▶▼▶")) +(define arrows (string->list "←↑→↓")) + +(define key-symbols (concatenate (list (list backspace tab) + arrows + (string->list "⇧⇧⇪⏎")))) +(define modifiers '("Ctrl" "Ctrl" "Alt" "AltGr" "Esc" "Del")) + +(define fn '("Fn")) +(define media (string->list "")) + +;(define extra-symbols (string->list "☠⌨☭☮☢☣☥⚓")) +(define extra-symbols (string->list "☠⎘⎘🌻⌨")) + +(define font "B612") + +; https://upload.wikimedia.org/wikipedia/commons/2/2f/Flag_of_Ukraine_with_the_Trident_of_Ukraine.svg +; Has to be centered +(define trident "M0-.5715C-.0282-.5394-.0453-.4975-.0453-.4515-.0437-.3507-.0314-.2499-.0303-.149-.0281-.0551-.0562.0333-.0905.1196-.102.1433-.1142.1667-.1267.19l-.0363-.0073C-.1957.176-.217.1442-.2104.1115-.2047.0828-.1794.0628-.1514.0628L-.1382.0642-.1678-.1827C-.1772-.2925-.234-.389-.3174-.4515-.3318-.4623-.3471-.4723-.3628-.4809V.3955H-.1605c.0152.0821.0604.1537.1238.2027.0152.0105.0278.0242.037.0401C.0094.6223.022.6086.0372.5981.1007.549.1459.4774.1609.3955H.3632V-.4809C.3474-.4723.3323-.4623.3179-.4515.2344-.3889.1779-.2925.1682-.1827L.1386.0642.1519.0628C.18.063.2053.0828.2109.1115.2175.1442.1961.176.1635.1826l-.0363.0073C.1147.1667.1024.1433.091.1196.0566.0334.0285-.055.0307-.149.0318-.2501.0442-.3509.0459-.4515.0459-.4977.0287-.5393.0004-.5715H0Zm-.3025.2169C-.2635-.3086-.2371-.2514-.2293-.1884l.0242.2036C-.2361.0306-.2596.0589-.2684.0932H-.3027v-.4477l.0002 0Zm.605 0v.4477H.2683C.2594.0588.2358.0305.2048.0151L.229-.1885C.2369-.2514.2632-.3086.3023-.3546L.3025-.3546ZM0 .0547C.0162.1078.0386.1585.0664.2052.0399.2133.0169.2289 0 .2498-.0169.2289-.0399.2133-.0664.2052-.0386.1583-.0162.1078 0 .0547Zm-.3025.099H-.2683c.0108.0418.0435.0748.0847.0862l.029.0066c-.0077.0282-.0121.0579-.0121.0887H-.3026v-.1815l.0001 0Zm.5709 0H.3026v.1815H.1665C.1665.3046.1623.2748.1544.2467L.1836.2399C.225.2285.2575.1954.2683.1537l.0001 0ZM-.0953.2605C-.0585.2657-.0303.2971-.0303.3352H-.1059C-.1059.3092-.1021.2843-.0953.2605Zm.1904 0C.102.2843.1059.3092.1059.3352H.0303c0-.0382.0283-.0696.065-.0747ZM-.099.3958H-.0303V.5231C-.0635.4881-.0878.4444-.099.3958Zm.1293 0H.099C.0879.4444.0637.4882.0303.5231V.3958Z") + +(define glyphs + (concatenate + (list + (map (lambda (l) (glyph l font "6" "yellow" "none")) letters) + (map (lambda (l) (glyph l font "6" "white" "none")) symbols) + (map (lambda (l) (glyph l font "6" "white" "none")) key-symbols) + (map (lambda (l) (glyph l font "6" "cyan" "none")) numbers) + (map (lambda (l) (glyph l font "3" "white" "italic")) modifiers) + (map (lambda (l) (glyph l font "6" "cyan" "none")) brackets) + ;(map (lambda (l) (glyph l font "6" "steelblue" "none")) media) + (map (lambda (l) (glyph l font "6" "white" "none")) extra-symbols) + (map (lambda (l) (glyph l font "6" "white" "none")) punct) + (list (path trident "6" "yellow"))))) diff --git a/glyphs/en.scm b/glyphs/en.scm deleted file mode 100644 index 83ac0d5..0000000 --- a/glyphs/en.scm +++ /dev/null @@ -1,42 +0,0 @@ -;https://unicode-table.com/en/2B7E/ - -(define letters (string->list "ABCDEFGHIJKLMNOPQRSTUVWXYZ")) -(define numbers (string->list "1234567890")) -(define brackets (string->list "()[]{}<>")) -(define symbols (string->list "+-*\\|@#~$%&^`´\"'")) -(define punct (string->list ",.")) - -;(define tab "⭾") -;(define tab "↹") -;(define tab "→|") -(define tab "⇥") -;(define backspace "⌫") -(define backspace "⟵") -;(define arrows (string->list "▼▶▼▶")) -(define arrows (string->list "←↑→↓")) - -(define key-symbols (concatenate (list (list backspace tab) - arrows - (string->list "⇧⇧⇪⏎")))) -(define modifiers '("Ctrl" "Ctrl" "Alt" "AltGr" "Esc" "Del")) - -(define fn '("Fn")) -(define media (string->list "")) - -;(define extra-symbols (string->list "☠⌨☭☮☢☣☥⚓")) -(define extra-symbols (string->list "☠⎘⎘")) - -(define font "B612") - -(define glyphs - (concatenate - (list - (map (lambda (l) (glyph l font "6" "white" "none")) letters) - (map (lambda (l) (glyph l font "6" "lightgreen" "none")) symbols) - (map (lambda (l) (glyph l font "6" "white" "none")) key-symbols) - (map (lambda (l) (glyph l font "6" "white" "none")) numbers) - (map (lambda (l) (glyph l font "3" "white" "italic")) modifiers) - (map (lambda (l) (glyph l font "6" "red" "none")) brackets) - ;(map (lambda (l) (glyph l font "6" "steelblue" "none")) media) - (map (lambda (l) (glyph l font "6" "white" "none")) extra-symbols) - (map (lambda (l) (glyph l font "6" "white" "none")) punct)))) diff --git a/glyphs/es.scm b/glyphs/es.scm deleted file mode 100644 index 5879908..0000000 --- a/glyphs/es.scm +++ /dev/null @@ -1,2 +0,0 @@ -(define letters (string->list "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ")) -(define numbers (string->list "1234567890")) diff --git a/glyphs/ru.scm b/glyphs/ru.scm deleted file mode 100644 index 46d9ff8..0000000 --- a/glyphs/ru.scm +++ /dev/null @@ -1,41 +0,0 @@ -(define letters (string->list "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ" )) - -(define numbers (string->list "1234567890")) -(define brackets (string->list "()[]{}<>")) -(define symbols (string->list "+-*\\|@#~$%&^`´\"'")) -(define punct (string->list ",.")) - -;(define tab "⭾") -;(define tab "↹") -;(define tab "→|") -(define tab "⇥") -;(define backspace "⌫") -(define backspace "⟵") -;(define arrows (string->list "▼▶▼▶")) -(define arrows (string->list "←↑→↓")) - -(define key-symbols (concatenate (list (list backspace tab) - arrows - (string->list "⇧⇧⇪⏎")))) -(define modifiers '("Ctrl" "Ctrl" "Alt" "AltGr" "Esc" "Del")) - -(define fn '("Fn")) -(define media (string->list "")) - -;(define extra-symbols (string->list "☠⌨☭☮☢☣☥⚓")) -(define extra-symbols (string->list "☠⎘⎘")) - -(define font "B612") - -(define glyphs - (concatenate - (list - (map (lambda (l) (glyph l font "6" "white" "none")) letters) - (map (lambda (l) (glyph l font "6" "lightgreen" "none")) symbols) - (map (lambda (l) (glyph l font "6" "white" "none")) key-symbols) - (map (lambda (l) (glyph l font "6" "white" "none")) numbers) - (map (lambda (l) (glyph l font "3" "white" "italic")) modifiers) - (map (lambda (l) (glyph l font "6" "red" "none")) brackets) - ;(map (lambda (l) (glyph l font "6" "steelblue" "none")) media) - (map (lambda (l) (glyph l font "6" "white" "none")) extra-symbols) - (map (lambda (l) (glyph l font "6" "white" "none")) punct)))) diff --git a/glyphs/uk.scm b/glyphs/uk.scm deleted file mode 100644 index 6267aa5..0000000 --- a/glyphs/uk.scm +++ /dev/null @@ -1,47 +0,0 @@ -;https://unicode-table.com/en/2B7E/ - -(define letters (string->list "АБВГҐДЕЄЖЗИІЇЙКЛМНОПРСТУФХЦЧШЩЬЮЯ")) -(define numbers (string->list "1234567890")) -(define brackets (string->list "()[]{}<>")) -(define symbols (string->list "+-*\\|@#~$%&^`´\"'")) -(define punct (string->list ",.:;_")) - -;(define tab "⭾") -;(define tab "↹") -;(define tab "→|") -(define tab "⇥") -;(define backspace "⌫") -(define backspace "⟵") -;(define arrows (string->list "▼▶▼▶")) -(define arrows (string->list "←↑→↓")) - -(define key-symbols (concatenate (list (list backspace tab) - arrows - (string->list "⇧⇧⇪⏎")))) -(define modifiers '("Ctrl" "Ctrl" "Alt" "AltGr" "Esc" "Del")) - -(define fn '("Fn")) -(define media (string->list "")) - -;(define extra-symbols (string->list "☠⌨☭☮☢☣☥⚓")) -(define extra-symbols (string->list "☠⎘⎘🌻⌨")) - -(define font "B612") - -; https://upload.wikimedia.org/wikipedia/commons/2/2f/Flag_of_Ukraine_with_the_Trident_of_Ukraine.svg -; Has to be centered -(define trident "M0-.5715C-.0282-.5394-.0453-.4975-.0453-.4515-.0437-.3507-.0314-.2499-.0303-.149-.0281-.0551-.0562.0333-.0905.1196-.102.1433-.1142.1667-.1267.19l-.0363-.0073C-.1957.176-.217.1442-.2104.1115-.2047.0828-.1794.0628-.1514.0628L-.1382.0642-.1678-.1827C-.1772-.2925-.234-.389-.3174-.4515-.3318-.4623-.3471-.4723-.3628-.4809V.3955H-.1605c.0152.0821.0604.1537.1238.2027.0152.0105.0278.0242.037.0401C.0094.6223.022.6086.0372.5981.1007.549.1459.4774.1609.3955H.3632V-.4809C.3474-.4723.3323-.4623.3179-.4515.2344-.3889.1779-.2925.1682-.1827L.1386.0642.1519.0628C.18.063.2053.0828.2109.1115.2175.1442.1961.176.1635.1826l-.0363.0073C.1147.1667.1024.1433.091.1196.0566.0334.0285-.055.0307-.149.0318-.2501.0442-.3509.0459-.4515.0459-.4977.0287-.5393.0004-.5715H0Zm-.3025.2169C-.2635-.3086-.2371-.2514-.2293-.1884l.0242.2036C-.2361.0306-.2596.0589-.2684.0932H-.3027v-.4477l.0002 0Zm.605 0v.4477H.2683C.2594.0588.2358.0305.2048.0151L.229-.1885C.2369-.2514.2632-.3086.3023-.3546L.3025-.3546ZM0 .0547C.0162.1078.0386.1585.0664.2052.0399.2133.0169.2289 0 .2498-.0169.2289-.0399.2133-.0664.2052-.0386.1583-.0162.1078 0 .0547Zm-.3025.099H-.2683c.0108.0418.0435.0748.0847.0862l.029.0066c-.0077.0282-.0121.0579-.0121.0887H-.3026v-.1815l.0001 0Zm.5709 0H.3026v.1815H.1665C.1665.3046.1623.2748.1544.2467L.1836.2399C.225.2285.2575.1954.2683.1537l.0001 0ZM-.0953.2605C-.0585.2657-.0303.2971-.0303.3352H-.1059C-.1059.3092-.1021.2843-.0953.2605Zm.1904 0C.102.2843.1059.3092.1059.3352H.0303c0-.0382.0283-.0696.065-.0747ZM-.099.3958H-.0303V.5231C-.0635.4881-.0878.4444-.099.3958Zm.1293 0H.099C.0879.4444.0637.4882.0303.5231V.3958Z") - -(define glyphs - (concatenate - (list - (map (lambda (l) (glyph l font "6" "yellow" "none")) letters) - (map (lambda (l) (glyph l font "6" "white" "none")) symbols) - (map (lambda (l) (glyph l font "6" "white" "none")) key-symbols) - (map (lambda (l) (glyph l font "6" "cyan" "none")) numbers) - (map (lambda (l) (glyph l font "3" "white" "italic")) modifiers) - (map (lambda (l) (glyph l font "6" "cyan" "none")) brackets) - ;(map (lambda (l) (glyph l font "6" "steelblue" "none")) media) - (map (lambda (l) (glyph l font "6" "white" "none")) extra-symbols) - (map (lambda (l) (glyph l font "6" "white" "none")) punct) - (list (path trident "6" "yellow"))))) -- cgit v1.2.3