Xmonad/Config archive/Brent Yorgey's darcs xmonad.hs
< Xmonad | Config archive
Jump to navigation
Jump to search
The printable version is no longer supported and may have rendering errors. Please update your browser bookmarks and please use the default browser print function instead.
My .xsession file:
gnome-power-manager gnome-volume-manager & xpmroot ~/images/maine-coast.png xmodmap -e 'clear Lock' export PATH=$PATH:/home/brent/local/bin export OOO_FORCE_DESKTOP=gnome export BROWSER=firefox eval `ssh-agent` xterm -e ssh-add $HOME/local/bin/xmonad
My current config file, which works with the latest development xmonad and xmonad-contrib (and probably with 0.10), annotated to show which extensions are being used where:
import XMonad -- (0) core xmonad libraries
import qualified XMonad.StackSet as W -- (0a) window stack manipulation
import qualified Data.Map as M -- (0b) map creation
import Data.List ((\\), find)
import Data.Maybe (isJust, catMaybes)
import Data.Monoid
import System.Posix.Unistd
import Control.Concurrent (threadDelay)
import XMonad.Layout.MagicFocus -- (0c)
-- Hooks -----------------------------------------------------
import XMonad.Hooks.DynamicLog -- (1) for dzen status bar
hiding (pprWindowSet)
import XMonad.Hooks.UrgencyHook -- (2) alert me when people use my nick
-- on IRC
import XMonad.Hooks.ManageDocks -- (3) automatically avoid covering my
-- status bar with windows
import XMonad.Hooks.ManageHelpers -- (4) for doCenterFloat, put floating
-- windows in the middle of the
-- screen
-- Layout ----------------------------------------------------
import XMonad.Layout.ResizableTile -- (5) resize non-master windows too
import XMonad.Layout.Grid -- (6) grid layout
import XMonad.Layout.TwoPane
import XMonad.Layout.Accordion
import XMonad.Layout.NoBorders -- (7) get rid of borders sometimes
-- (8) navigate between windows
import XMonad.Layout.WindowNavigation -- directionally
import XMonad.Layout.Named -- (9) rename some layouts
import XMonad.Layout.PerWorkspace -- (10) use different layouts on different WSs
import XMonad.Layout.WorkspaceDir -- (11) set working directory
-- per-workspace
import XMonad.Layout.Reflect -- (13) ability to reflect layouts
import XMonad.Layout.MultiToggle -- (14) apply layout modifiers dynamically
import XMonad.Layout.MultiToggle.Instances
-- (15) ability to magnify the focused
-- window
import qualified XMonad.Layout.Magnifier as Mag
import XMonad.Layout.Gaps -- (15a) add manual gaps around the sides
-- of the screen useful for things
-- like screencasts or projectors
-- which cut off part of the screen
import XMonad.Layout.Combo -- (15b) combine layouts
-- Actions ---------------------------------------------------
import XMonad.Actions.CycleWS -- (16) general workspace-switching
-- goodness
import XMonad.Actions.CycleRecentWS -- (17) cycle between workspaces
-- in most-recently-used order
import XMonad.Actions.Warp -- (18) warp the mouse pointer
import XMonad.Actions.Submap -- (19) create keybinding submaps
import XMonad.Actions.Search hiding (Query, images)
-- (20) some predefined web searches
-- import XMonad.Actions.WindowGo -- (21) runOrRaise
import XMonad.Actions.WithAll -- (22) do something with all windows on a workspace
import XMonad.Actions.SpawnOn -- (22a) start programs on a particular WS
import XMonad.Actions.TopicSpace -- (22b) set a "topic" for each workspace
import XMonad.Actions.DynamicWorkspaces
-- (22c)
import XMonad.Actions.DynamicWorkspaceGroups
-- (22d)
import qualified XMonad.Actions.DynamicWorkspaceOrder as DO
-- (22e)
import XMonad.Actions.FloatKeys -- (22f)
-- Prompts ---------------------------------------------------
import XMonad.Prompt -- (23) general prompt stuff.
import XMonad.Prompt.Man -- (24) man page prompt
import XMonad.Prompt.AppendFile -- (25) append stuff to my NOTES file
import XMonad.Prompt.Ssh -- (26) ssh prompt
import XMonad.Prompt.Input -- (26) generic input prompt, used for
-- making more generic search
-- prompts than those in
-- XMonad.Prompt.Search
import XMonad.Prompt.Workspace -- (27) prompt for a workspace
-- Utilities -------------------------------------------------
import XMonad.Util.Loggers -- (28) some extra loggers for my
-- status bar
import XMonad.Util.EZConfig -- (29) "M-C-x" style keybindings
import XMonad.Util.NamedScratchpad -- (30) 'scratchpad' terminal
import XMonad.Util.Run -- (31) for 'spawnPipe', 'hPutStrLn'
import Control.Monad (when)
-- (31)
main :: IO ()
main = do h <- spawnPipe "dzen2 -ta r -fg '#a8a3f7' -bg '#3f3c6d' -e 'onstart=lower'"
host <- getHost
checkTopicConfig (myTopicNames host) (myTopicConfig host) -- (22b)
xmonad $ byorgeyConfig h host -- (0)
data Host = Desktop | Laptop Bool -- ^ Does the laptop have a Windows key?
deriving (Eq, Read, Show)
getHost :: IO Host
getHost = do
hostName <- nodeName `fmap` getSystemID
return $ case hostName of
"archimedes" -> Laptop True
"euclid" -> Laptop False
"LVN513-12" -> Desktop
_ -> Desktop
myTerminal = "urxvt --perl-lib ~/.urxvt -fg lightgrey -bg black +sb"
myShell = "zsh"
byorgeyConfig h host = myUrgencyHook $ -- (2)
defaultConfig
{
borderWidth = 2
, terminal = myTerminal
, workspaces = myTopicNames host
, modMask = if host == Laptop False
then modMask defaultConfig
else mod4Mask
, normalBorderColor = "#dddddd"
, focusedBorderColor = "#0033ff"
-- (22)
, logHook = myDynamicLog h host
, manageHook = manageSpawn
<+> myManageHook
<+> manageHook defaultConfig
, layoutHook = myLayoutHook
, focusFollowsMouse = False
-- XXX fixme: comment! -- (29)
, startupHook = return () >>
checkKeymap (byorgeyConfig h host)
(myKeys h host)
-- (0c), and see below
, handleEventHook = followOnlyIf (queryFocused whenToFollow)
}
`additionalKeysP` (myKeys h host) -- (29)
checkWS :: (String -> Bool) -> String -> X ()
checkWS p w = do cw <- gets (W.currentTag . windowset)
when (not $ p cw) $ (windows $ W.greedyView w)
-- have urgent events flash a yellow dzen bar with black text
myUrgencyHook = withUrgencyHook dzenUrgencyHook -- (2)
{ args = ["-bg", "yellow", "-fg", "black"] }
data TopicItem = TI { topicName :: Topic -- (22b)
, topicDir :: Dir
, topicAction :: X ()
}
-- define some custom topics for use with the TopicSpace module.
myTopics :: Host -> [TopicItem]
myTopics host =
[ TI "web" "" (spawn "firefox")
, TI "irc" "" (ircAction host)
, TI "mail" "" (runInTerm "" "ssh en")
, ti "read" "papers"
, ti "write" "writing/blog/stream-comonad"
, TI "org" "notes"
(spawn "emacs --name org ~/notes/journal.org")
, TI "draw" "" (spawn "inkscape")
, TI "xm-conf" ".xmonad"
(edit "~/.xmonad/xmonad.hs" >>
shell)
, ti "xm-hack" "src/xmonad/XMonadContrib"
, TI "em-conf" "" (edit "~/.emacs")
, TI "music" "music" (spawn "rhythmbox")
, TI "net" "" (spawn "wicd-client -n" >>
shell)
, ti "conf" ""
, ti "misc" ""
, ti "500" "teaching/500/sf"
, ti "ref" "documents/reference"
, ti "play" ""
, TI "tex-conf" "texmf/tex" (edit "~/texmf/tex/brent.sty")
, ti "mlt" "writing/mlt"
, ti "MR" "writing/Monad.Reader/issues/Issue19"
, ti "mc" "teaching/mathcounts"
, ti "dia" "src/diagrams"
, ti "dia-doc" "src/diagrams/doc"
, ti "dia-core" "src/diagrams/core"
, ti "dia-lib" "src/diagrams/lib"
, ti "dia-cairo" "src/diagrams/cairo"
, ti "dia-contrib" "src/diagrams/contrib"
, ti "sp" "research/species/nsf11"
, ti "fc" "src/gparam/fc"
, ti "geb" "teaching/geb"
, ti "pweb" "documents/sites/upenn"
, ti "hask" "teaching/haskell"
, ti "anki" "local/lib/anki-1.2.8"
, ti "ghc" "src/ghc-new-tc"
, ti "CG" "documents/CG"
, ti "replib" "src/replib"
, ti "unbound" "src/replib/Unbound"
, TI "video" "video" (spawn "cinelerra")
, TI "aop" "learning/aop" (spawnShell host
>> spawn "emacs ~/learning/aop/aop.lhs")
, ti "tc" "writing/typeclassopedia"
, ti "noah" "documents/noah/schedule"
]
where
-- Make a default topic item that just spawns a shell.
ti t d = TI t d shell
shell = spawnShell host
ircAction :: Host -> X ()
ircAction host = case host of
Laptop _ -> runInTerm "" "ssh byorgey@eniac.seas.upenn.edu"
Desktop -> runInTerm "" "screen -dRR"
edit :: String -> X ()
edit = spawn . ("em "++)
myTopicNames :: Host -> [Topic]
myTopicNames = map topicName . myTopics
-- (22b)
myTopicConfig :: Host -> TopicConfig
myTopicConfig host = defaultTopicConfig
{ topicDirs = M.fromList $ map (\(TI n d _) -> (n,d)) myTopics'
, defaultTopicAction = const (return ())
, defaultTopic = "web"
, maxTopicHistory = 10
, topicActions = M.fromList $ map (\(TI n _ a) -> (n,a)) myTopics'
}
where myTopics' = myTopics host
spawnShell :: Host -> X ()
spawnShell host = currentTopicDir (myTopicConfig host) >>= spawnShellIn
spawnShellIn :: Dir -> X ()
spawnShellIn dir = spawn $ myTerminal ++ " -title urxvt -e sh -c 'cd ''" ++ dir ++ "'' && " ++ myShell ++ "'"
delay :: X ()
delay = io (threadDelay 0) -- I no longer remember what this is for
goto :: Host -> Topic -> X ()
goto host t = delay >> switchTopic' W.view (myTopicConfig host) t -- (22b)
promptedGoto :: Host -> X ()
promptedGoto = workspacePrompt myXPConfig . goto -- (27)
promptedGotoOtherScreen :: Host -> X ()
promptedGotoOtherScreen host =
workspacePrompt myXPConfig $ \ws -> do -- (27)
nextScreen
goto host ws
promptedShift :: X ()
promptedShift = workspacePrompt myXPConfig $ windows . W.shift -- (27)
-- XXX offset scratchpad windows by a bit --- each one different?
scratchpadSize = W.RationalRect (1/4) (1/4) (1/2) (1/2)
mySPFloat = customFloating scratchpadSize
customTerm = "urxvt-custom"
scratchpads =
[ NS "term" (customTerm ++ " -title term") (title =? "term") mySPFloat
, NS "term2" (customTerm ++ " -title term2") (title =? "term2") mySPFloat
, NS "ghci" (customTerm ++ " -e ghci") (title =? "ghci") mySPFloat
, NS "sync" (customTerm ++ " -e sy") (title =? "sy") mySPFloat
, NS "top" (customTerm ++ " -e htop") (title =? "htop") mySPFloat
]
myDynamicLog h host = dynamicLogWithPP $ byorgeyPP -- (1)
{ ppVisible = dzenColor "blue" "#a8a3f7" . pad
, ppExtras = [ date "%a %b %d %I:%M %p" -- (1,28)
, loadAvg -- (28)
]
++ (case host of Laptop _ -> [battery]
_ -> [])
, ppOrder = \(ws:l:t:exs) -> [t,l,ws]++exs -- (1)
, ppOutput = hPutStrLn h -- (1,31)
, ppTitle = shorten (case host of Laptop _ -> 45
Desktop -> 60)
, ppSort = fmap (namedScratchpadFilterOutWorkspace.) DO.getSortByOrder
, ppHiddenNoWindows = const ""
}
-- my custom keybindings.
myKeys h host = myKeymap host (byorgeyConfig h host)
myKeymap host conf =
-- mod-[1..], Switch to workspace N
-- mod-shift-[1..], Move client to workspace N
-- mod-ctrl-[1..], Switch to workspace N on other screen
[ (m ++ "M-" ++ [k], f i) -- (0)
| (i, k) <- zip (XMonad.workspaces conf) "1234567890-=[]\\" -- (0)
, (f, m) <- [ (goto', "") -- (0a)
, (windows . W.shift, "S-")
, (\ws -> nextScreen >> (goto' $ ws), "C-")
]
]
++
[ ("M-S-x", spawnShell host) -- (0)
, ("M-S-b", spawn "urxvt-big")
, ("M-g", promptedGoto host)
, ("M-C-g", promptedGotoOtherScreen host)
, ("M-S-g", promptedShift)
, ("M-S-C-g", workspacePrompt myXPConfig $ \ws -> -- (27)
withAll' (W.shiftWin ws) >> goto host ws) -- (22)
-- in conjunction with manageHook, open a small temporary
-- floating terminal
, ("M-a s", namedScratchpadAction scratchpads "term") -- (30)
, ("M-a d", namedScratchpadAction scratchpads "term2")
, ("M-a g", namedScratchpadAction scratchpads "ghci")
, ("M-a t", namedScratchpadAction scratchpads "top")
]
++
-- move floating windows with keybindings -- (22f)
[ ("M-a M-<" ++ dir ++ ">", withFocused (keysMoveWindow (dx,dy)))
| (dir,dx,dy) <- [ ("L", -20, 0)
, ("R", 20, 0)
, ("U", 0, -20)
, ("D", 0, 20) ]
]
-- sync using Unison in a new floating window, but only on my laptop
++ (case host of Laptop _ ->
[("M-a y", namedScratchpadAction scratchpads "sync")]
_ -> []
)
++
[ ("M-S-a", kill) -- (0)
, ("M-S-C-a", killAll) -- (22)
-- some gap-toggling
, ("M-C-p b", sendMessage $ ToggleStrut D) -- (3)
, ("M-C-p t", sendMessage $ ToggleStrut U) -- "
, ("M-C-p a", sendMessage $ ToggleStruts) -- "
, ("M-C-p g", sendMessage $ ToggleGaps) -- (15a)
]
++
[ ("M-C-p " ++ f ++ " <" ++ dk ++ ">", sendMessage $ m d) -- (15a)
| (dk, d) <- [("L",L), ("D",D), ("U",U), ("R",R)]
, (f, m) <- [("v", ToggleGap), ("h", IncGap 40), ("f", DecGap 10)]
]
++
-- rotate workspaces.
-- [ ("M-C-<R>", nextWS ) -- (16)
-- , ("M-C-<L>", prevWS ) -- "
[ ("M-C-<R>", DO.swapWith Next NonEmptyWS) -- (22e)
, ("M-C-<L>", DO.swapWith Prev NonEmptyWS) -- "
, ("M-S-<R>", DO.shiftTo Next HiddenNonEmptyWS) -- "
, ("M-S-<L>", DO.shiftTo Prev HiddenNonEmptyWS) -- "
, ("M-<R>", delay >> DO.moveTo Next HiddenNonEmptyWS) -- "
, ("M-<L>", delay >> DO.moveTo Prev HiddenNonEmptyWS) -- "
, ("M-f", newCodeWS) -- see below
-- expand/shrink windows
, ("M-r k", sendMessage MirrorExpand) -- (5)
, ("M-r j", sendMessage MirrorShrink) -- (5)
, ("M-r h", sendMessage Shrink) -- (0)
, ("M-r l", sendMessage Expand) -- (0)
-- switch to previous workspace
, ("M-z", delay >> toggleWS) -- (16)
-- cycle workspaces in most-recently-used order
-- see definition of custom cycleRecentWS' below, and also (17)
, ("M-S-<Tab>", cycleRecentWS' [xK_Super_L, xK_Shift_L] xK_Tab xK_grave)
-- close all windows on current workspace and move to next
, ("M-S-z", killAll >> DO.moveTo Prev HiddenNonEmptyWS) -- (22, 22e)
-- dynamic workspace bindings
, ("M-n", addWorkspacePrompt myXPConfig) -- (22c)
, ("M-S-n", renameWorkspace myXPConfig) -- "
, ("M-C-r", removeWorkspace) -- "
, ("M-C-S-r", killAll >> removeWorkspace) --
-- move between screens
, ("M-s", nextScreen)
, ("M-w", swapNextScreen)
, ("M-e", shiftNextScreen)
-- lock the screen with xscreensaver
, ("M-S-l", spawn "xscreensaver-command -lock") -- (0)
-- bainsh the pointer
, ("M-'", banishScreen LowerRight) -- (18)
, ("M-b", warpToWindow (1/2) (1/2))
-- some programs to start with keybindings.
, ("M-x f", spawnOn "web" "firefox") -- (22a)
, ("M-x o", spawnOn "web" "opera") -- "
, ("M-x g", spawnOn "draw" "gimp") -- "
, ("M-x m", spawn "rhythmbox") -- (0)
, ("M-x t", spawn "xclock -update 1") -- (0)
, ("M-x S-g", spawn "javaws ~/playing/go/cgoban.jnlp") -- (0)
, ("M-x n", goto' "org")
-- configuration.
, ("M-c x", goto' "xm-conf")
, ("M-c e", goto' "em-conf")
, ("M-c t", goto' "tex-conf")
] ++
(case host of Laptop _ -> [("M-c n", goto' "net")]
_ -> [])
++
[ ("M-c v", spawn "urxvt -e alsamixer") -- (0)
, ("M-c k", spawn "xkill")
, ("M-c M-S-a", killAll)
-- window navigation keybindings.
, ("C-<R>", sendMessage $ Go R) -- (8)
, ("C-<L>", sendMessage $ Go L) -- "
, ("C-<U>", sendMessage $ Go U) -- "
, ("C-<D>", sendMessage $ Go D) -- "
, ("S-C-<R>", sendMessage $ Swap R) -- "
, ("S-C-<L>", sendMessage $ Swap L) -- "
, ("S-C-<U>", sendMessage $ Swap U) -- "
, ("S-C-<D>", sendMessage $ Swap D) -- "
, ("S-M-C-<R>", sendMessage $ Move R)
, ("S-M-C-<L>", sendMessage $ Move L)
, ("S-M-C-<U>", sendMessage $ Move U)
, ("S-M-C-<D>", sendMessage $ Move D)
-- switch to urgent window
, ("M-u", focusUrgent)
-- toggles: fullscreen, flip x, flip y, mirror, no borders
, ("M-C-<Space>", sendMessage $ Toggle NBFULL) -- (14)
, ("M-C-x", sendMessage $ Toggle REFLECTX) -- (14,13)
, ("M-C-y", sendMessage $ Toggle REFLECTY) -- (14,13)
, ("M-C-m", sendMessage $ Toggle MIRROR) -- "
, ("M-C-b", sendMessage $ Toggle NOBORDERS) -- "
-- some prompts.
-- ability to change the working dir for a workspace.
, ("M-p d", changeDir myXPConfig) -- (11)
-- man page prompt
, ("M-p m", manPrompt myXPConfig) -- (24)
-- add single lines to my NOTES file from a prompt. -- (25)
, ("M-p n", appendFilePrompt myXPConfig "$HOME/NOTES")
-- shell prompt.
, ("M-p s", sshPrompt myXPConfig) -- (26)
, ("M-p e", spawn "exe=`echo | yeganesh -x` && eval \"exec $exe\"")
-- some searches.
, ("M-/", submap . mySearchMap $ myPromptSearch) -- (19,20)
, ("M-C-/", submap . mySearchMap $ mySelectSearch) -- (19,20)
-- some random utilities.
, ("M-C-c", spawn "dzen-cal") -- calendar
, ("<Print>", spawn "scrot")
, ("C-<Print>", spawn "sleep 0.2; scrot -s")
, ("M-y n", promptWSGroupAdd myXPConfig "Name this group: ") -- (22d)
, ("M-y g", promptWSGroupView myXPConfig "Go to group: ") -- (22d)
, ("M-y d", promptWSGroupForget myXPConfig "Forget group: ") -- (22d)
-- volume control.
, ("<XF86AudioMute>", spawn "amixer -q set Master toggle")
, ("<XF86AudioLowerVolume>", spawn "amixer -q set Master 5%- unmute")
, ("<XF86AudioRaiseVolume>", spawn "amixer -q set Master 5%+ unmute")
-- , ("<XF86Display>", spawn "sudo pm-suspend") -- this never worked very well
]
where goto' = goto host
-- Find the first empty workspace named "code<i>" for <i> some integer,
-- or create a new one
newCodeWS :: X ()
newCodeWS = withWindowSet $ \w -> do
let wss = W.workspaces w
cws = map W.tag $ filter (\ws -> "code" `isPrefixOf` W.tag ws && isJust (W.stack ws)) wss
num = head $ [0..] \\ catMaybes (map (readMaybe . drop 4) cws)
new = "code" ++ show num
when (not $ new `elem` (map W.tag wss)) $ addWorkspace new
windows $ W.view new
where readMaybe s = case reads s of
[(r,_)] -> Just r
_ -> Nothing
-- modified variant of cycleRecentWS from XMonad.Actions.CycleRecentWS (17)
-- which does not include visible but non-focused workspaces in the cycle
cycleRecentWS' = cycleWindowSets options
where options w = map (W.view `flip` w) (recentTags w)
recentTags w = map W.tag $ W.hidden w ++ [W.workspace (W.current w)]
-- Perform a search, using the given method, based on a keypress
mySearchMap method = M.fromList $ -- (0b)
[ ((0, xK_g), method google) -- (20)
, ((0, xK_w), method wikipedia) -- "
, ((0, xK_h), method hoogle) -- "
, ((shiftMask, xK_h), method hackage) -- "
, ((0, xK_s), method scholar) -- "
, ((0, xK_m), method mathworld) -- "
, ((0, xK_p), method maps) -- "
, ((0, xK_d), method dictionary) -- "
, ((0, xK_a), method alpha) -- "
, ((0, xK_l), method lucky) -- "
-- custom searches (see below)
, ((0, xK_i), method images)
, ((0, xK_k), method greek)
]
-- Search Perseus for ancient Greek dictionary entries
greek = searchEngine "greek" "http://www.perseus.tufts.edu/hopper/morph?la=greek&l="
-- for some strange reason the image search that comes with the Search module
-- is for google.fr
images = searchEngine "images" "http://www.google.com/search?hl=en&tbm=isch&q="
-- Prompt search: get input from the user via a prompt, then
-- run the search in firefox and automatically switch to the web
-- workspace
myPromptSearch (SearchEngine _ site)
= inputPrompt myXPConfig "Search" ?+ \s -> -- (27)
(search "firefox" site s >> viewWeb) -- (0,20)
-- Select search: do a search based on the X selection
mySelectSearch eng = selectSearch eng >> viewWeb -- (20)
-- Switch to the "web" workspace
viewWeb = windows (W.view "web") -- (0,0a)
-- some nice colors for the prompt windows to match the dzen status bar.
myXPConfig = defaultXPConfig -- (23)
{ fgColor = "#a8a3f7"
, bgColor = "#3f3c6d"
}
-- Set up a customized manageHook (rules for handling windows on
-- creation)
myManageHook :: ManageHook -- (0)
myManageHook = composeAll $
-- auto-float certain windows
[ className =? c --> doCenterFloat | c <- myFloats ] -- (4)
++
[ fmap (t `isPrefixOf`) title --> doFloat | t <- myFloatTitles ]
++
-- send certain windows to certain workspaces
[ className =? "Rhythmbox" --> doF (W.shift "music") -- (0,0a)
-- unmanage docks such as gnome-panel and dzen
, manageDocks -- (3)
-- manage the scratchpad terminal window
, namedScratchpadManageHook scratchpads -- (30)
, appName =? "xbuffy-main" --> doFloatAt 0.92 0.66
, appName =? "xbuffy-aux" --> doFloatAt 0.92 0.81
, appName =? "Caml graphics" --> doFloat
]
-- windows to auto-float
where myFloats = [ "Volume"
, "XClock"
, "Network-admin"
, "Xmessage"
, "gnome-search-tool"
, "Qjackctl.bin"
, "Icfp"
, "Floating"
, "Game"
, "Caml graphics"
]
myFloatTitles = ["Bridge Bid", "Pong", "Floating"]
-- specify a custom layout hook.
myLayoutHook =
-- automatically avoid overlapping my dzen status bar.
avoidStrutsOn [U] $ -- (3)
-- make manual gap adjustment possible.
gaps (zip [U,D,L,R] (repeat 0)) $
-- start all workspaces in my home directory, with the ability
-- to switch to a new working dir. -- (10,11)
workspaceDir "~" $
-- navigate directionally rather than with mod-j/k
configurableNavigation (navigateColor "#00aa00") $ -- (8)
-- ability to toggle between fullscreen, reflect x/y, no borders,
-- and mirrored.
mkToggle1 NBFULL $ -- (14)
mkToggle1 REFLECTX $ -- (14,13)
mkToggle1 REFLECTY $ -- (14,13)
mkToggle1 NOBORDERS $ -- "
mkToggle1 MIRROR $ -- "
-- borders automatically disappear for fullscreen windows.
smartBorders $ -- (7)
-- "web" and "irc" start in Full mode and can switch to tiled...
onWorkspaces ["web","irc"] (Full ||| myTiled) $ -- (10,0)
-- ...whereas all other workspaces start tall and can switch
-- to a grid layout with the focused window magnified.
myTiled ||| -- resizable tall layout
Mag.magnifier Grid ||| -- (15,6)
TwoPane (3/100) (1/2) |||
(named "Full|Acc" $ combineTwo myTiled Full Accordion) -- (15b)
-- use ResizableTall instead of Tall, but still call it "Tall".
myTiled = named "Tall" $ ResizableTall 1 0.03 0.5 [] -- (9,5)
findTag p = find p . map W.tag . W.workspaces
selectWorkspace' :: XPConfig -> X ()
selectWorkspace' conf = workspacePrompt conf $ \w ->
do s <- gets windowset
case findTag (w `isPrefixOf`) s of
Just w' -> windows $ W.greedyView w'
Nothing -> return ()
-- Improved version of followOnlyIf from MagicFocus
followOnlyIfQ :: Query Bool -> Event -> X All
followOnlyIfQ cond e@(CrossingEvent {ev_window = w, ev_event_type = t})
| t == enterNotify && ev_mode e == notifyNormal
= whenX (runQuery cond w) (focus w) >> return (All False)
followOnlyIfQ _ _ = return $ All True
-- Focus follows mouse only for Gimp windows
whenToFollow :: Query Bool
whenToFollow = (className =? "Gimp")
queryFocused :: Query Bool -> X Bool
queryFocused q = withWindowSet $ maybe (return False) (runQuery q) . W.peek