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
|
fi
|
||||||
|
|
||||||
# start my trusty window manager
|
# start my trusty window manager
|
||||||
# exec xmonad --recompile
|
exec xmonad --recompile
|
||||||
# exec xmonad
|
exec xmonad --replace
|
||||||
|
|
||||||
|
|||||||
@ -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
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user