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