twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-14 11:45:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

XMonad.Util.EZConfig: minor cleanups

Browse Source
This commit is contained in:
Lukas Mai
2008-05-28 16:54:50 +00:00
parent 389e23b979
commit 4dc9baca48
1 changed files with 26 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
XMonad/Util/EZConfig.hs
View File

@@ -35,7 +35,7 @@ import XMonad.Actions.Submap
import qualified Data.Map as M import qualified Data.Map as M
import Data.List (foldl', intersperse, sortBy, groupBy, nub) import Data.List (foldl', intersperse, sortBy, groupBy, nub)
import Data.Ord (comparing) import Data.Ord (comparing)
import Data.Maybe (catMaybes, isNothing, isJust, fromJust) import Data.Maybe
import Control.Arrow (first, (&&&)) import Control.Arrow (first, (&&&))
import Text.ParserCombinators.ReadP import Text.ParserCombinators.ReadP
@@ -205,16 +205,14 @@ op `on` f = \x y -> f x `op` f y
-- @(KeyMask,KeySym)@ pairs. Key sequences which fail to parse will -- @(KeyMask,KeySym)@ pairs. Key sequences which fail to parse will
-- be ignored. -- be ignored.
readKeymap :: XConfig l -> [(String, X())] -> [([(KeyMask,KeySym)], X())] readKeymap :: XConfig l -> [(String, X())] -> [([(KeyMask,KeySym)], X())]
readKeymap c = catMaybes . map (maybeKeys . first (readKeySequence c)) readKeymap c = mapMaybe (maybeKeys . first (readKeySequence c))
where maybeKeys (Nothing,_) = Nothing where maybeKeys (Nothing,_) = Nothing
maybeKeys (Just k, act) = Just (k, act) maybeKeys (Just k, act) = Just (k, act)
-- | Parse a sequence of keys, returning Nothing if there is -- | Parse a sequence of keys, returning Nothing if there is
-- a parse failure (no parse, or ambiguous parse). -- a parse failure (no parse, or ambiguous parse).
readKeySequence :: XConfig l -> String -> Maybe [(KeyMask, KeySym)] readKeySequence :: XConfig l -> String -> Maybe [(KeyMask, KeySym)]
readKeySequence c s = case parses s of readKeySequence c = listToMaybe . parses
[k] -> Just k
_ -> Nothing
where parses = map fst . filter (null.snd) . readP_to_S (parseKeySequence c) where parses = map fst . filter (null.snd) . readP_to_S (parseKeySequence c)
-- | Parse a sequence of key combinations separated by spaces, e.g. -- | Parse a sequence of key combinations separated by spaces, e.g.
@@ -271,30 +269,30 @@ functionKeys = [ ("F" ++ show n, k)
-- | A list of special key names and their corresponding KeySyms. -- | A list of special key names and their corresponding KeySyms.
specialKeys :: [(String, KeySym)] specialKeys :: [(String, KeySym)]
specialKeys = [ ("Backspace", xK_BackSpace) specialKeys = [ ("Backspace" , xK_BackSpace)
, ("Tab" , xK_Tab ) , ("Tab" , xK_Tab)
, ("Return" , xK_Return) , ("Return" , xK_Return)
, ("Pause" , xK_Pause) , ("Pause" , xK_Pause)
, ("Scroll_lock", xK_Scroll_Lock) , ("Scroll_lock", xK_Scroll_Lock)
, ("Sys_Req" , xK_Sys_Req) , ("Sys_Req" , xK_Sys_Req)
, ("Escape" , xK_Escape) , ("Escape" , xK_Escape)
, ("Esc" , xK_Escape) , ("Esc" , xK_Escape)
, ("Delete" , xK_Delete) , ("Delete" , xK_Delete)
, ("Home" , xK_Home) , ("Home" , xK_Home)
, ("Left" , xK_Left) , ("Left" , xK_Left)
, ("Up" , xK_Up) , ("Up" , xK_Up)
, ("Right" , xK_Right) , ("Right" , xK_Right)
, ("Down" , xK_Down) , ("Down" , xK_Down)
, ("L" , xK_Left) , ("L" , xK_Left)
, ("U" , xK_Up) , ("U" , xK_Up)
, ("R" , xK_Right) , ("R" , xK_Right)
, ("D" , xK_Down) , ("D" , xK_Down)
, ("Page_Up" , xK_Page_Up) , ("Page_Up" , xK_Page_Up)
, ("Page_Down", xK_Page_Down) , ("Page_Down" , xK_Page_Down)
, ("End" , xK_End) , ("End" , xK_End)
, ("Insert" , xK_Insert) , ("Insert" , xK_Insert)
, ("Break" , xK_Break) , ("Break" , xK_Break)
, ("Space" , xK_space) , ("Space" , xK_space)
] ]
-- | Given a configuration record and a list of (key sequence -- | Given a configuration record and a list of (key sequence