From e41358263a211bb651ebfdeedeef28c013494960 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Tue, 23 Nov 2021 12:32:00 -0700 Subject: Added ability to submap based on the lookupString. This changes how workspaces work. There are now as many workspaces as there are AlphaNumeric characters. I'm not really sure how I like it, but it's interesting. I'll keep it for a bit and see how I like it. --- src/Internal/Submap.hs | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 src/Internal/Submap.hs (limited to 'src/Internal/Submap.hs') diff --git a/src/Internal/Submap.hs b/src/Internal/Submap.hs new file mode 100644 index 0000000..cdc2f95 --- /dev/null +++ b/src/Internal/Submap.hs @@ -0,0 +1,28 @@ +module Internal.Submap (mapNextString, module X) where + +import XMonad hiding (keys) +import Control.Monad.Fix (fix) + +import XMonad.Actions.Submap as X + +{- Like submap fram XMonad.Actions.Submap, but sends the string from + - XLookupString to the function rather than the KeySym. + -} +mapNextString :: (KeyMask -> String -> X a) -> X a +mapNextString fn = do + XConf { theRoot = root, display = d } <- ask + io $ grabKeyboard d root False grabModeAsync grabModeAsync currentTime + + (m, 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 + (_, str) <- lookupString (asKeyEvent p) + + if isModifierKey keysym + then nextkey + else return $ (m, str) + + io $ ungrabKeyboard d currentTime + + fn m str -- cgit