[XMonad] Taffybar support in xmonad.hs
This commit is contained in:
parent
64b0ea9ec4
commit
148e766a9b
@ -1,3 +1,5 @@
|
|||||||
|
import System.Taffybar.Hooks.PagerHints (pagerHints)
|
||||||
|
|
||||||
import XMonad hiding ( (|||) )
|
import XMonad hiding ( (|||) )
|
||||||
import XMonad.Actions.WindowBringer
|
import XMonad.Actions.WindowBringer
|
||||||
import XMonad.Config ()
|
import XMonad.Config ()
|
||||||
@ -12,7 +14,7 @@ import XMonad.Layout.ThreeColumns
|
|||||||
import qualified XMonad.StackSet as W
|
import qualified XMonad.StackSet as W
|
||||||
import XMonad.Util.CustomKeys
|
import XMonad.Util.CustomKeys
|
||||||
|
|
||||||
main = xmonad $ ewmh def
|
main = xmonad $ ewmh $ pagerHints def
|
||||||
{ modMask = mod4Mask
|
{ modMask = mod4Mask
|
||||||
, terminal = "urxvt"
|
, terminal = "urxvt"
|
||||||
, manageHook = manageDocks <+> manageHook def
|
, manageHook = manageDocks <+> manageHook def
|
||||||
|
Loading…
Reference in New Issue
Block a user