genmap.hs

#!/usr/bin/runghc

type Layout = String

layoutQWERTY :: Layout
layoutQWERTY = "-=" ++
               "qwertyuiop[]" ++
               "asdfghjkl;'" ++
               "zxcvbnm,./" ++
               "_+" ++
               "QWERTYUIOP{}" ++
               "ASDFGHJKL:\"" ++
               "ZXCVBNM<>?"

layoutDvorak :: Layout
layoutDvorak = "[]" ++
               "',.pyfgcrl/=" ++
               "aoeuidhtns-" ++
               ";qjkxbmwvz" ++
               "{}" ++
               "\"<>PYFGCRL?+" ++
               "AOEUIDHTNS_" ++
               ":QJKXBMWVZ"

mapCommands :: [String]
mapCommands = ["no", "no!"]

genEntry :: (Char, Char) -> [String]
genEntry (qChar, dChar) = map (\ cmd -> cmd ++ " " ++ [qChar] ++ " " ++ [dChar] ) mapCommands;

genEntries :: Layout -> Layout -> [String]
genEntries srcLayout dstLayout = concatMap genEntry $ zip srcLayout dstLayout

main = do
    putStr $ unlines $ genEntries layoutQWERTY layoutDvorak