vanadium/xmonad: refactor

nix/configurations/vanadium/home/xmonad/lib/Data/Char/Greek.hs

@@ -0,0 +1,40 @@
+module Data.Char.Greek where
+
+import Data.List (find)
+
+toUpper :: Char -> Char
+toUpper c = maybe c fst (find ((== c) . snd) greekData)
+
+greekLower :: [Char]
+greekLower = fmap snd greekData
+
+greekUpper :: [Char]
+greekUpper = fmap fst greekData
+
+greekData :: [(Char, Char)]
+greekData =
+  [ ('Α', 'α')
+  , ('Β', 'β')
+  , ('Γ', 'γ')
+  , ('Δ', 'δ')
+  , ('Ε', 'ε')
+  , ('Ζ', 'ζ')
+  , ('Η', 'η')
+  , ('Θ', 'θ')
+  , ('Ι', 'ι')
+  , ('Κ', 'κ')
+  , ('Λ', 'λ')
+  , ('Μ', 'μ')
+  , ('Ν', 'ν')
+  , ('Ξ', 'ξ')
+  , ('Ο', 'ο')
+  , ('Π', 'π')
+  , ('Ρ', 'ρ')
+  , ('Σ', 'σ')
+  , ('Τ', 'τ')
+  , ('Υ', 'υ')
+  , ('Φ', 'φ')
+  , ('Χ', 'χ')
+  , ('Ψ', 'ψ')
+  , ('Ω', 'ω')
+  ]