aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Config
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2008-02-19 17:30:58 +0100
committerAndrea Rossato <andrea.rossato@unibz.it>2008-02-19 17:30:58 +0100
commita638f55ef6ece44b69f6d51339398f1dbc68d77a (patch)
treec9a4ad15187be39affc0e89ad4fc22399782d771 /XMonad/Config
parentde4cfc614e84dc212f33bc43b664a3809bfd0d9f (diff)
downloadXMonadContrib-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.hs27
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