diff options
| author | Josh Rahm <rahm@google.com> | 2022-01-16 15:37:07 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:45 -0600 |
| commit | da9ecbc1006b1567b551f2bcb09e82a08c8d11ae (patch) | |
| tree | 335fa0c35fb801ae1b801efc064ea272c12ab2d5 /src | |
| parent | 12257db1096d7e7804668c1da78c43d4dd7aac88 (diff) | |
| download | rde-da9ecbc1006b1567b551f2bcb09e82a08c8d11ae.tar.gz rde-da9ecbc1006b1567b551f2bcb09e82a08c8d11ae.tar.bz2 rde-da9ecbc1006b1567b551f2bcb09e82a08c8d11ae.zip | |
add more emoticons. Fix emoticon script.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Internal/Keys.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs index 27315cd..8731f42 100644 --- a/src/Internal/Keys.hs +++ b/src/Internal/Keys.hs @@ -11,7 +11,7 @@ import Graphics.X11.ExtraTypes.XorgDefault import System.Process import XMonad.Util.Ungrab import XMonad.Layout.Spacing -import Data.Maybe (isJust) +import Data.Maybe (isJust, fromMaybe) import Debug.Trace import Control.Applicative import Prelude hiding ((!!)) @@ -51,7 +51,8 @@ keymap :: KeyMap l keymap = runKeys $ do config <- getConfig - let subkeys = submap . flip runKeys config + let defaultKey key = fromMaybe (return ()) $ Map.lookup key (keymap config) + subkeys = submapDefaultWithKey defaultKey . flip runKeys config bind xK_apostrophe $ do justMod $ subkeys $ do |