mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-08-07 07:21:53 -07:00
041eb5dc18
WARNING: this patch may be breaking your configuration. While it is
still possible to use:
tabbed shrinkText defaultTConf
updating the fields of the defaultTConf record is not possible
anymore, since the type TConf is now hidden.
WARNING: "tabSize" has been substituted by "decoHeight"
You can change your configuration this way:
myTConf :: TConf
myTConf = defaultTConf
{ tabSize = 15
, etc....
becomes:
myTConf :: DeConfig TabbedDecoration Window
myTConf = defaultTabbedConfig
{ decoHeight = 15
, etc....
and
tabbed shrinkText myTConf
becomes:
tabDeco shrinkText myTConf
52 lines
2.1 KiB
Haskell
52 lines
2.1 KiB
Haskell
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
|
|
module XMonad.Config.Sjanssen (sjanssenConfig) where
|
|
|
|
import XMonad hiding (Tall(..))
|
|
import qualified XMonad.StackSet as W
|
|
import XMonad.Actions.CopyWindow
|
|
import XMonad.Layout.Tabbed
|
|
import XMonad.Layout.HintedTile
|
|
import XMonad.Config (defaultConfig)
|
|
import XMonad.Layout.NoBorders
|
|
import XMonad.Hooks.DynamicLog
|
|
import XMonad.Hooks.ManageDocks
|
|
import XMonad.Prompt
|
|
import XMonad.Prompt.Shell
|
|
import XMonad.Util.Run (spawnPipe)
|
|
|
|
import qualified Data.Map as M
|
|
import System.IO (hPutStrLn)
|
|
|
|
sjanssenConfig = do
|
|
xmobar <- spawnPipe "xmobar"
|
|
return $ defaultConfig
|
|
{ terminal = "urxvtc"
|
|
, workspaces = ["irc", "web"] ++ map show [3 .. 7 :: Int] ++ ["mail", "im"]
|
|
, logHook = dynamicLogWithPP $ sjanssenPP { ppOutput = hPutStrLn xmobar }
|
|
, modMask = mod4Mask
|
|
, mouseBindings = \(XConfig {modMask = modm}) -> M.fromList $
|
|
[ ((modm, button1), (\w -> focus w >> mouseMoveWindow w))
|
|
, ((modm, button2), (\w -> focus w >> windows W.swapMaster))
|
|
, ((modm.|. shiftMask, button1), (\w -> focus w >> mouseResizeWindow w)) ]
|
|
, keys = \c -> mykeys c `M.union` keys defaultConfig c
|
|
, layoutHook = avoidStruts $ smartBorders (tiled Tall ||| tiled Wide ||| Full ||| tabDeco shrinkText myTConf)
|
|
, manageHook = manageHook defaultConfig <+> manageDocks
|
|
}
|
|
where
|
|
tiled = HintedTile 1 0.03 0.5
|
|
|
|
mykeys (XConfig {modMask = modm, workspaces = ws}) = M.fromList $
|
|
[((modm, xK_p ), shellPrompt myPromptConfig)
|
|
,((modm .|. shiftMask, xK_c ), kill1)
|
|
,((modm .|. shiftMask .|. controlMask, xK_c ), kill)
|
|
,((modm .|. shiftMask, xK_0 ), windows $ \w -> foldr copy w ws)
|
|
,((modm, xK_b ), sendMessage ToggleStruts)
|
|
]
|
|
|
|
myFont = "xft:Bitstream Vera Sans Mono:pixelsize=10"
|
|
myTConf = defaultTabbedConfig { fontName = myFont }
|
|
myPromptConfig = defaultXPConfig
|
|
{ position = Top
|
|
, font = myFont
|
|
, promptBorderWidth = 0 }
|