ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH integrate xmobar

This commit is contained in:
Nathan Dwarshuis 2020-02-08 16:01:15 -05:00
parent aab6340e89
commit cadcf41d15
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
xmonad.hs
View File

@ -14,6 +14,7 @@ import XMonad.Actions.CycleWS
-- import XMonad.Config.Desktop -- import XMonad.Config.Desktop
-- import XMonad.Hooks.DynamicLog -- import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks
-- import XMonad.Layout.IndependentScreens -- import XMonad.Layout.IndependentScreens
-- import XMonad.Hooks.ManageHelpers -- import XMonad.Hooks.ManageHelpers
-- import XMonad.Layout.BinarySpacePartition (emptyBSP) -- import XMonad.Layout.BinarySpacePartition (emptyBSP)
@ -31,15 +32,18 @@ import qualified XMonad.StackSet as W
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
main = do main = do
-- spawn "xmobar" -- Start a task bar such as xmobar. spawn "xmobar"
xmonad xmonad
$ ewmh $ ewmh
$ addDescrKeys' ((myModMask, xK_F1), showKeybindings) myKeys $ addDescrKeys' ((myModMask, xK_F1), showKeybindings) myKeys
$ def { terminal = myTerm $ def { terminal = myTerm
, modMask = myModMask , modMask = myModMask
, layoutHook = avoidStruts $ layoutHook def
, manageHook = manageDocks <+> manageHook def
, handleEventHook = docksEventHook <+> handleEventHook def
, startupHook = docksStartupHook <+> startupHook def
-- , workspaces = withScreens 2 ["name1", "name2"] -- , workspaces = withScreens 2 ["name1", "name2"]
-- , layoutHook = myLayoutHook
} }
-- Start xmonad using the main desktop configuration with a few -- Start xmonad using the main desktop configuration with a few