diff options
author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-19 17:30:58 +0100 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-19 17:30:58 +0100 |
commit | a638f55ef6ece44b69f6d51339398f1dbc68d77a (patch) | |
tree | c9a4ad15187be39affc0e89ad4fc22399782d771 /XMonad/Config | |
parent | de4cfc614e84dc212f33bc43b664a3809bfd0d9f (diff) | |
download | XMonadContrib-a638f55ef6ece44b69f6d51339398f1dbc68d77a.tar.gz XMonadContrib-a638f55ef6ece44b69f6d51339398f1dbc68d77a.tar.xz XMonadContrib-a638f55ef6ece44b69f6d51339398f1dbc68d77a.zip |
Arossato: updated to latest changes
darcs-hash:20080219163058-32816-f4ee70039b716c5deada21fe3cac43544dca1b71.gz
Diffstat (limited to 'XMonad/Config')
-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 |