From da9ecbc1006b1567b551f2bcb09e82a08c8d11ae Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Sun, 16 Jan 2022 15:37:07 -0700
Subject: add more emoticons. Fix emoticon script.

---
 src/Internal/Keys.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

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
-- 
cgit