summaryrefslogtreecommitdiffstats
path: root/tv/2configs/xserver/xmonad-tv/Util/Submap.hs
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2015-10-24 22:09:55 +0200
committertv <tv@shackspace.de>2015-10-24 22:09:55 +0200
commitb2deab26bd52a994003cafc33872b6c084cdd716 (patch)
tree6b0229398751afba432076d087925a034bff5337 /tv/2configs/xserver/xmonad-tv/Util/Submap.hs
parenta01651485b21501df2f602c67381a1f5e9ce656b (diff)
tv: nano really is just vim
This is required or else we have to modify glorious packages like cvs.
Diffstat (limited to 'tv/2configs/xserver/xmonad-tv/Util/Submap.hs')
-rw-r--r--tv/2configs/xserver/xmonad-tv/Util/Submap.hs31
1 files changed, 31 insertions, 0 deletions
diff --git a/tv/2configs/xserver/xmonad-tv/Util/Submap.hs b/tv/2configs/xserver/xmonad-tv/Util/Submap.hs
new file mode 100644
index 000000000..b09b97cc2
--- /dev/null
+++ b/tv/2configs/xserver/xmonad-tv/Util/Submap.hs
@@ -0,0 +1,31 @@
+-- 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)