Personal tools

Xmonad/Config archive/brad's xmonad.hs

From HaskellWiki

< Xmonad | Config archive(Difference between revisions)
Jump to: navigation, search
(upgrade for 0.7)
Line 2: Line 2:
 
import XMonad  
 
import XMonad  
 
import qualified XMonad.StackSet as W
 
import qualified XMonad.StackSet as W
 +
import qualified XMonad.Util.CustomKeys as C
 
import qualified Data.Map as M
 
import qualified Data.Map as M
 
-- hopefully it is obvious what changes i want to impose in xmonad:
 
-- 1. no borders
 
-- 2. urxvt is my terminal
 
-- 3. mod+shift+w launches ff in worksapce 2
 
-- 4. mod+shift+u launches my shell
 
-- 5. mod+shift+l locks the screen
 
-- thats it! thanks to all the posters on xmonad.org whose configs i copied!
 
  
 
main :: IO ()
 
main :: IO ()
Line 19: Line 12:
 
       , normalBorderColor  = "#000000"
 
       , normalBorderColor  = "#000000"
 
       , focusedBorderColor = "#000000"
 
       , focusedBorderColor = "#000000"
       , keys = \c -> myKeys c `M.union` keys defaultConfig c
+
       , keys = C.customKeys delkeys inskeys
 
       , manageHook        = manageHook defaultConfig <+> myManageHook
 
       , manageHook        = manageHook defaultConfig <+> myManageHook
 
       }
 
       }
 +
    where
 +
      delkeys :: XConfig l -> [(KeyMask, KeySym)]
 +
      delkeys XConfig {modMask = modm} =
 +
          [ (modm, xK_b) ]
 +
     
 +
      inskeys :: XConfig l -> [((KeyMask, KeySym), X ())]
 +
      inskeys conf@(XConfig {modMask = modm}) =
 +
          let font = "Monospace"
 +
              color = "-fg white -bg black"
 +
              urxvt = "urxvt -vb +sb" in
 +
          [
 +
          ((modm .|. shiftMask, xK_w), spawn "firefox"),
 +
          ((modm .|. shiftMask, xK_e), spawn
 +
            ("emacs --font \"" ++ font ++ "-14\" " ++ color)),
 +
          ((modm .|. shiftMask, xK_u), spawn
 +
            (urxvt ++ " " ++ color ++ " -fn \"xft:" ++ font ++
 +
            ":pixelsize=20\"")),
 +
          ((modm .|. shiftMask, xK_l), spawn "xlock -mode blank")
 +
          ]
 +
      myManageHook :: ManageHook
 +
      myManageHook = composeAll [
 +
                      className  =? "Firefox-bin" --> doF(W.shift "web")
 +
                    ]
  
myKeys conf@(XConfig {modMask = modm}) = M.fromList $
+
[[Image:brad.png|center|200px]]</pre>
    [
+
    ((modm .|. shiftMask, xK_w), spawn "firefox"),
+
    ((modm .|. shiftMask, xK_u), spawn "urxvt -fg white -bg black -vb +sb -fn \"xft:Liberation Mono:pixelsize=20\""),
+
    ((modm .|. shiftMask, xK_l), spawn "xlock -mode blank")
+
    ]
+
 
+
myManageHook :: ManageHook
+
myManageHook = composeAll [
+
                className  =? "Firefox-bin"        --> doF(W.shift "web")
+
              ]
+
</pre>
+
<br/>
+
<hr/>
+
[[Image:brad.png|center|200px]]
+

Revision as of 05:13, 10 July 2008

import XMonad 
import qualified XMonad.StackSet as W
import qualified XMonad.Util.CustomKeys as C
import qualified Data.Map as M

main :: IO ()
main = xmonad $ defaultConfig
       { borderWidth        = 0
       , terminal           = "urxvt -bg black -fg white -vb +sb"
       , workspaces         = ["shell", "web"] ++ map show [3..9]
       , normalBorderColor  = "#000000"
       , focusedBorderColor = "#000000"
       , keys = C.customKeys delkeys inskeys
       , manageHook         = manageHook defaultConfig <+> myManageHook
       }
    where
      delkeys :: XConfig l -> [(KeyMask, KeySym)]
      delkeys XConfig {modMask = modm} =
          [ (modm, xK_b) ]
      
      inskeys :: XConfig l -> [((KeyMask, KeySym), X ())]
      inskeys conf@(XConfig {modMask = modm}) =
          let font = "Monospace"
              color = "-fg white -bg black"
              urxvt = "urxvt -vb +sb" in 
          [ 
           ((modm .|. shiftMask, xK_w), spawn "firefox"),
           ((modm .|. shiftMask, xK_e), spawn 
            ("emacs --font \"" ++ font ++ "-14\" " ++ color)),
           ((modm .|. shiftMask, xK_u), spawn 
            (urxvt ++ " " ++ color ++ " -fn \"xft:" ++ font ++ 
             ":pixelsize=20\"")),
           ((modm .|. shiftMask, xK_l), spawn "xlock -mode blank")
          ]
      myManageHook :: ManageHook
      myManageHook = composeAll [
                      className   =? "Firefox-bin" --> doF(W.shift "web")
                     ]

[[Image:brad.png|center|200px]]