diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index 07dbd97..78c0779 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -17,6 +17,7 @@ import XMonad.Actions.CopyWindow import XMonad.Actions.DynamicWorkspaces import XMonad.Actions.GridSelect import XMonad.Actions.NoBorders +import XMonad.Actions.SpawnOn import XMonad.Actions.Warp(warpToScreen) import XMonad.Actions.WindowBringer import XMonad.Prompt @@ -55,6 +56,7 @@ mKeys = [ ("M-S-n", sendMessage MirrorShrink ) -- Expand current window , ("M-r" , warpToCorner ) -- Kill the rodent , ("M-b" , withFocused toggleBorder ) -- Toggle the border of the currently focused window , ("M-g" , warpToCentre >> promptedWs) -- Gridselect to pick windows + --, ("M-s" , shellPromptHere sp mXPConfig ) -- Shell prompt , ("M-S-b", spawn "ps -U hunner|grep dzen2|awk '{print $1}'|xargs kill -USR1") -- Bring dzen to the front , ("", spawn "xlock -mode fzort" ) -- SCReen LocK @@ -209,9 +211,8 @@ pickyFocusEventHook e@(CrossingEvent {ev_window = w, ev_event_type = t}) where shouldFollow = (/="Cellwriter") `fmap` className pickyFocusEventHook _ = return $ All True --- Run xmonad! +-- Define my configuration -- -main = xmonad $ mConfig mConfig = defaultConfig { terminal = mTerminal , focusFollowsMouse = mFocusFollowsMouse @@ -221,9 +222,16 @@ mConfig = defaultConfig , normalBorderColor = mNormalBorderColor , focusedBorderColor = mFocusedBorderColor , layoutHook = mLayout + --, manageHook = manageSpawn sp <+> mManageHook , manageHook = mManageHook , handleEventHook = pickyFocusEventHook , startupHook = do ewmhDesktopsStartup >> setWMName "LG3D" return () >> checkKeymap mConfig mKeys } `additionalKeysP` mKeys `additionalKeys` mKeysExt + +-- Run xmonad! +-- +main = do + sp <- mkSpawner + xmonad mConfig