From 45d817f69e5b0f47ef5104df12932dabfbef750d Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Mon, 22 Nov 2021 23:29:16 -0700
Subject: Add some support of the XF86 keys.

---
 src/Main.hs | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 94fb5a7..2b9baf3 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -3,7 +3,7 @@ import XMonad
 import XMonad.Hooks.ManageDocks (docks)
 import System.Directory (getHomeDirectory)
 import System.FilePath ((</>))
-import XMonad.Hooks.EwmhDesktops (ewmhDesktopsStartup)
+import XMonad.Hooks.EwmhDesktops (ewmh)
 import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat)
 import XMonad.Layout.Fullscreen (fullscreenEventHook)
 import System.Environment (setEnv)
@@ -16,6 +16,7 @@ import qualified XMonad as X
 import qualified XMonad.StackSet as S
 
 main = do
+
   -- Execute some commands.
   homeDir <- getHomeDirectory
   let fp = homeDir </> ".xmonad" </> "startup"
@@ -25,7 +26,7 @@ main = do
   xmobar <- spawnXMobar
 
   (=<<) X.xmonad $
-    applyKeys $ docks $ def
+    applyKeys $ ewmh $ docks $ def
        { terminal    = "alacritty"
        , modMask     = mod3Mask
        , borderWidth = 2
@@ -33,9 +34,7 @@ main = do
        , focusedBorderColor = "#ff6c00"
        , normalBorderColor = "#404040"
        , layoutHook = myLayout
-       , startupHook = do
-          ewmhDesktopsStartup
-          spawn fp  
+       , startupHook = spawn fp  
        , manageHook = composeAll [
            isFullscreen --> doFullFloat
          , className =? "Tilda" --> doFloat
@@ -43,6 +42,8 @@ main = do
          , className =? "MPlayer" --> doFloat
          , title =? "Event Tester" --> doFloat
          , title =? "Floating Term" --> doFloat
+         , title =? "xmessage" --> doFloat
+         , title =? "gxmessage" --> doFloat
          , className =? "mpv" --> doFloat
          , className =? "gnubby_ssh_prompt" --> doFloat
          ]
-- 
cgit