From 6c5cda26a161ba9387a348a59545dc2bba5f8169 Mon Sep 17 00:00:00 2001 From: Solomon Laing Date: Thu, 22 Apr 2021 20:01:12 +0930 Subject: [PATCH] minor changes to x and xmonad --- .xinitrc | 4 ++-- .xmonad/xmonad.hs | 5 +++-- .xprofile | 3 --- 3 files changed, 5 insertions(+), 7 deletions(-) diff --git a/.xinitrc b/.xinitrc index b51e5c8..4a098ae 100644 --- a/.xinitrc +++ b/.xinitrc @@ -48,6 +48,6 @@ if [ "$HOST" == "archmetabox" ] ; then fi # start my trusty window manager -# exec xmonad --recompile -# exec xmonad +exec xmonad --recompile +exec xmonad --replace diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index 934f48c..a137776 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -35,6 +35,7 @@ import XMonad.Hooks.DynamicLog (dynamicLogWithPP, wrap, xmobarPP, xmobarColor, s import XMonad.Hooks.FadeInactive import XMonad.Hooks.ManageDocks (docks, avoidStruts, docksEventHook, manageDocks, ToggleStruts(..)) import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat) +import XMonad.Hooks.EwmhDesktops (ewmh, fullscreenEventHook) import XMonad.Hooks.ServerMode import XMonad.Hooks.SetWMName import XMonad.Hooks.WorkspaceHistory @@ -49,7 +50,7 @@ import XMonad.Layout.Tabbed import XMonad.Layout.ThreeColumns -- Layouts modifiers -import XMonad.Layout.Fullscreen +--import XMonad.Layout.Fullscreen import XMonad.Layout.LayoutModifier import XMonad.Layout.LimitWindows (limitWindows, increaseLimit, decreaseLimit) import XMonad.Layout.Magnifier @@ -517,7 +518,7 @@ main = do -- xmproc <- spawnPipe "xmobar -x 1 /home/solomon/.config/xmobar/xmobarrc1" -- xmproc <- spawnPipe "xmobar -x 2 /home/solomon/.config/xmobar/xmobarrc2" -- xmonad =<< statusBar myBar myPP toggleStrutsKey defaults - xmonad $ docks def + xmonad $ ewmh $ docks def -- defaults = def { -- simple stuff diff --git a/.xprofile b/.xprofile index 5cf2c42..b19c168 100644 --- a/.xprofile +++ b/.xprofile @@ -15,6 +15,3 @@ xsetroot -cursor_name left_ptr # screenlayout /home/solomon/.screenlayout/normal.sh - -xmonad --recompile -xmonad --replace