From 42f81370dfe278a18e61e1a6a8e5caa580be37d7 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Mon, 11 Oct 2021 01:18:41 -0600
Subject: Added xev to float. Added keybindings for programmer dvorak

---
 src/Internal/Keys.hs | 10 ++++++++++
 src/Main.hs          |  5 ++++-
 2 files changed, 14 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs
index 19ff5b5..44f4481 100644
--- a/src/Internal/Keys.hs
+++ b/src/Internal/Keys.hs
@@ -149,6 +149,16 @@ mapNumbers km fn =
   , ((km, xK_7), fn '7')
   , ((km, xK_8), fn '8')
   , ((km, xK_9), fn '9')
+  , ((km, xK_bracketright), fn '6')
+  , ((km, xK_exclam), fn '8')
+  , ((km, xK_bracketleft), fn '7')
+  , ((km, xK_braceleft), fn '5')
+  , ((km, xK_braceright), fn '3')
+  , ((km, xK_parenleft), fn '1')
+  , ((km, xK_equal), fn '9')
+  , ((km, xK_asterisk), fn '0')
+  , ((km, xK_parenright), fn '2')
+  , ((km, xK_plus), fn '4')
   ]
 
 mapAlpha :: KeyMask -> (Char -> X ()) -> Map (KeyMask, KeySym) (X ())
diff --git a/src/Main.hs b/src/Main.hs
index d4f5dae..2234a97 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -31,12 +31,15 @@ main = do
        , focusedBorderColor = "#ff6c00"
        , normalBorderColor = "#ffd9bf"
        , layoutHook = myLayout
-       , startupHook = spawn fp
+       , startupHook = do
+          ewmhDesktopsStartup
+          spawn fp
        , manageHook = composeAll [
            isFullscreen --> doFullFloat
          , className =? "Tilda" --> doFloat
          , className =? "yakuake" --> doFloat
          , className =? "MPlayer" --> doFloat
+         , title =? "Event Tester" --> doFloat
          , className =? "mpv" --> doFloat
          , className =? "gnubby_ssh_prompt" --> doFloat
          ]
-- 
cgit