Personal tools

Xmonad/Config archive/Robert Manea's xmonad.hs

From HaskellWiki

< Xmonad | Config archive(Difference between revisions)
Jump to: navigation, search
Current revision (19:34, 14 January 2008) (edit) (undo)
 
(2 intermediate revisions not shown.)
Line 1: Line 1:
-
You can download the icons used in this configuration from [http://robm.selfip.net/dwl/dzen_bitmaps.tar.bz2 here]
+
You can download the icons used in this configuration from [http://robm.selfip.net/wiki.sh/-main/DzenIconPacks here]
----
----
Line 8: Line 8:
import XMonad.Actions.DwmPromote
import XMonad.Actions.DwmPromote
import XMonad.Hooks.DynamicLog ( PP(..), dynamicLogWithPP, dzenColor, wrap, defaultPP )
import XMonad.Hooks.DynamicLog ( PP(..), dynamicLogWithPP, dzenColor, wrap, defaultPP )
-
import XMonad.Layout
+
import XMonad.Layout
-
import XMonad.Layout.NoBorders ( smartBorders )
+
import XMonad.Layout.NoBorders
import XMonad.Prompt ( XPConfig(..), XPPosition(..) )
import XMonad.Prompt ( XPConfig(..), XPPosition(..) )
import XMonad.Prompt.Shell ( shellPrompt )
import XMonad.Prompt.Shell ( shellPrompt )
import XMonad.Util.Run
import XMonad.Util.Run
 +
import XMonad.Hooks.ManageDocks
import qualified Data.Map as M
import qualified Data.Map as M
import Data.Bits ((.|.))
import Data.Bits ((.|.))
import Data.Ratio
import Data.Ratio
-
import Graphics.X11
+
import Graphics.X11
import System.IO
import System.IO
Line 24: Line 25:
main = do din <- spawnPipe statusBarCmd
main = do din <- spawnPipe statusBarCmd
xmonad $ defaultConfig
xmonad $ defaultConfig
-
 
{ borderWidth = 1
{ borderWidth = 1
-
, normalBorderColor = "#111111"
+
, normalBorderColor = "grey30"
, focusedBorderColor = "#aecf96"
, focusedBorderColor = "#aecf96"
, workspaces = ["1:dev", "2:mail", "3:web", "4:comm", "5:ham", "6:tmp"]
, workspaces = ["1:dev", "2:mail", "3:web", "4:comm", "5:ham", "6:tmp"]
, terminal = "uterm"
, terminal = "uterm"
, modMask = mod4Mask
, modMask = mod4Mask
-
, defaultGaps = [(13,0,0,0)]
+
, manageHook = manageDocks
, logHook = dynamicLogWithPP $ robPP din
, logHook = dynamicLogWithPP $ robPP din
-
, layoutHook = smartBorders $ tiled ||| Mirror tiled ||| Full
+
, layoutHook = avoidStruts (tiled ||| Mirror tiled ||| noBorders Full)
, keys = \c -> robKeys `M.union`
, keys = \c -> robKeys `M.union`
keys defaultConfig c
keys defaultConfig c
}
}
where
where
-
tiled = Tall 1 (3%100) (680%1000)
+
tiled = Tall 1 (3%100) (1%2)
Line 44: Line 44:
--
--
robKeys = M.fromList $
robKeys = M.fromList $
-
[ ((mod4Mask , xK_p ), shellPrompt robSPConfig)
+
[ ((mod4Mask , xK_p ), shellPrompt robSPConfig)
-
, ((mod4Mask , xK_c ), spawn "/home/robert/bin/dzencal.sh")
+
, ((mod4Mask , xK_c ), spawn "/home/robert/bin/dzencal.sh")
-
, ((mod4Mask , xK_Return), dwmpromote)
+
, ((mod4Mask , xK_Return ), dwmpromote)
-
]
+
, ((mod4Mask , xK_b ), sendMessage ToggleStruts)
 +
 
 +
-- multimedia keys
 +
--
 +
-- XF86AudioLowerVolume
 +
, ((0 , 0x1008ff11), spawn "aumix -v -2")
 +
-- XF86AudioRaiseVolume
 +
, ((0 , 0x1008ff13), spawn "aumix -v +2")
 +
-- XF86AudioMute
 +
, ((0 , 0x1008ff12), spawn "amixer -q set PCM toggle")
 +
-- XF86AudioNext
 +
, ((0 , 0x1008ff17), spawn "mocp -f")
 +
-- XF86AudioPrev
 +
, ((0 , 0x1008ff16), spawn "mocp -r")
 +
-- XF86AudioPlay
 +
, ((0 , 0x1008ff14), spawn "mocp -G")
 +
]
 +
 
-- dynamiclog pretty printer for dzen
-- dynamiclog pretty printer for dzen
Line 70: Line 87:
font = "-*-profont-*-*-*-*-11-*-*-*-*-*-iso8859"
font = "-*-profont-*-*-*-*-11-*-*-*-*-*-iso8859"
, bgColor = "#111111"
, bgColor = "#111111"
 +
, defaultText = ""
, fgColor = "#d5d3a7"
, fgColor = "#d5d3a7"
, bgHLight = "#aecf96"
, bgHLight = "#aecf96"

Current revision

You can download the icons used in this configuration from here 

import XMonad
import XMonad.Operations
import XMonad.Actions.DwmPromote
import XMonad.Hooks.DynamicLog   ( PP(..), dynamicLogWithPP, dzenColor, wrap, defaultPP )
import XMonad.Layout
import XMonad.Layout.NoBorders
import XMonad.Prompt             ( XPConfig(..), XPPosition(..) )
import XMonad.Prompt.Shell       ( shellPrompt )
import XMonad.Util.Run
import XMonad.Hooks.ManageDocks
 
import qualified Data.Map as M
import Data.Bits ((.|.))
import Data.Ratio
import Graphics.X11                                                                                                    
import System.IO
 
statusBarCmd= "dzen2 -bg '#2c2c32' -fg 'grey70' -w 620 -sa c -fn '-*-profont-*-*-*-*-11-*-*-*-*-*-iso8859' -e '' -xs 1 -ta l"
 
main = do din <- spawnPipe statusBarCmd
          xmonad $ defaultConfig
                     { borderWidth        = 1
                     , normalBorderColor  = "grey30"
                     , focusedBorderColor = "#aecf96" 
                     , workspaces         = ["1:dev", "2:mail", "3:web", "4:comm", "5:ham", "6:tmp"] 
                     , terminal           = "uterm"
                     , modMask            = mod4Mask
                     , manageHook         = manageDocks
                     , logHook            = dynamicLogWithPP $ robPP din
                     , layoutHook         = avoidStruts (tiled ||| Mirror tiled ||| noBorders Full)
                     , keys               = \c -> robKeys `M.union` 
                                                  keys defaultConfig c 
                     }
                     where
                       tiled = Tall 1 (3%100) (1%2)
 
 
-- redifine some keys
--
robKeys = M.fromList $
   [ ((mod4Mask     , xK_p      ), shellPrompt robSPConfig)
   , ((mod4Mask     , xK_c      ), spawn "/home/robert/bin/dzencal.sh")
   , ((mod4Mask     , xK_Return ), dwmpromote)
   , ((mod4Mask     , xK_b      ), sendMessage ToggleStruts)
 
   -- multimedia keys
   --
   -- XF86AudioLowerVolume
   , ((0            , 0x1008ff11), spawn "aumix -v -2")
   -- XF86AudioRaiseVolume
   , ((0            , 0x1008ff13), spawn "aumix -v +2")
   -- XF86AudioMute
   , ((0            , 0x1008ff12), spawn "amixer -q set PCM toggle")
   -- XF86AudioNext
   , ((0            , 0x1008ff17), spawn "mocp -f")
   -- XF86AudioPrev
   , ((0            , 0x1008ff16), spawn "mocp -r")
   -- XF86AudioPlay
   , ((0            , 0x1008ff14), spawn "mocp -G")
   ]
 
 
-- dynamiclog pretty printer for dzen
--
robPP h = defaultPP 
                 { ppCurrent = wrap "^fg(#000000)^bg(#a6c292)^p(2)^i(/home/robert/dzen_bitmaps/has_win.xbm)" "^p(2)^fg()^bg()"
                  , ppVisible = wrap "^bg(grey30)^fg(grey75)^p(2)" "^p(2)^fg()^bg()"
                  , ppSep     = " ^fg(grey60)^r(3x3)^fg() "
                  , ppLayout  = dzenColor "#80AA83" "" .
                                (\x -> case x of
                                         "Tall" -> "^i(/home/robert/dzen_bitmaps/tall.xbm)"
                                         "Mirror Tall" -> "^i(/home/robert/dzen_bitmaps/mtall.xbm)"
                                         "Full" -> "^i(/home/robert/dzen_bitmaps/full.xbm)"
                                )
                  , ppTitle   = dzenColor "white" "" . wrap "< " " >" 
                  , ppOutput   = hPutStrLn h
                  }
 
-- shellprompt config
--
robSPConfig = XPC { 
                           font              = "-*-profont-*-*-*-*-11-*-*-*-*-*-iso8859"
                         , bgColor           = "#111111"
                         , defaultText	     = ""
		         , fgColor           = "#d5d3a7"
		         , bgHLight          = "#aecf96"
		         , fgHLight          = "black"
		         , borderColor       = "black"
                         , promptBorderWidth = 0
		         , position          = Bottom
                         , height            = 15
                         , historySize       = 256
                   }
Retrieved from "http://www.haskell.org/haskellwiki/Xmonad/Config_archive/Robert_Manea%27s_xmonad.hs"