Add my configuration file

Spencer and David: you really did a great job. Thank you guys!

darcs-hash:20071107191305-32816-da8612ddf8ae92098c562bac0f591360c74f87bb.gz

1 files changed, 145 insertions, 0 deletions

diff --git a/XMonad/Config/Arossato.hs b/XMonad/Config/Arossato.hs
new file mode 100644
index 0000000..48f4c2e
--- /dev/null
+++ b/XMonad/Config/Arossato.hs
@@ -0,0 +1,145 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  XMonad.Config.Arossato
+-- Copyright   :  (c) Andrea Rossato 2007
+-- License     :  BSD3-style (see LICENSE)
+--
+-- Maintainer  :  andrea.rossato@unibz.it
+-- Stability   :  stable
+-- Portability :  portable
+--
+-- This module specifies my xmonad defaults.
+--
+------------------------------------------------------------------------
+
+module XMonad.Config.Arossato where
+
+import XMonad
+import XMonad.Layouts
+import XMonad.Operations
+import qualified XMonad.StackSet as W
+import Data.Ratio
+import Data.Bits ((.|.))
+import qualified Data.Map as M
+import Graphics.X11.Xlib
+
+import XMonad.Layout.Accordion
+import XMonad.Hooks.DynamicLog
+import XMonad.Layout.Tabbed
+import XMonad.Layout.NoBorders
+import XMonad.Actions.CycleWS
+import XMonad.Prompt
+import XMonad.Prompt.XMonad
+import XMonad.Prompt.Shell
+import XMonad.Prompt.Ssh
+import XMonad.Prompt.Window
+
+myXPConfig :: XPConfig
+myXPConfig = defaultXPConfig 
+
+-- ion3 clean style
+myTabConfig :: TConf
+myTabConfig = defaultTConf {
+                activeColor         = "#8a999e" 
+              , inactiveColor       = "#545d75"
+              , activeBorderColor   = "white"
+              , inactiveBorderColor = "grey"
+              , activeTextColor     = "white"
+              , inactiveTextColor   = "grey"
+              , tabSize             = 15
+              }
+
+------------------------------------------------------------------------
+-- 
+-- Key bindings:
+-- I want to remove some of the default key bindings, such as those to exit XMonad
+defaultKeys :: XConfig -> M.Map (KeyMask, KeySym) (X ())
+defaultKeys x = M.fromList $
+    -- launching and killing programs
+    [ ((modMask x .|. shiftMask, xK_Return), spawn "xterm") -- %! Launch an xterm
+    , ((modMask x,               xK_p     ), spawn "exe=`dmenu_path | dmenu` && eval \"exec $exe\"") -- %! Launch dmenu
+    , ((modMask x .|. shiftMask, xK_p     ), spawn "gmrun") -- %! Launch gmrun
+    , ((modMask x .|. shiftMask, xK_c     ), kill) -- %! Close the focused window
+
+    , ((modMask x,               xK_space ), sendMessage NextLayout) -- %! Rotate through the available layout algorithms
+    , ((modMask x .|. shiftMask, xK_space ), setLayout $ layoutHook x) -- %!  Reset the layouts on the current workspace to default
+
+    , ((modMask x,               xK_n     ), refresh) -- %! Resize viewed windows to the correct size
+
+    -- move focus up or down the window stack
+    , ((modMask x,               xK_Tab   ), windows W.focusDown) -- %! Move focus to the next window
+    , ((modMask x,               xK_m     ), windows W.focusMaster  ) -- %! Move focus to the master window
+
+    -- modifying the window order
+    , ((modMask x,               xK_Return), windows W.swapMaster) -- %! Swap the focused window and the master window
+    , ((modMask x .|. shiftMask, xK_j     ), windows W.swapDown  ) -- %! Swap the focused window with the next window
+    , ((modMask x .|. shiftMask, xK_k     ), windows W.swapUp    ) -- %! Swap the focused window with the previous window
+
+    -- resizing the master/slave ratio
+    , ((modMask x,               xK_h     ), sendMessage Shrink) -- %! Shrink the master area
+    , ((modMask x,               xK_l     ), sendMessage Expand) -- %! Expand the master area
+
+    -- floating layer support
+    , ((modMask x,               xK_t     ), withFocused $ windows . W.sink) -- %! Push window back into tiling
+
+    -- increase or decrease number of windows in the master area
+    , ((modMask x              , xK_comma ), sendMessage (IncMasterN 1)) -- %! Increment the number of windows in the master area
+    , ((modMask x              , xK_period), sendMessage (IncMasterN (-1))) -- %! Deincrement the number of windows in the master area
+
+    -- toggle the status bar gap
+    , ((modMask x              , xK_b     ), modifyGap (\i n -> let s = (defaultGaps x ++ repeat (0,0,0,0)) !! i in if n == s then (0,0,0,0) else s)) -- %! Toggle the status bar gap
+
+    ]
+    ++
+    -- mod-[1..9] %! Switch to workspace N
+    -- mod-shift-[1..9] %! Move client to workspace N
+    [((m .|. modMask x, k), windows $ f i)
+        | (i, k) <- zip (workspaces x) [xK_1 ..]
+        , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask .|. controlMask)]]
+    ++
+    -- mod-{w,e,r} %! Switch to physical/Xinerama screens 1, 2, or 3
+    -- mod-shift-{w,e,r} %! Move client to screen 1, 2, or 3
+    [((m .|. modMask x, key), screenWorkspace sc >>= flip whenJust (windows . f))
+        | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
+        , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
+
+    ++ mykeys x
+
+-- These are my personal key bindings
+mykeys :: XConfig -> [((KeyMask, KeySym), (X ()))]
+mykeys x = 
+    [ ((modMask x                 , xK_F12   ), xmonadPrompt myXPConfig               )
+    , ((modMask x                 , xK_F3    ), shellPrompt  myXPConfig               )
+    , ((modMask x                 , xK_F4    ), sshPrompt    myXPConfig               )
+    , ((modMask x                 , xK_F5    ), windowPromptGoto  myXPConfig          )
+    , ((modMask x .|. shiftMask   , xK_F5    ), windowPromptBring myXPConfig          )
+    -- mod . mod ,
+    , ((modMask x                 , xK_comma ), prevWS                                )
+    , ((modMask x                 , xK_period), nextWS                                )
+    -- mod left mod right
+    , ((modMask x                 , xK_Right ), windows W.focusDown                   )
+    , ((modMask x                 , xK_Left  ), windows W.focusUp                     )
+    -- other stuff: launch some useful utilities
+    , ((modMask x                 , xK_F2    ), spawn "urxvt -fg white -bg black +sb" )
+    , ((modMask x .|. shiftMask   , xK_F4    ), spawn "~/bin/dict.sh"                 )
+    , ((modMask x .|. shiftMask   , xK_F5    ), spawn "~/bin/urlOpen.sh"              )
+    , ((modMask x                 , xK_c     ), kill                                  )
+    ]
+
+
+arossatoConfig :: XConfig
+arossatoConfig = defaultConfig
+         { borderWidth        = 1
+         , workspaces         = map show [1 .. 9 :: Int]
+         , logHook            = dynamicLogWithPP sjanssenPP 
+         , layoutHook         = Layout $ noBorders mytab |||
+                                noBorders Full ||| tiled ||| 
+                                Mirror tiled ||| Accordion
+         , terminal           = "xterm"
+         , normalBorderColor  = "white"
+         , focusedBorderColor = "black"
+         , modMask            = mod1Mask
+         , keys               = defaultKeys
+         }
+    where mytab = tabbed shrinkText myTabConfig
+          tiled = Tall 1 0.03 0.5
\ No newline at end of file