diff options
| -rw-r--r-- | XMonad/Config/Arossato.hs | 27 |
1 files changed, 6 insertions, 21 deletions
diff --git a/XMonad/Config/Arossato.hs b/XMonad/Config/Arossato.hs index 31cbab0..ebc542f 100644 --- a/XMonad/Config/Arossato.hs +++ b/XMonad/Config/Arossato.hs @@ -17,7 +17,6 @@ module XMonad.Config.Arossato ( -- * Usage -- $usage arossatoConfig - , arossatoTheme ) where import qualified Data.Map as M @@ -43,6 +42,7 @@ import XMonad.Prompt.Theme import XMonad.Prompt.Window import XMonad.Prompt.XMonad import XMonad.Util.Run +import XMonad.Util.Themes -- $usage -- The simplest way to use this configuration module is to use an @@ -71,7 +71,6 @@ import XMonad.Util.Run -- > ( -- * Usage -- > -- $usage -- > arossatoConfig --- > , arossatoTabbedConfig -- > ) where -- -- to @@ -84,25 +83,12 @@ import XMonad.Util.Run -- -- 3. Start playing with the configuration options...;) --- | My configuration for the Tabbed Layout. Basically this is the --- Ion3 clean style. -arossatoTheme :: Theme -arossatoTheme = defaultTheme - { activeColor = "#8a999e" - , inactiveColor = "#545d75" - , activeBorderColor = "white" - , inactiveBorderColor = "grey" - , activeTextColor = "white" - , inactiveTextColor = "grey" - , decoHeight = 14 - } - arossatoConfig = do - xmobar <- spawnPipe "xmobar" -- remove this line if you do not have xmobar installed! + xmobar <- spawnPipe "xmobar" -- REMOVE this line if you do not have xmobar installed! return $ defaultConfig { workspaces = ["home","var","dev","mail","web","doc"] ++ map show [7 .. 9 :: Int] - , logHook = myDynLog xmobar + , logHook = myDynLog xmobar -- REMOVE this line if you do not have xmobar installed! , manageHook = newManageHook , layoutHook = avoidStruts $ decorated ||| @@ -116,8 +102,8 @@ arossatoConfig = do } where -- layouts - mytabs = tabbed shrinkText arossatoTheme - decorated = simpleFloat' shrinkText arossatoTheme + mytabs = tabbed shrinkText (theme smallClean) + decorated = simpleFloat' shrinkText (theme smallClean) tiled = Tall 1 (3/100) (1/2) otherLays = windowArrange $ magnifier tiled ||| @@ -126,8 +112,7 @@ arossatoConfig = do Accordion -- manageHook - myManageHook = composeAll [ resource =? "realplay.bin" --> doFloat - , resource =? "win" --> doF (W.shift "doc") -- xpdf + myManageHook = composeAll [ resource =? "win" --> doF (W.shift "doc") -- xpdf , resource =? "firefox-bin" --> doF (W.shift "web") ] newManageHook = myManageHook |