Personal tools

Xmonad/Config archive/brad's xmonad.hs

From HaskellWiki

(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]]
Retrieved from "http://www.haskell.org/haskellwiki/Xmonad/Config_archive/brad%27s_xmonad.hs"