mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 03:20:21 -07:00
478393fb7d
Now that the user configs are on the website, it is time to deprecate them. At the same time deprecated X.C.Monad, which hasn't been updated since 2008 and X.C.Prime, which has confused users quite recently, thinking it to be a better starting place. Fixes: https://github.com/xmonad/xmonad-contrib/issues/677 Fixes: https://github.com/xmonad/xmonad-contrib/issues/595 Related: https://github.com/xmonad/xmonad-web/pull/49
216 lines
9.6 KiB
Haskell
216 lines
9.6 KiB
Haskell
{-# LANGUAGE FlexibleContexts #-}
|
|
{-# OPTIONS -fno-warn-missing-signatures #-}
|
|
----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonad.Config.Bluetile
|
|
-- Description : Default configuration of [Bluetile](http://projects.haskell.org/bluetile/).
|
|
-- Copyright : (c) Jan Vornberger 2009
|
|
-- License : BSD3-style (see LICENSE)
|
|
--
|
|
-- Maintainer : jan.vornberger@informatik.uni-oldenburg.de
|
|
-- Stability : unstable
|
|
-- Portability : not portable
|
|
--
|
|
-- This is the default configuration of Bluetile
|
|
-- (<http://projects.haskell.org/bluetile/>). If you
|
|
-- are migrating from Bluetile to xmonad or want to create
|
|
-- a similar setup, then this will give you pretty much
|
|
-- the same thing, except for Bluetile's helper applications
|
|
-- such as the dock.
|
|
--
|
|
-----------------------------------------------------------------------------
|
|
|
|
module XMonad.Config.Bluetile {-# DEPRECATED "This module contains a personal configuration, to be removed from xmonad-contrib. If you use this module, please copy the relevant parts to your configuration or obtain a copy of it on https://xmonad.org/configurations.html and include it as a local module." #-} (
|
|
-- * Usage
|
|
-- $usage
|
|
bluetileConfig
|
|
) where
|
|
|
|
import XMonad
|
|
|
|
import XMonad.Layout.BorderResize
|
|
import XMonad.Layout.BoringWindows
|
|
import XMonad.Layout.ButtonDecoration
|
|
import XMonad.Layout.Decoration
|
|
import XMonad.Layout.DecorationAddons
|
|
import XMonad.Layout.DraggingVisualizer
|
|
import XMonad.Layout.Maximize
|
|
import XMonad.Layout.Minimize
|
|
import XMonad.Layout.MouseResizableTile
|
|
import XMonad.Layout.Named
|
|
import XMonad.Layout.NoBorders
|
|
import XMonad.Layout.PositionStoreFloat
|
|
import XMonad.Layout.WindowSwitcherDecoration
|
|
|
|
import XMonad.Actions.BluetileCommands
|
|
import XMonad.Actions.CycleWS
|
|
import XMonad.Actions.Minimize
|
|
import XMonad.Actions.WindowMenu
|
|
|
|
import XMonad.Hooks.CurrentWorkspaceOnTop
|
|
import XMonad.Hooks.EwmhDesktops
|
|
import XMonad.Hooks.ManageDocks
|
|
import XMonad.Hooks.ManageHelpers
|
|
import XMonad.Hooks.PositionStoreHooks
|
|
import XMonad.Hooks.Minimize
|
|
import XMonad.Hooks.ServerMode
|
|
import XMonad.Hooks.WorkspaceByPos
|
|
|
|
import XMonad.Config.Gnome
|
|
|
|
import qualified XMonad.StackSet as W
|
|
import qualified Data.Map as M
|
|
|
|
import System.Exit
|
|
import XMonad.Prelude(when)
|
|
|
|
-- $usage
|
|
-- To use this module, start with the following @~\/.xmonad\/xmonad.hs@:
|
|
--
|
|
-- > import XMonad
|
|
-- > import XMonad.Config.Bluetile
|
|
-- > import XMonad.Util.Replace
|
|
-- >
|
|
-- > main = replace >> xmonad bluetileConfig
|
|
--
|
|
-- The invocation of 'replace' will replace a currently running
|
|
-- window manager. This is the default behaviour of Bluetile as well.
|
|
-- See "XMonad.Util.Replace" for more information.
|
|
|
|
bluetileWorkspaces :: [String]
|
|
bluetileWorkspaces = ["1","2","3","4","5","6","7","8","9","0"]
|
|
|
|
bluetileKeys :: XConfig Layout -> M.Map (KeyMask, KeySym) (X ())
|
|
bluetileKeys conf@XConfig{XMonad.modMask = modMask'} = M.fromList $
|
|
-- launching and killing programs
|
|
[ ((modMask' , xK_Return), spawn $ XMonad.terminal conf) -- %! Launch terminal
|
|
, ((modMask', xK_p ), gnomeRun) -- %! Launch Gnome "Run application" dialog
|
|
, ((modMask' .|. shiftMask, xK_c ), kill) -- %! Close the focused window
|
|
|
|
, ((modMask', xK_F5 ), refresh) -- %! Resize viewed windows to the correct size
|
|
, ((modMask' .|. shiftMask, xK_F5 ), setLayout $ XMonad.layoutHook conf) -- %! Reset the layouts on the current workspace to default
|
|
|
|
, ((modMask', xK_o ), windowMenu)
|
|
|
|
-- move focus up or down the window stack
|
|
, ((modMask', xK_Tab ), focusDown) -- %! Move focus to the next window
|
|
, ((modMask' .|. shiftMask, xK_Tab ), focusUp) -- %! Move focus to the previous window
|
|
, ((modMask', xK_j ), focusDown) -- %! Move focus to the next window
|
|
, ((modMask', xK_k ), focusUp) -- %! Move focus to the previous window
|
|
, ((modMask', xK_space ), focusMaster) -- %! Move focus to the master window
|
|
|
|
-- modifying the window order
|
|
, ((modMask' .|. shiftMask, xK_space ), windows W.swapMaster) -- %! Swap the focused window and the master window
|
|
, ((modMask' .|. shiftMask, xK_j ), windows W.swapDown ) -- %! Swap the focused window with the next window
|
|
, ((modMask' .|. shiftMask, xK_k ), windows W.swapUp ) -- %! Swap the focused window with the previous window
|
|
|
|
-- resizing the master/slave ratio
|
|
, ((modMask', xK_h ), sendMessage Shrink) -- %! Shrink the master area
|
|
, ((modMask', xK_l ), sendMessage Expand) -- %! Expand the master area
|
|
, ((modMask', xK_u ), sendMessage ShrinkSlave) -- %! Shrink a slave area
|
|
, ((modMask', xK_i ), sendMessage ExpandSlave) -- %! Expand a slave area
|
|
|
|
-- floating layer support
|
|
, ((modMask', xK_t ), withFocused $ windows . W.sink) -- %! Push window back into tiling
|
|
, ((modMask' .|. shiftMask, xK_t ), withFocused float ) -- %! Float window
|
|
|
|
-- increase or decrease number of windows in the master area
|
|
, ((modMask' , xK_comma ), sendMessage (IncMasterN 1)) -- %! Increment the number of windows in the master area
|
|
, ((modMask' , xK_period), sendMessage (IncMasterN (-1))) -- %! Deincrement the number of windows in the master area
|
|
|
|
-- quit, or restart
|
|
, ((modMask' .|. shiftMask, xK_q ), io exitSuccess) -- %! Quit
|
|
, ((modMask' , xK_q ), restart "xmonad" True) -- %! Restart
|
|
|
|
-- Metacity-like workspace switching
|
|
, ((mod1Mask .|. controlMask, xK_Left), prevWS)
|
|
, ((mod1Mask .|. controlMask, xK_Right), nextWS)
|
|
, ((mod1Mask .|. controlMask .|. shiftMask, xK_Left), shiftToPrev >> prevWS)
|
|
, ((mod1Mask .|. controlMask .|. shiftMask, xK_Right), shiftToNext >> nextWS)
|
|
|
|
-- more Metacity keys
|
|
, ((mod1Mask , xK_F2), gnomeRun)
|
|
, ((mod1Mask , xK_F4), kill)
|
|
|
|
-- Switching to layouts
|
|
, ((modMask' , xK_a), sendMessage $ JumpToLayout "Floating")
|
|
, ((modMask' , xK_s), sendMessage $ JumpToLayout "Tiled1")
|
|
, ((modMask' , xK_d), sendMessage $ JumpToLayout "Tiled2")
|
|
, ((modMask' , xK_f), sendMessage $ JumpToLayout "Fullscreen")
|
|
|
|
-- Maximizing
|
|
, ((modMask' , xK_z), withFocused (sendMessage . maximizeRestore))
|
|
|
|
-- Minimizing
|
|
, ((modMask', xK_m ), withFocused minimizeWindow)
|
|
, ((modMask' .|. shiftMask, xK_m ), withLastMinimized maximizeWindow)
|
|
]
|
|
++
|
|
-- mod-[1..9] ++ [0] %! Switch to workspace N
|
|
-- mod-shift-[1..9] ++ [0] %! Move client to workspace N
|
|
[((m .|. modMask', k), windows $ f i)
|
|
| (i, k) <- zip (XMonad.workspaces conf) ([xK_1 .. xK_9] ++ [xK_0])
|
|
, (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
|
|
++
|
|
-- 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 .|. modMask', 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)]]
|
|
|
|
bluetileMouseBindings :: XConfig Layout -> M.Map (KeyMask, Button) (Window -> X ())
|
|
bluetileMouseBindings XConfig{XMonad.modMask = modMask'} = M.fromList
|
|
-- mod-button1 %! Move a floated window by dragging
|
|
[ ((modMask', button1), \w -> isFloating w >>= \isF -> when isF $
|
|
focus w >> mouseMoveWindow w >> windows W.shiftMaster)
|
|
-- mod-button2 %! Switch to next and first layout
|
|
, ((modMask', button2), \_ -> sendMessage NextLayout)
|
|
, ((modMask' .|. shiftMask, button2), \_ -> sendMessage $ JumpToLayout "Floating")
|
|
-- mod-button3 %! Resize a floated window by dragging
|
|
, ((modMask', button3), \w -> isFloating w >>= \isF -> when isF $
|
|
focus w >> mouseResizeWindow w >> windows W.shiftMaster)
|
|
]
|
|
|
|
isFloating :: Window -> X Bool
|
|
isFloating w = do
|
|
ws <- gets windowset
|
|
return $ M.member w (W.floating ws)
|
|
|
|
bluetileManageHook :: ManageHook
|
|
bluetileManageHook = composeAll
|
|
[ workspaceByPos, positionStoreManageHook (Just defaultThemeWithButtons)
|
|
, className =? "MPlayer" --> doFloat
|
|
, isFullscreen --> doFullFloat]
|
|
|
|
bluetileLayoutHook = avoidStruts $ minimize $ boringWindows $
|
|
named "Floating" floating |||
|
|
named "Tiled1" tiled1 |||
|
|
named "Tiled2" tiled2 |||
|
|
named "Fullscreen" fullscreen
|
|
where
|
|
floating = floatingDeco $ maximize $ borderResize positionStoreFloat
|
|
tiled1 = tilingDeco $ maximize mouseResizableTileMirrored
|
|
tiled2 = tilingDeco $ maximize mouseResizableTile
|
|
fullscreen = tilingDeco $ maximize $ smartBorders Full
|
|
|
|
tilingDeco l = windowSwitcherDecorationWithButtons shrinkText defaultThemeWithButtons (draggingVisualizer l)
|
|
floatingDeco = buttonDeco shrinkText defaultThemeWithButtons
|
|
|
|
bluetileConfig =
|
|
docks . ewmhFullscreen . ewmh $
|
|
def
|
|
{ modMask = mod4Mask, -- logo key
|
|
manageHook = bluetileManageHook,
|
|
layoutHook = bluetileLayoutHook,
|
|
logHook = currentWorkspaceOnTop,
|
|
handleEventHook = minimizeEventHook
|
|
`mappend` serverModeEventHook' bluetileCommands
|
|
`mappend` positionStoreEventHook,
|
|
workspaces = bluetileWorkspaces,
|
|
keys = bluetileKeys,
|
|
mouseBindings = bluetileMouseBindings,
|
|
focusFollowsMouse = False,
|
|
focusedBorderColor = "#000000",
|
|
terminal = "gnome-terminal"
|
|
}
|