[XMonad] Taffybar support in xmonad.hs
This commit is contained in:
@@ -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
|
||||||
|
Reference in New Issue
Block a user