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/Main.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/Main.hs')

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