diff options
| -rw-r--r-- | XMonad/Config/Arossato.hs | 53 |
1 files changed, 47 insertions, 6 deletions
diff --git a/XMonad/Config/Arossato.hs b/XMonad/Config/Arossato.hs index 8d492cd..7b59938 100644 --- a/XMonad/Config/Arossato.hs +++ b/XMonad/Config/Arossato.hs @@ -13,7 +13,12 @@ -- ------------------------------------------------------------------------ -module XMonad.Config.Arossato where +module XMonad.Config.Arossato + ( -- * Usage + -- $usage + arossatoConfig + , arossatoTabbedConfig + ) where import qualified Data.Map as M import Graphics.X11.Xlib @@ -34,9 +39,46 @@ import XMonad.Prompt.Ssh import XMonad.Prompt.Window import XMonad.Prompt.XMonad --- The Ion3 clean style -myTabConfig :: TConf -myTabConfig = +-- $usage +-- The simplest way to use this configuration module is to use an +-- @~\/.xmonad\/xmonad.hs@ like this: +-- +-- > module Main (main) where +-- > +-- > import XMonad +-- > import XMonad.Config.Arossato (arossatoConfig) +-- > +-- > main :: IO () +-- > main = xmonad arossatoConfig +-- +-- +-- You can use this module also as a starting point for writing your +-- own configuration module from scratch. Save it as your +-- @~\/.xmonad\/xmonad.hs@ and: +-- +-- 1. Change the module name from +-- +-- > module XMonad.Config.Arossato +-- > ( -- * Usage +-- > -- $usage +-- > arossatoConfig +-- > , arossatoTabbedConfig +-- > ) where +-- +-- to +-- +-- > module Main where +-- +-- 2. Add a line like: +-- +-- > main = xmonad arossatoConfig +-- +-- 3. Start playing with the configuration options...;) + +-- | My configuration for the Tabbed Layout. Basically this is the +-- Ion3 clean style. +arossatoTabbedConfig :: TConf +arossatoTabbedConfig = defaultTConf { activeColor = "#8a999e" , inactiveColor = "#545d75" , activeBorderColor = "white" @@ -65,7 +107,7 @@ arossatoConfig = defaultConfig } where -- layouts - mytab = tabbed shrinkText myTabConfig + mytab = tabbed shrinkText arossatoTabbedConfig tiled = Tall 1 0.03 0.5 -- the logHook pretty-printer @@ -88,7 +130,6 @@ arossatoConfig = defaultConfig ] ++ -- I want modMask .|. shiftMask 1-9 to be free! [(shiftMask .|. modMask x, k) | k <- [xK_1 .. xK_9]] - -- These are my personal key bindings toAdd x = [ ((modMask x , xK_F12 ), xmonadPrompt defaultXPConfig ) |