twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Minor changes to my config

Browse Source
This commit is contained in:
Spencer Janssen
2009-09-01 02:48:02 +00:00
parent c91f54b2fb
commit 63e5b222b8
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
XMonad/Config/Sjanssen.hs
View File

@@ -10,6 +10,7 @@ import XMonad.Config (defaultConfig)
import XMonad.Layout.NoBorders import XMonad.Layout.NoBorders
import XMonad.Hooks.DynamicLog hiding (xmobar) import XMonad.Hooks.DynamicLog hiding (xmobar)
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat)
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Prompt import XMonad.Prompt
import XMonad.Actions.SpawnOn import XMonad.Actions.SpawnOn
@@ -19,14 +20,14 @@ import XMonad.Layout.TwoPane
import qualified Data.Map as M import qualified Data.Map as M
sjanssenConfigXmobar = statusBar "xmobar" sjanssenPP strutkey =<< sjanssenConfig sjanssenConfigXmobar = statusBar "exec xmobar" sjanssenPP strutkey =<< sjanssenConfig
where where
strutkey (XConfig {modMask = modm}) = (modm, xK_b) strutkey (XConfig {modMask = modm}) = (modm, xK_b)
sjanssenConfig = do sjanssenConfig = do
sp <- mkSpawner sp <- mkSpawner
return $ defaultConfig return $ defaultConfig
{ terminal = "urxvtc" { terminal = "exec urxvt"
, workspaces = ["irc", "web"] ++ map show [3 .. 9 :: Int] , workspaces = ["irc", "web"] ++ map show [3 .. 9 :: Int]
, mouseBindings = \(XConfig {modMask = modm}) -> M.fromList $ , mouseBindings = \(XConfig {modMask = modm}) -> M.fromList $
[ ((modm, button1), (\w -> focus w >> mouseMoveWindow w)) [ ((modm, button1), (\w -> focus w >> mouseMoveWindow w))
@@ -40,17 +41,19 @@ sjanssenConfig = do
, ("Ktorrent", "7") , ("Ktorrent", "7")
, ("Amarokapp", "7")]] , ("Amarokapp", "7")]]
<+> manageHook defaultConfig <+> manageDocks <+> manageSpawn sp <+> manageHook defaultConfig <+> manageDocks <+> manageSpawn sp
<+> (isFullscreen --> doFullFloat)
} }
where where
tiled = HintedTile 1 0.03 0.5 TopLeft tiled = HintedTile 1 0.03 0.5 TopLeft
layouts = (tiled Tall ||| (tiled Wide ||| Full)) ||| tabbed shrinkText myTheme layouts = (tiled Tall ||| (tiled Wide ||| Full)) ||| tabbed shrinkText myTheme
modifiers = smartBorders modifiers = smartBorders
mykeys sp (XConfig {modMask = modm, workspaces = ws}) = M.fromList $ mykeys sp (XConfig {modMask = modm}) = M.fromList $
[((modm, xK_p ), shellPromptHere sp myPromptConfig) [((modm, xK_p ), shellPromptHere sp myPromptConfig)
,((modm .|. shiftMask, xK_Return), spawnHere sp =<< asks (terminal . config))
,((modm .|. shiftMask, xK_c ), kill1) ,((modm .|. shiftMask, xK_c ), kill1)
,((modm .|. shiftMask .|. controlMask, xK_c ), kill) ,((modm .|. shiftMask .|. controlMask, xK_c ), kill)
,((modm .|. shiftMask, xK_0 ), windows $ \w -> foldr copy w ws) ,((modm .|. shiftMask, xK_0 ), windows $ copyToAll)
,((modm, xK_z ), layoutScreens 2 $ TwoPane 0.5 0.5) ,((modm, xK_z ), layoutScreens 2 $ TwoPane 0.5 0.5)
,((modm .|. shiftMask, xK_z ), rescreen) ,((modm .|. shiftMask, xK_z ), rescreen)
] ]