minor changes to x and xmonad

This commit is contained in:
Solomon Laing 2021-04-22 20:01:12 +09:30
parent 64f0ce1f16
commit 6c5cda26a1
3 changed files with 5 additions and 7 deletions

View File

@ -48,6 +48,6 @@ if [ "$HOST" == "archmetabox" ] ; then
fi fi
# start my trusty window manager # start my trusty window manager
# exec xmonad --recompile exec xmonad --recompile
# exec xmonad exec xmonad --replace

View File

@ -35,6 +35,7 @@ import XMonad.Hooks.DynamicLog (dynamicLogWithPP, wrap, xmobarPP, xmobarColor, s
import XMonad.Hooks.FadeInactive import XMonad.Hooks.FadeInactive
import XMonad.Hooks.ManageDocks (docks, avoidStruts, docksEventHook, manageDocks, ToggleStruts(..)) import XMonad.Hooks.ManageDocks (docks, avoidStruts, docksEventHook, manageDocks, ToggleStruts(..))
import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat) import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat)
import XMonad.Hooks.EwmhDesktops (ewmh, fullscreenEventHook)
import XMonad.Hooks.ServerMode import XMonad.Hooks.ServerMode
import XMonad.Hooks.SetWMName import XMonad.Hooks.SetWMName
import XMonad.Hooks.WorkspaceHistory import XMonad.Hooks.WorkspaceHistory
@ -49,7 +50,7 @@ import XMonad.Layout.Tabbed
import XMonad.Layout.ThreeColumns import XMonad.Layout.ThreeColumns
-- Layouts modifiers -- Layouts modifiers
import XMonad.Layout.Fullscreen --import XMonad.Layout.Fullscreen
import XMonad.Layout.LayoutModifier import XMonad.Layout.LayoutModifier
import XMonad.Layout.LimitWindows (limitWindows, increaseLimit, decreaseLimit) import XMonad.Layout.LimitWindows (limitWindows, increaseLimit, decreaseLimit)
import XMonad.Layout.Magnifier import XMonad.Layout.Magnifier
@ -517,7 +518,7 @@ main = do
-- xmproc <- spawnPipe "xmobar -x 1 /home/solomon/.config/xmobar/xmobarrc1" -- xmproc <- spawnPipe "xmobar -x 1 /home/solomon/.config/xmobar/xmobarrc1"
-- xmproc <- spawnPipe "xmobar -x 2 /home/solomon/.config/xmobar/xmobarrc2" -- xmproc <- spawnPipe "xmobar -x 2 /home/solomon/.config/xmobar/xmobarrc2"
-- xmonad =<< statusBar myBar myPP toggleStrutsKey defaults -- xmonad =<< statusBar myBar myPP toggleStrutsKey defaults
xmonad $ docks def xmonad $ ewmh $ docks def
-- defaults = def -- defaults = def
{ {
-- simple stuff -- simple stuff

View File

@ -15,6 +15,3 @@ xsetroot -cursor_name left_ptr
# screenlayout # screenlayout
/home/solomon/.screenlayout/normal.sh /home/solomon/.screenlayout/normal.sh
xmonad --recompile
xmonad --replace