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