Difference between revisions of "Xmonad/Config archive/Josh Rickmar's xmonad.hs"
< Xmonad | Config archive
Jump to navigation
Jump to search
m (Fixed typo) |
(newer version) |
||
Line 10: | Line 10: | ||
− | <haskell> |
+ | <haskell> |
+ | import XMonad |
||
import XMonad.Actions.CopyWindow |
import XMonad.Actions.CopyWindow |
||
import XMonad.Hooks.DynamicLog |
import XMonad.Hooks.DynamicLog |
||
Line 44: | Line 45: | ||
myTerminal = "urxvt -e tmux -2 new-session" |
myTerminal = "urxvt -e tmux -2 new-session" |
||
myFocusFollowsMouse = True |
myFocusFollowsMouse = True |
||
− | myBorderWidth = 0 |
+ | myBorderWidth = 0 |
myWorkspaces = ["1:term", "2:web", "3:code"] ++ map show [4..8] ++ ["9:float"] |
myWorkspaces = ["1:term", "2:web", "3:code"] ++ map show [4..8] ++ ["9:float"] |
||
Line 52: | Line 53: | ||
swapUp' (W.Stack t (l:ls) rs) = W.Stack t ls (l:rs) |
swapUp' (W.Stack t (l:ls) rs) = W.Stack t ls (l:rs) |
||
swapUp' (W.Stack t [] rs) = W.Stack t (rot $ reverse rs) [] |
swapUp' (W.Stack t [] rs) = W.Stack t (rot $ reverse rs) [] |
||
− | where rot (x:xs) = xs ++ [x] |
+ | where rot (x:xs) = xs ++ [x] |
rot _ = [] |
rot _ = [] |
||
Line 67: | Line 68: | ||
partCurrent ws = first (snd . head) . partition ((W.currentTag ws ==) . fst) |
partCurrent ws = first (snd . head) . partition ((W.currentTag ws ==) . fst) |
||
− | hasCopies :: (Eq a) => ([a], [(i, [a])]) -> [i] |
+ | hasCopies :: (Eq a) => ([a], [(i, [a])]) -> [i] |
hasCopies (curs, oths) = map fst $ Prelude.filter (any (`elem` curs) . snd) $ oths |
hasCopies (curs, oths) = map fst $ Prelude.filter (any (`elem` curs) . snd) $ oths |
||
Line 120: | Line 121: | ||
-- Move focus to the master window |
-- Move focus to the master window |
||
− | , ((modm, |
+ | , ((modm, xK_h ), windows W.focusMaster ) |
-- Swap the focused window and the master window |
-- Swap the focused window and the master window |
||
Line 174: | Line 175: | ||
-- |
-- |
||
-- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3 |
-- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3 |
||
− | -- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3 |
||
-- |
-- |
||
--[((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f)) |
--[((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f)) |
||
Line 230: | Line 230: | ||
colorDarkGray = "#222222" |
colorDarkGray = "#222222" |
||
colorLightGray = "#aaaaaa" |
colorLightGray = "#aaaaaa" |
||
+ | colorLightBlue = "#0066ff" |
||
colorWhite = "#ffffff" |
colorWhite = "#ffffff" |
||
colorRed = "#ff0000" |
colorRed = "#ff0000" |
||
Line 246: | Line 247: | ||
-- |
-- |
||
myPP :: PP |
myPP :: PP |
||
− | myPP = dzenPP { ppCurrent = dzenColor |
+ | myPP = dzenPP { ppCurrent = dzenColor colorWhite colorLightBlue . activeDwmPad |
− | , ppHidden = dzenColor colorLightGray colorDarkGray . |
+ | , ppHidden = dzenColor colorLightGray colorDarkGray . activeDwmPad |
, ppHiddenNoWindows = const "" |
, ppHiddenNoWindows = const "" |
||
, ppSep = "|" |
, ppSep = "|" |
||
− | , ppLayout = dzenColor colorWhite colorDarkGray. |
+ | , ppLayout = dzenColor colorWhite colorDarkGray . |
(\ x -> case x of |
(\ x -> case x of |
||
"Maximize ResizableTall" -> " []= " |
"Maximize ResizableTall" -> " []= " |
||
Line 263: | Line 264: | ||
, ppTitle = dzenColor colorYellow colorDarkGray . pad |
, ppTitle = dzenColor colorYellow colorDarkGray . pad |
||
} |
} |
||
+ | where |
||
+ | activeDwmPad a = "^i(/usr/home/joshua/.xpms/active.xpm)" ++ a ++ " " |
||
------------------------------------------------------------------------ |
------------------------------------------------------------------------ |
||
Line 269: | Line 272: | ||
myLogHook h = do |
myLogHook h = do |
||
copies <- wsContainingCopies |
copies <- wsContainingCopies |
||
+ | currentWS <- gets $ peek . windowset |
||
− | let |
+ | let inactiveCheck ws | ws `elem` copies = dzenColor colorLightGray colorDarkGray . inactiveDwmCopiesPad $ ws |
− | | otherwise = |
+ | | otherwise = inactiveDwmPad ws |
⚫ | |||
+ | let activeCheck ws | currentWS /= Nothing = dzenColor colorWhite colorLightBlue $ activeDwmPad ws |
||
+ | | otherwise = dzenColor colorWhite colorLightBlue $ pad ws |
||
⚫ | |||
+ | where |
||
+ | activeDwmPad a = "^i(/usr/home/joshua/.xpms/active.xpm)" ++ a ++ " " |
||
+ | inactiveDwmPad a = "^i(/usr/home/joshua/.xpms/inactive.xpm)" ++ a ++ " " |
||
+ | inactiveDwmCopiesPad a = "^i(/usr/home/joshua/.xpms/inactiveCopies.xpm)" ++ a ++ " " |
||
+ | |||
------------------------------------------------------------------------ |
------------------------------------------------------------------------ |
||
Line 280: | Line 291: | ||
, bgColor = colorDarkGray |
, bgColor = colorDarkGray |
||
, fgColor = colorLightGray |
, fgColor = colorLightGray |
||
− | , bgHLight = |
+ | , bgHLight = colorLightBlue |
− | , fgHLight = |
+ | , fgHLight = colorWhite |
− | , borderColor = |
+ | , borderColor = colorLightBlue |
} |
} |
||
Line 289: | Line 300: | ||
-- |
-- |
||
myTabTheme :: Theme |
myTabTheme :: Theme |
||
− | myTabTheme = defaultTheme { fontName = barXFont |
+ | myTabTheme = defaultTheme { fontName = barXFont |
+ | , activeColor = colorLightBlue |
||
+ | , inactiveColor = colorDarkGray |
||
+ | , activeBorderColor = colorWhite |
||
+ | , inactiveBorderColor = colorLightBlue |
||
+ | , activeTextColor = colorWhite |
||
+ | , inactiveTextColor = colorLightGray |
||
+ | } |
||
------------------------------------------------------------------------ |
------------------------------------------------------------------------ |
||
Line 295: | Line 313: | ||
-- |
-- |
||
main = do |
main = do |
||
− | h <- spawnPipe statusBarCmd -- For the left side of the status bar |
+ | h <- spawnPipe statusBarCmd -- For the left side of the status bar (dzen) |
spawn "~/bin/dzenscript &" -- and the right side |
spawn "~/bin/dzenscript &" -- and the right side |
||
xmonad $ defaultConfig |
xmonad $ defaultConfig |
||
Line 306: | Line 324: | ||
, logHook = myLogHook h |
, logHook = myLogHook h |
||
, layoutHook = myLayouts |
, layoutHook = myLayouts |
||
− | } |
+ | }</haskell> |
− | </haskell> |
Revision as of 19:43, 21 July 2009
Some notes about the my keybindings:
- The qwerty hjkl keybindings have been moved to Colemak's neio (this is shifted one key over to the right, but makes sense since your hands are already on these keys).
- u and y are analogous to e and i for up and down, but for the ResizableTile layouts.
- Mod+k (qwerty n) is used to kill a window.
- Mod+m (same as qwerty) maximizes a window
- Mod+r (qwerty s) opens a prompt to run an application.
- Mod+q is the same as in defaultConfig.
- Mod+, and Mod+. are also the same.
import XMonad
import XMonad.Actions.CopyWindow
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Layout.Combo
import XMonad.Layout.Decoration
import XMonad.Layout.Maximize
import XMonad.Layout.ResizableTile
import XMonad.Layout.SimplestFloat
import XMonad.Layout.Tabbed
import XMonad.Layout.TwoPane
import XMonad.Layout.WindowNavigation
import XMonad.Prompt
import XMonad.Prompt.RunOrRaise
import XMonad.Prompt.Shell
import XMonad.StackSet
import XMonad.Util.Loggers
import XMonad.Util.Run
import Control.Arrow ((&&&),first)
import Data.List (partition)
import System.IO
import System.Exit
import qualified XMonad.StackSet as W hiding (swapDown, swapUp)
import qualified Data.Map as M
------------------------------------------------------------------------
-- Simple options.
--
myModMask = mod4Mask
myTerminal = "urxvt -e tmux -2 new-session"
myFocusFollowsMouse = True
myBorderWidth = 0
myWorkspaces = ["1:term", "2:web", "3:code"] ++ map show [4..8] ++ ["9:float"]
------------------------------------------------------------------------
-- Custom functions go here.
--
swapUp' (W.Stack t (l:ls) rs) = W.Stack t ls (l:rs)
swapUp' (W.Stack t [] rs) = W.Stack t (rot $ reverse rs) []
where rot (x:xs) = xs ++ [x]
rot _ = []
swapUp = W.modify' swapUp'
reverseStack (W.Stack t ls rs) = W.Stack t rs ls
swapDown = W.modify' (reverseStack . swapUp' . reverseStack)
taggedStacks :: [W.Workspace i l a] -> [(i, [a])]
taggedStacks = map $ W.tag &&& W.integrate' . W.stack
partCurrent :: (Eq a, Eq i) => W.StackSet i l a s sd -> [(i, [a])] -> ([a], [(i, [a])])
partCurrent ws = first (snd . head) . partition ((W.currentTag ws ==) . fst)
hasCopies :: (Eq a) => ([a], [(i, [a])]) -> [i]
hasCopies (curs, oths) = map fst $ Prelude.filter (any (`elem` curs) . snd) $ oths
wsContainingCopies :: X [WorkspaceId]
wsContainingCopies = withWindowSet $ \ws ->
return . hasCopies . partCurrent ws . taggedStacks $ W.workspaces ws
------------------------------------------------------------------------
-- Key bindings. Add, modify or remove key bindings here.
--
myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
-- launch a terminal
[ ((modm .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)
-- launch alpine in urxvt
, ((modm, xK_a ), spawn "urxvt -e alpine")
-- launch shell prompt menu
, ((modm, xK_r ), shellPrompt myXPConfig)
-- runOrRaisePrompt
, ((modm .|. shiftMask, xK_r ), runOrRaisePrompt myXPConfig)
-- close focused window
, ((modm .|. shiftMask, xK_k ), kill)
-- close coppied window
, ((modm, xK_k ), kill1)
-- Rotate forward through the available layout algorithms
, ((modm, xK_space ), sendMessage NextLayout)
-- TODO: add PrevLayout
-- Rotate backward through the available layout algorithms
--, ((modm .|. controlMask, xK_space ), sendMessage PrevLayout)
-- Reset the layouts on the current workspace to default
, ((modm .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf)
-- Resize viewed windows to the correct size
, ((modm .|. controlMask, xK_r ), refresh)
-- Move focus to the next window
, ((modm, xK_Tab ), windows W.focusDown)
-- Move focus to the next window
, ((modm, xK_e ), windows W.focusDown)
-- Move focus to the previous window
, ((modm, xK_i ), windows W.focusUp )
-- Move focus to the master window
, ((modm, xK_h ), windows W.focusMaster )
-- Swap the focused window and the master window
, ((modm, xK_Return), windows W.swapMaster)
-- Swap the focused window with the next window
, ((modm .|. shiftMask, xK_e ), windows Main.swapDown )
-- Swap the focused window with the previous window
, ((modm .|. shiftMask, xK_i ), windows Main.swapUp )
-- Shrink the master area
, ((modm, xK_n ), sendMessage Shrink)
-- Expand the master area
, ((modm, xK_o ), sendMessage Expand)
-- Push window back into tiling
, ((modm, xK_t ), withFocused $ windows . W.sink)
-- Increment the number of windows in the master area
, ((modm , xK_comma ), sendMessage (IncMasterN 1))
-- Deincrement the number of windows in the master area
, ((modm , xK_period), sendMessage (IncMasterN (-1)))
-- toggle the status bar gap
-- TODO, update this binding with avoidStruts
, ((modm , xK_b ), sendMessage ToggleStruts)
-- To maximize a window
, ((modm , xK_m ), withFocused $ sendMessage . maximizeRestore)
-- Quit xmonad
, ((modm .|. shiftMask, xK_q ), io (exitWith ExitSuccess))
-- Restart xmonad
, ((modm , xK_q ), restart "xmonad" True)
]
++
--
-- mod-[1..9], Switch to workspace N
-- mod-shift-[1..9], Move client to workspace N
-- mod-control-[1..9], Copy client to workspace N
--
[((m .|. modm, k), windows $ f i)
| (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
, (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask), (copy, controlMask)]
]
++
--
-- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3
--
--[((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
-- | (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
-- , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
-- ++
-- To make the combineTwo layout work
[ ((modm .|. controlMask .|. shiftMask, xK_o), sendMessage $ Move R)
, ((modm .|. controlMask .|. shiftMask, xK_n), sendMessage $ Move L)
, ((modm .|. controlMask .|. shiftMask, xK_i), sendMessage $ Move U)
, ((modm .|. controlMask .|. shiftMask, xK_e), sendMessage $ Move D)
]
++
-- For ResizableTall layout
[ ((modm, xK_u), sendMessage MirrorShrink)
, ((modm, xK_y), sendMessage MirrorExpand)
]
------------------------------------------------------------------------
-- Define all the possible layouts here.
--
myLayouts = avoidStruts ( tiled' ||| Mirror tiled' ||| myTabbed ||| Full ||| combo ||| simplestFloat ) ||| Full
where
-- The default number of windows in the master pane
nmaster = 1
-- Default proportion of screen occupied by master pane
ratio = 1/2
-- Percent of screen to increment by when resizing panes
delta = 3/100
-- Tabbed Layout
myTabbed = tabbed shrinkText myTabTheme
-- Shorthand for ResizableTall
tiled' = maximize $ ResizableTall nmaster delta ratio []
-- Combined layout
combo = windowNavigation ( combineTwo (TwoPane delta ratio) (myTabbed) (tiled') )
------------------------------------------------------------------------
-- Statusbar configuration.
--
statusBarCmd :: String
statusBarCmd = "dzen2" ++
" -bg '" ++ colorDarkGray ++ "'" ++
" -fg '" ++ colorLightGray ++ "'" ++
" -sa l" ++
" -fn '" ++ barXFont ++ "'" ++
" -ta l -e ''"
------------------------------------------------------------------------
-- Theme configuration.
--
colorBlack, colorDarkGray, colorLightGray, colorRed, colorCyan, colorWhite :: [Char]
colorBlack = "#000000"
colorDarkGray = "#222222"
colorLightGray = "#aaaaaa"
colorLightBlue = "#0066ff"
colorWhite = "#ffffff"
colorRed = "#ff0000"
colorCyan = "#00ffff"
colorMagenta = "#ff00fd"
colorBlue = "#003cfd"
colorGreen = "#00ff00"
colorYellow = "#fdfd00"
barFont, barXFont :: [Char]
barFont = "terminus"
barXFont = "-*-terminus-medium-r-*-*-12-*-*-*-*-*-*-*"
------------------------------------------------------------------------
-- My Own PP.
--
myPP :: PP
myPP = dzenPP { ppCurrent = dzenColor colorWhite colorLightBlue . activeDwmPad
, ppHidden = dzenColor colorLightGray colorDarkGray . activeDwmPad
, ppHiddenNoWindows = const ""
, ppSep = "|"
, ppLayout = dzenColor colorWhite colorDarkGray .
(\ x -> case x of
"Maximize ResizableTall" -> " []= "
"Mirror Maximize ResizableTall" -> " TTT "
"Tabbed Simplest" -> " [=] "
"Full" -> " [ ] "
"combining Tabbed Simplest and Maximize ResizableTall with TwoPane"
-> " []+ "
"SimplestFloat" -> " ><> "
_ -> pad x
)
, ppTitle = dzenColor colorYellow colorDarkGray . pad
}
where
activeDwmPad a = "^i(/usr/home/joshua/.xpms/active.xpm)" ++ a ++ " "
------------------------------------------------------------------------
-- My Own logHook
--
myLogHook h = do
copies <- wsContainingCopies
currentWS <- gets $ peek . windowset
let inactiveCheck ws | ws `elem` copies = dzenColor colorLightGray colorDarkGray . inactiveDwmCopiesPad $ ws
| otherwise = inactiveDwmPad ws
let activeCheck ws | currentWS /= Nothing = dzenColor colorWhite colorLightBlue $ activeDwmPad ws
| otherwise = dzenColor colorWhite colorLightBlue $ pad ws
dynamicLogWithPP $ myPP { ppHidden = inactiveCheck, ppCurrent = activeCheck, ppOutput = hPutStrLn h }
where
activeDwmPad a = "^i(/usr/home/joshua/.xpms/active.xpm)" ++ a ++ " "
inactiveDwmPad a = "^i(/usr/home/joshua/.xpms/inactive.xpm)" ++ a ++ " "
inactiveDwmCopiesPad a = "^i(/usr/home/joshua/.xpms/inactiveCopies.xpm)" ++ a ++ " "
------------------------------------------------------------------------
-- My Own XPConfig
--
myXPConfig :: XPConfig
myXPConfig = defaultXPConfig { font = barXFont
, bgColor = colorDarkGray
, fgColor = colorLightGray
, bgHLight = colorLightBlue
, fgHLight = colorWhite
, borderColor = colorLightBlue
}
------------------------------------------------------------------------
-- My Own Tab Theme
--
myTabTheme :: Theme
myTabTheme = defaultTheme { fontName = barXFont
, activeColor = colorLightBlue
, inactiveColor = colorDarkGray
, activeBorderColor = colorWhite
, inactiveBorderColor = colorLightBlue
, activeTextColor = colorWhite
, inactiveTextColor = colorLightGray
}
------------------------------------------------------------------------
-- main function.
--
main = do
h <- spawnPipe statusBarCmd -- For the left side of the status bar (dzen)
spawn "~/bin/dzenscript &" -- and the right side
xmonad $ defaultConfig
{ modMask = myModMask
, terminal = myTerminal
, borderWidth = myBorderWidth
, focusFollowsMouse = myFocusFollowsMouse
, XMonad.workspaces = myWorkspaces
, keys = myKeys
, logHook = myLogHook h
, layoutHook = myLayouts
}