module XMonad.Util.Keyboard ( KbLayout (..)
, showKBLayout
, parseKB
, setLang
, tibetan
, accented
, français
, deutsch
, dansk
, anglisc
, dzongkha
) where
import Data.Composition
import System.Process hiding (spawn)
import XMonad
import XMonad.Hooks.DynamicLog
data KbLayout = Simple String | Regional String String
instance Show KbLayout where
show (Simple "us") = "US"
show (Simple "layout") = "US"
show (Regional "cn" "tib") = xmobarColor "yellow" "black" "Tibetan"
show (Simple "bt") = xmobarColor "yellow" "black" "Dzongkha"
show (Regional "us" "altgr-intl") = "US Extended"
show (Simple "fr") = "Fr"
show (Simple "is") = "Ænglisc"
show (Simple "de") = "De"
show (Simple "dk") = "Dk"
instance Default KbLayout where
def = Simple "us"
showKBLayout :: IO ()
showKBLayout = putStrLn =<< (show <$> parseKB)
parseKB :: IO KbLayout
parseKB = do
out <- lines <$> readCreateProcess (shell "setxkbmap -query") ""
let strip = dropWhile (==' ') . (drop 1) . (dropWhile (/=':')) .* (!!)
let line = strip out
if length out == 3 then
pure (Simple (line 2))
else
pure (Regional (line 2) (line 3))
tibetan :: KbLayout
tibetan = (Regional "cn" "tib")
français :: KbLayout
français = Simple "fr"
deutsch :: KbLayout
deutsch = Simple "de"
dansk :: KbLayout
dansk = Simple "dk"
anglisc :: KbLayout
anglisc = Simple "is"
dzongkha :: KbLayout
dzongkha = Simple "bt"
accented :: KbLayout
accented = (Regional "us" "altgr-intl")
setLang :: KbLayout -> X ()
setLang (Simple lc) = spawn $ "setxkbmap " ++ lc
setLang (Regional lc r) = spawn $ "setxkbmap -layout " ++ lc ++ " -variant " ++ r