minor changes to x and xmonad
This commit is contained in:
parent
64f0ce1f16
commit
6c5cda26a1
4
.xinitrc
4
.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
|
||||
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user