diff options
| author | Josh Rahm <rahm@google.com> | 2022-01-16 15:37:07 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2022-01-16 15:37:07 -0700 |
| commit | 913139d4b5fcf330fb67d4a9a4519d534131cb4f (patch) | |
| tree | 7b74785d456f3cad21a92f60f4bf8ee444fdb974 /src/Internal | |
| parent | 6647209f708c09a2ab62ef3b5c77f9b4aa241c70 (diff) | |
| download | rde-913139d4b5fcf330fb67d4a9a4519d534131cb4f.tar.gz rde-913139d4b5fcf330fb67d4a9a4519d534131cb4f.tar.bz2 rde-913139d4b5fcf330fb67d4a9a4519d534131cb4f.zip | |
add more emoticons. Fix emoticon script.
Diffstat (limited to 'src/Internal')
| -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 |