hektor
/
dots
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Compare commits

base: hektor:5a7df6bcd2d7f61274e291b2850e71aefbd0ead7
Branches Tags
hektor:master
..
compare: hektor:48681cfd4d08cfa14b3ebf52fbac9807d204ecce
Branches Tags
hektor:master

No commits in common. "5a7df6bcd2d7f61274e291b2850e71aefbd0ead7" and "48681cfd4d08cfa14b3ebf52fbac9807d204ecce" have entirely different histories.
5a7df6bcd2 ... 48681cfd4d

1 changed files with 8 additions and 12 deletions
Show Stats Expand all files Collapse all files

20
.xmonad/xmonad.hs
View File

@ -1,7 +1,6 @@
-- {{{ -- {{{
import XMonad import XMonad
import XMonad.Actions.CopyWindow (copyToAll, killAllOtherCopies)
import XMonad.Hooks.DynamicProperty import XMonad.Hooks.DynamicProperty
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
@ -68,7 +67,7 @@ shiftAndView id = doF (W.view id) <> doF (W.shift id)
-- startupHook -- startupHook
myStartupHook = myStartupHook =
do do
spawn "killall polybar && polybar -r" spawn "albert"
-- manageHook -- manageHook
myManageHook :: ManageHook myManageHook :: ManageHook
@ -203,8 +202,6 @@ myKeys =
(withScreen 1 myWorkspaces) (withScreen 1 myWorkspaces)
++ zip mySharedWorkspaceKeys ++ zip mySharedWorkspaceKeys
(withScreen 2 mySharedWorkspaces) (withScreen 2 mySharedWorkspaces)
("M-c", windows copyToAll),
("M-S-c", killAllOtherCopies),
] ]
zipKeyPrefixes :: [String] -> [String] -> [String] zipKeyPrefixes :: [String] -> [String] -> [String]
@ -264,14 +261,13 @@ resetTemp = spawn "screen-temperature 3000"
-- Main {{{ -- Main {{{
main :: IO () main :: IO ()
main = main = do xmonad
do { xmonad } $ $ ewmh
ewmh $ $ withEasySB
withEasySB (sb1 <> sb2)
(sb1 <> sb2) defToggleStrutsKey
defToggleStrutsKey myConfig
myConfig
where where
[sb1, sb2] = [statusBarProp "polybar" $ pure (pp' (S i) pp) | i <- [0 .. 1]] [sb1, sb2] = [statusBarProp "xmobar" $ pure (pp' (S i) pp) | i <- [0..1]]
-- }}} -- }}}