diff options
author | lassulus <lass@aidsballs.de> | 2015-11-10 19:27:56 +0100 |
---|---|---|
committer | lassulus <lass@aidsballs.de> | 2015-11-10 19:27:56 +0100 |
commit | 6295f793579b87333d45efb0e27a7b13a43e3b34 (patch) | |
tree | faae9679781f49c8450746bcbee5bb42f6d55405 /tv/5pkgs/xmonad-tv/Util/Submap.hs | |
parent | 0d752ae79bc14ecd0ade73a51cf77e8dfa0dbfb7 (diff) | |
parent | ebba531273715c1a9c124007b97f3547d16e780f (diff) |
Merge remote-tracking branch 'cd/master'
Diffstat (limited to 'tv/5pkgs/xmonad-tv/Util/Submap.hs')
-rw-r--r-- | tv/5pkgs/xmonad-tv/Util/Submap.hs | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/tv/5pkgs/xmonad-tv/Util/Submap.hs b/tv/5pkgs/xmonad-tv/Util/Submap.hs deleted file mode 100644 index b09b97cc..00000000 --- a/tv/5pkgs/xmonad-tv/Util/Submap.hs +++ /dev/null @@ -1,31 +0,0 @@ --- This module is based on Jason Creighton's XMonad.Actions.Submap - -module Util.Submap - ( submapString - ) where - -import Data.Bits -import XMonad hiding (keys) -import qualified Data.Map as M -import Control.Monad.Fix (fix) - - --- | Like 'XMonad.Actions.Submap.submapDefault', but provides the looked up string to the default action. -submapString :: (String -> X ()) -> M.Map (KeyMask, KeySym) (X ()) -> X () -submapString def keys = do - XConf { theRoot = root, display = d } <- ask - - (m, s, str) <- io $ allocaXEvent $ \p -> fix $ \nextkey -> do - maskEvent d keyPressMask p - KeyEvent { ev_keycode = code, ev_state = m } <- getEvent p - keysym <- keycodeToKeysym d code 0 - if isModifierKey keysym - then nextkey - else do - (mbKeysym, str) <- lookupString (asKeyEvent p) - return (m, keysym, str) - - -- Remove num lock mask and Xkb group state bits - m' <- cleanMask $ m .&. ((1 `shiftL` 12) - 1) - - maybe (def str) id (M.lookup (m', s) keys) |