diff options
author | Michal Minar <mic.liamg@gmail.com> | 2015-08-25 07:22:24 +0200 |
---|---|---|
committer | Michal Minar <mic.liamg@gmail.com> | 2015-08-25 07:22:24 +0200 |
commit | ce2490a4d9ce990bc8c0f189bd04535b202a84e3 (patch) | |
tree | f1e9cb5fd2dd5da95932d23714be70bfa2a82014 /xminad.hs | |
parent | b8ed3d8ab6ec89aefd254aac8d2b451a085c5948 (diff) | |
download | xminad-ce2490a4d9ce990bc8c0f189bd04535b202a84e3.tar.gz xminad-ce2490a4d9ce990bc8c0f189bd04535b202a84e3.tar.xz xminad-ce2490a4d9ce990bc8c0f189bd04535b202a84e3.zip |
Added taffybar - not working
Signed-off-by: Michal Minar <mic.liamg@gmail.com>
Diffstat (limited to 'xminad.hs')
-rw-r--r-- | xminad.hs | 20 |
1 files changed, 13 insertions, 7 deletions
@@ -1,12 +1,14 @@ {-# LANGUAGE NoMonomorphismRestriction #-} {-# OPTIONS -fno-warn-missing-signatures #-} -import qualified DBus as D -import qualified DBus.Client as D +--import qualified DBus as D +--import qualified DBus.Client as D +import System.Taffybar.Hooks.PagerHints import XMonad import XMonad.Actions.UpdateFocus import XMonad.Config.Desktop +import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.SetWMName import XMonad.Hooks.UrgencyHook @@ -21,7 +23,7 @@ import qualified XMonad.Local.Mouse as Local import qualified XMonad.Local.TopicSpace as Local import qualified XMonad.Local.XConfig as Local -myConfig dbus = Local.xConfig +myConfig = Local.xConfig { modMask = Local.modMask , borderWidth = 1 , normalBorderColor = "#FFD12B" @@ -30,7 +32,7 @@ myConfig dbus = Local.xConfig , workspaces = Local.workspaces , layoutHook = desktopLayoutModifiers Local.layoutHook , keys = Local.keyBindings - , logHook = Local.logHook dbus + , logHook = Local.logHook , handleEventHook = Local.eventHook , manageHook = Local.manageHook , startupHook = myStartupHook @@ -38,18 +40,22 @@ myConfig dbus = Local.xConfig } where myStartupHook = do + spawn "pkill taffybar" + spawn "taffybar" startupHook Local.xConfig adjustEventInput setWMName "LG3D" +{- getWellKnownName :: D.Client -> IO () getWellKnownName dbus = do D.requestName dbus (D.busName_ "org.xmonad.Log") [D.nameAllowReplacement, D.nameReplaceExisting, D.nameDoNotQueue] >> return () +-} main :: IO () main = do - dbus <- D.connectSession - getWellKnownName dbus - xmonad $ withUrgencyHook NoUrgencyHook $ myConfig dbus + --dbus <- D.connectSession + -- getWellKnownName dbus + xmonad $ withUrgencyHook NoUrgencyHook $ ewmh $ pagerHints myConfig |