twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

-Wall police

Browse Source
This commit is contained in:
Spencer Janssen 2007-11-05 06:00:36 +00:00
parent 9cd33f809e
commit 2bb992c128
4 changed files with 13 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Actions/Submap.hs
View File

@ -20,7 +20,7 @@ module XMonad.Actions.Submap (
import Control.Monad.Reader import Control.Monad.Reader
import XMonad import XMonad hiding (keys)
import XMonad.Operations (cleanMask) import XMonad.Operations (cleanMask)
import Graphics.X11.Xlib import Graphics.X11.Xlib
import Graphics.X11.Xlib.Extras import Graphics.X11.Xlib.Extras

24
XMonad/Config/Sjanssen.hs
View File

@ -11,7 +11,6 @@ import XMonad.Hooks.DynamicLog
import XMonad.Prompt import XMonad.Prompt
import XMonad.Prompt.Shell import XMonad.Prompt.Shell
import Data.Ratio
import Data.Bits import Data.Bits
import qualified Data.Map as M import qualified Data.Map as M
import Graphics.X11 import Graphics.X11
@ -20,23 +19,22 @@ sjanssenConfig :: XConfig
sjanssenConfig = defaultConfig sjanssenConfig = defaultConfig
{ defaultGaps = [(15,0,0,0)] { defaultGaps = [(15,0,0,0)]
, terminal = "urxvt" , terminal = "urxvt"
, workspaces = ["irc", "web"] ++ map show [3..7] ++ ["mail", "im"] , workspaces = ["irc", "web"] ++ map show [3 .. 7 :: Int] ++ ["mail", "im"]
, logHook = dynamicLogWithPP sjanssenPP , logHook = dynamicLogWithPP sjanssenPP
, modMask = mod4Mask , modMask = mod4Mask
, mouseBindings = \(XConfig {modMask = modMask}) -> M.fromList $ , mouseBindings = \(XConfig {modMask = modm}) -> M.fromList $
[ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w)) [ ((modm, button1), (\w -> focus w >> mouseMoveWindow w))
, ((modMask, button2), (\w -> focus w >> windows W.swapMaster)) , ((modm, button2), (\w -> focus w >> windows W.swapMaster))
, ((modMask .|. shiftMask, button1), (\w -> focus w >> mouseResizeWindow w)) ] , ((modm.|. shiftMask, button1), (\w -> focus w >> mouseResizeWindow w)) ]
, keys = \c -> mykeys c `M.union` keys defaultConfig c , keys = \c -> mykeys c `M.union` keys defaultConfig c
, layoutHook = Layout (smartBorders (tiled ||| Mirror tiled ||| Full ||| tabbed shrinkText defaultTConf)) , layoutHook = Layout (smartBorders (tiled ||| Mirror tiled ||| Full ||| tabbed shrinkText defaultTConf))
} }
where where
mykeys (XConfig {modMask = modMask}) = M.fromList $
[((modMask, xK_p ), shellPrompt myPromptConfig)]
-- default tiling algorithm partitions the screen into two panes
tiled = Tall 1 0.5 0.03 tiled = Tall 1 0.5 0.03
myPromptConfig = defaultXPConfig mykeys (XConfig {modMask = modm}) = M.fromList $
{ position = Top [((modm, xK_p ), shellPrompt myPromptConfig)]
, promptBorderWidth = 0
} myPromptConfig = defaultXPConfig
{ position = Top
, promptBorderWidth = 0 }

1
XMonad/Layout/Spiral.hs
View File

@ -24,7 +24,6 @@ module XMonad.Layout.Spiral (
) where ) where
import Graphics.X11.Xlib import Graphics.X11.Xlib
import XMonad.Operations
import Data.Ratio import Data.Ratio
import XMonad import XMonad
import XMonad.Layouts import XMonad.Layouts

2
XMonad/Prompt/Shell.hs
View File

@ -28,7 +28,7 @@ import Data.List
import System.Directory import System.Directory
import System.IO import System.IO
import XMonad.Util.Run import XMonad.Util.Run
import XMonad import XMonad hiding (config)
import XMonad.Prompt import XMonad.Prompt
-- $usage -- $usage