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
78 lines
3.5 KiB
Haskell
78 lines
3.5 KiB
Haskell
{-# OPTIONS_GHC -fno-warn-missing-signatures #-}
|
|
-----------------------------------------------------------------------------
|
|
-- |
|
|
-- Module : XMonad.Config.Sjanssen
|
|
-- Description : Spencer Janssen's xmonad config.
|
|
--
|
|
------------------------------------------------------------------------
|
|
module XMonad.Config.Sjanssen {-# 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." #-} (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.Layout.NoBorders
|
|
import XMonad.Hooks.DynamicLog
|
|
import XMonad.Hooks.ManageDocks
|
|
import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat)
|
|
import XMonad.Hooks.EwmhDesktops
|
|
import XMonad.Prompt
|
|
import XMonad.Actions.SpawnOn
|
|
import XMonad.Util.SpawnOnce
|
|
|
|
import XMonad.Layout.LayoutScreens
|
|
import XMonad.Layout.TwoPane
|
|
|
|
import qualified Data.Map as M
|
|
|
|
sjanssenConfig =
|
|
docks $ ewmh $ def
|
|
{ terminal = "exec urxvt"
|
|
, workspaces = ["irc", "web"] ++ map show [3 .. 9 :: Int]
|
|
, 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 def c
|
|
, logHook = dynamicLogString sjanssenPP >>= xmonadPropLog
|
|
, layoutHook = modifiers layouts
|
|
, manageHook = composeAll [className =? x --> doShift w
|
|
| (x, w) <- [ ("Firefox", "web")
|
|
, ("Ktorrent", "7")
|
|
, ("Amarokapp", "7")]]
|
|
<+> manageHook def <+> manageSpawn
|
|
<+> (isFullscreen --> doFullFloat)
|
|
, startupHook = mapM_ spawnOnce spawns
|
|
}
|
|
where
|
|
tiled = HintedTile 1 0.03 0.5 TopLeft
|
|
layouts = (tiled Tall ||| (tiled Wide ||| Full)) ||| tabbed shrinkText myTheme
|
|
modifiers = avoidStruts . smartBorders
|
|
|
|
spawns = [ "xmobar"
|
|
, "xset -b", "xset s off", "xset dpms 0 600 1200"
|
|
, "nitrogen --set-tiled wallpaper/wallpaper.jpg"
|
|
, "trayer --transparent true --expand true --align right "
|
|
++ "--edge bottom --widthtype request" ]
|
|
|
|
mykeys XConfig{modMask = modm} = M.fromList
|
|
[((modm, xK_p ), shellPromptHere myPromptConfig)
|
|
,((modm .|. shiftMask, xK_Return), spawnHere =<< asks (terminal . config))
|
|
,((modm .|. shiftMask, xK_c ), kill1)
|
|
,((modm .|. shiftMask .|. controlMask, xK_c ), kill)
|
|
,((modm .|. shiftMask, xK_0 ), windows copyToAll)
|
|
,((modm, xK_z ), layoutScreens 2 $ TwoPane 0.5 0.5)
|
|
,((modm .|. shiftMask, xK_z ), rescreen)
|
|
, ((modm , xK_b ), sendMessage ToggleStruts)
|
|
]
|
|
|
|
myFont = "xft:Bitstream Vera Sans Mono:pixelsize=10"
|
|
myTheme = def { fontName = myFont }
|
|
myPromptConfig = def
|
|
{ position = Top
|
|
, font = myFont
|
|
, showCompletionOnTab = True
|
|
, historyFilter = deleteConsecutive
|
|
, promptBorderWidth = 0 }
|