From 42e59d028c5b7b03d289f28a3757c2172b4c956e Mon Sep 17 00:00:00 2001
From: elkowar <5300871+elkowar@users.noreply.github.com>
Date: Thu, 21 Oct 2021 13:24:42 +0200
Subject: [PATCH] some xmonad stuff

---
 nvim/.config/nvim/fnl/dots/plugins.fnl |  3 ++-
 xmonad/.xmonad/lib/Config.hs           | 27 ++++++++++++++++----------
 2 files changed, 19 insertions(+), 11 deletions(-)

diff --git a/nvim/.config/nvim/fnl/dots/plugins.fnl b/nvim/.config/nvim/fnl/dots/plugins.fnl
index 838c482..4e6a4f4 100644
--- a/nvim/.config/nvim/fnl/dots/plugins.fnl
+++ b/nvim/.config/nvim/fnl/dots/plugins.fnl
@@ -25,7 +25,7 @@
 (use
   :jbyuki/instant.nvim {:config #(set vim.g.instant_username "ElKowar")}
   :lewis6991/impatient.nvim {}
-  :elkowar/yuck.vim {}
+  :rhysd/conflict-marker.vim {}
   :nvim-lua/plenary.nvim {}
   :elkowar/antifennel-nvim {:opt false :config #(set vim.g.antifennel_executable "/home/leon/tmp/antifennel/antifennel")}
   :elkowar/kmonad.vim {}
@@ -202,6 +202,7 @@
   :tommcdo/vim-exchange {}
   :eraserhd/parinfer-rust {:run "cargo build --release"}
 
+  :elkowar/yuck.vim {}
   :cespare/vim-toml {}
   :bduggan/vim-raku {:ft ["raku"]}
   :LnL7/vim-nix {:ft ["nix"]}
diff --git a/xmonad/.xmonad/lib/Config.hs b/xmonad/.xmonad/lib/Config.hs
index e7fb487..2f02313 100644
--- a/xmonad/.xmonad/lib/Config.hs
+++ b/xmonad/.xmonad/lib/Config.hs
@@ -518,11 +518,13 @@ main = do
         , layoutHook         = myLayout
         , logHook            = mconcat [ polybarLogHook verticalMonitorIndex
                                        , ewwLogHook
-                                       , Ewmh.ewmhDesktopsLogHook
+                                       --, Ewmh.ewmhDesktopsLogHook
                                        , logHook Desktop.desktopConfig
                                        --, fadeInactiveLogHook 0.95
                                        , logHook def]
-        , startupHook        = mconcat [ Ewmh.ewmhDesktopsStartup, myStartupHook, checkKeymap myConfig myKeys]
+        , startupHook        = mconcat [ --Ewmh.ewmhDesktopsStartup
+                                       --, 
+                                         myStartupHook, checkKeymap myConfig myKeys]
         , manageHook         = mconcat [ manageSpawn, myManageHook, manageHook def]
         , focusedBorderColor = "#427b58"
         , normalBorderColor  = "#282828"
@@ -530,7 +532,7 @@ main = do
                                        , activateWindowEventHook
                                        , handleEventHook Desktop.desktopConfig
                                        , Hacks.windowedFullscreenFixEventHook
-                                       , Ewmh.ewmhDesktopsEventHook
+                                       --, Ewmh.ewmhDesktopsEventHook
                                        ]
         --, handleEventHook  = minimizeEventHook <+> handleEventHook def <+> hintsEventHook -- <+> Ewmh.fullscreenEventHook
         , mouseBindings = myMouseBindings <+> mouseBindings def
@@ -538,12 +540,17 @@ main = do
 
   xmonad
     $ Nav2d.withNavigation2DConfig def { Nav2d.defaultTiledNavigation = Nav2d.sideNavigation }
+    $ Ewmh.setEwmhActivateHook myActivateManageHook
+    $ Ewmh.ewmh
     $ docks
     $ myConfig
 
+
 -- }}}
 
 
+myActivateManageHook :: ManageHook
+myActivateManageHook = pure mempty
 
 mySwallowEventHook = WindowSwallowing.swallowEventHook
   (className =? "Alacritty" <||> className =? "Termite" <||> className =? "NOPE Thunar")
@@ -564,17 +571,17 @@ activateWindowEventHook (ClientMessageEvent { ev_message_type = messageType, ev_
         shouldRaise <- runQuery (className =? "discord" <||> className =? "web.whatsapp.com") window
         if shouldRaise
            then windows (W.shiftWin (W.currentTag ws) window)
-           else windows (focusWindow' window)
+           else windows (IS.focusWindow' window)
   return $ All True
 activateWindowEventHook _ = return $ All True
 
 -- | Focus a window, switching workspace on the correct Xinerama screen if neccessary.
-focusWindow' :: Window -> WindowSet -> WindowSet
-focusWindow' window ws
-  | Just window == W.peek ws = ws
-  | otherwise = case W.findTag window ws of
-      Just tag ->  IS.focusScreen (IS.unmarshallS tag) ws
-      Nothing -> ws
+-- focusWindow' :: Window -> WindowSet -> WindowSet
+-- focusWindow' window ws
+--   | Just window == W.peek ws = ws
+--   | otherwise = case W.findTag window ws of
+--       Just tag ->  IS.focusScreen (IS.unmarshallS tag) ws
+--       Nothing -> ws