<commit_before>import XMonad
import Control.Monad (liftM2)
import XMonad.Config.Kde
import XMonad.Actions.CycleWS
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.ManageDocks
import XMonad.Layout.NoBorders
import XMonad.Layout.ResizableTile
import XMonad.Hooks.InsertPosition
import XMonad.Util.EZConfig (additionalKeys)
import qualified XMonad.StackSet as W

main = do
	xmonad $ kde4Config
		{
		  modMask = myModMask
		, terminal = myTerminal
		, focusFollowsMouse = True
		, workspaces = myWorkSpaces
		, manageHook = manageHook kde4Config <+> myManageHook
		, layoutHook = smartBorders . avoidStruts $ layoutHook kde4Config ||| ResizableTall 1 (5/100) (1/2) []
		} `additionalKeys` myAdditionalKeys

myModMask = mod4Mask
myTerminal = "gnome-terminal"

myManageHook = composeAll
	[
	className =? "banshee" --> doShift "=",
	className =? "Chromium" --> viewShift "2:web",
	className =? "dolphin" --> viewShift "3:files",
	className =? "Gnome-terminal" --> doF W.swapDown,
	manageDocks,
	isFullscreen --> doFullFloat
	]

viewShift = doF . liftM2 (.) W.greedyView W.shift

myWorkSpaces = ["1:default","2:web","3:files","4","5","6","7","8","9","0"] ++ (map snd myExtraWorkSpaces)
myExtraWorkSpaces = [(xK_0, "0"),(xK_minus, "-"),(xK_equal, "=")]
myAdditionalKeys =
	[-- Your other hotkeys
	((myModMask, xK_z), toggleWS),
	((myModMask, xK_c), moveTo Next NonEmptyWS),
	((myModMask, xK_x), moveTo Prev NonEmptyWS),
	((myModMask, xK_d), sendMessage MirrorShrink),
	((myModMask, xK_u), sendMessage MirrorExpand),
	((myModMask .|. shiftMask, xK_BackSpace), kill),
	((myModMask .|. shiftMask, xK_c), moveTo Next EmptyWS),
	((myModMask .|. shiftMask, xK_x), moveTo Prev EmptyWS),
	((myModMask .|. shiftMask, xK_l), shiftToNext >> nextWS),
	((myModMask .|. shiftMask, xK_h), shiftToPrev >> prevWS)
	] ++ [
		( (myModMask, xK_0), (windows $ W.greedyView ws))
		| (xk_0, ws) <- myExtraWorkSpaces
	] ++ [
		( (myModMask .|. shiftMask, xk_0), (windows $ W.shift ws))
		| (xk_0, ws) <- myExtraWorkSpaces
	] ++ [
		( (myModMask, xK_minus), (windows $ W.greedyView ws))
		| (xK_minus, ws) <- myExtraWorkSpaces
	] ++ [<commit_msg>Fixed the annoying KDE volume popup thing<commit_after>import XMonad
import Control.Monad (liftM2)
import XMonad.Config.Kde
import XMonad.Actions.CycleWS
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.ManageDocks
import XMonad.Layout.NoBorders
import XMonad.Layout.ResizableTile
import XMonad.Hooks.InsertPosition
import XMonad.Util.EZConfig (additionalKeys)
import qualified XMonad.StackSet as W

main = do
	xmonad $ kde4Config
		{
		  modMask = myModMask
		, terminal = myTerminal
		, focusFollowsMouse = True
		, workspaces = myWorkSpaces
		, manageHook = manageHook kde4Config <+> myManageHook
		, layoutHook = smartBorders . avoidStruts $ layoutHook kde4Config ||| ResizableTall 1 (5/100) (1/2) []
		} `additionalKeys` myAdditionalKeys

myModMask = mod4Mask
myTerminal = "gnome-terminal"

myManageHook = composeAll
	[
	className =? "banshee" --> doShift "=",
	className =? "Chromium" --> viewShift "2:web",
	className =? "dolphin" --> viewShift "3:files",
	className =? "Gnome-terminal" --> doF W.swapDown,
	className =? "plasmashell" --> doFloat, -- for KDE volume popup (and other stuff too)
	manageDocks,
	isFullscreen --> doFullFloat
	]

viewShift = doF . liftM2 (.) W.greedyView W.shift

myWorkSpaces = ["1:default","2:web","3:files","4","5","6","7","8","9","0"] ++ (map snd myExtraWorkSpaces)
myExtraWorkSpaces = [(xK_0, "0"),(xK_minus, "-"),(xK_equal, "=")]
myAdditionalKeys =
	[-- Your other hotkeys
	((myModMask, xK_z), toggleWS),
	((myModMask, xK_c), moveTo Next NonEmptyWS),
	((myModMask, xK_x), moveTo Prev NonEmptyWS),
	((myModMask, xK_d), sendMessage MirrorShrink),
	((myModMask, xK_u), sendMessage MirrorExpand),
	((myModMask .|. shiftMask, xK_BackSpace), kill),
	((myModMask .|. shiftMask, xK_c), moveTo Next EmptyWS),
	((myModMask .|. shiftMask, xK_x), moveTo Prev EmptyWS),
	((myModMask .|. shiftMask, xK_l), shiftToNext >> nextWS),
	((myModMask .|. shiftMask, xK_h), shiftToPrev >> prevWS)
	] ++ [
		( (myModMask, xK_0), (windows $ W.greedyView ws))
		| (xk_0, ws) <- myExtraWorkSpaces
	] ++ [
		( (myModMask .|. shiftMask, xk_0), (windows $ W.shift ws))
		| (xk_0, ws) <- myExtraWorkSpaces
	] ++ [
		( (myModMask, xK_minus), (windows $ W.greedyView ws))
		| (xK_minus, ws) <- myExtraWorkSpaces
	] ++ [
{'fraction_non_alphanumeric': 0.15904389795449322, 'fraction_numerical': 0.014249597793610664, 'mean_word_length': 4.818181818181818, 'pattern_counts': {'":': 0, '<': 11, '<?xml version=': 0, '>': 24, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5843780', 'n_tokens_mistral': 1789, 'n_tokens_neox': 1681, 'n_words': 353}