<commit_before>--
-- XMonad Haskell Configuration File
--
-- Written August 2009 by <NAME>
--

import XMonad

import XMonad.Actions.FloatKeys
import XMonad.Actions.UpdatePointer
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.NoBorders
import XMonad.Layout.WorkspaceDir
import XMonad.Prompt
import XMonad.Prompt.Shell
import XMonad.Util.EZConfig
import Control.Monad(liftM2)
import qualified XMonad.StackSet as W

myTerminal = "urxvtc"

myManageHook = composeAll
		[ className			=? "Animate"			--> doCenterFloat
		, className			=? "MPlayer"			--> doFloat
		, className			=? "Xmessage"			--> doCenterFloat
		, title				=? "Firefox Preferences"	--> doFloat
		, className			=? "Zathura"			--> viewShift "8"
		, (isFullscreen							--> doFullFloat)
		]
		where viewShift = doF . liftM2 (.) W.greedyView W.shift

myLayoutHook = workspaceDir "~" tiled ||| Mirror tiled ||| Full
	where
		tiled				= Tall nmaster delta ratio
		nmaster				= 1
		ratio				= 1/2
		delta				= 3/100

myXPConfig = defaultXPConfig
		{ font				= "-*-profont-*-*-*-*-10-*-*-*-*-*-iso8859-*"
		, bgColor			= "#000000"
		, fgColor			= "#e5e5e5"
		, bgHLight			= "#000000"
		, fgHLight			= "#e5e5e5"
		, height			= 13
		, promptBorderWidth		= 0
		, position			= Bottom
		}

main = do
	xmonad $ defaultConfig
		{ manageHook			= manageDocks <+> myManageHook
		, layoutHook			= avoidStruts $ smartBorders $ myLayoutHook
		, logHook			= updatePointer (Relative 0.5 0.5)
		, borderWidth			= 1<commit_msg>Move xmobar startup here from xinitrc.<commit_after>--
-- XMonad Haskell Configuration File
--
-- Written August 2009 by <NAME>
--

import XMonad

import XMonad.Actions.FloatKeys
import XMonad.Actions.UpdatePointer
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.NoBorders
import XMonad.Layout.WorkspaceDir
import XMonad.Prompt
import XMonad.Prompt.Shell
import XMonad.Util.EZConfig
import Control.Monad(liftM2)
import qualified XMonad.StackSet as W

myTerminal = "urxvtc"

myManageHook = composeAll
		[ className			=? "Animate"			--> doCenterFloat
		, className			=? "MPlayer"			--> doFloat
		, className			=? "Xmessage"			--> doCenterFloat
		, title				=? "Firefox Preferences"	--> doFloat
		, className			=? "Zathura"			--> viewShift "8"
		, (isFullscreen							--> doFullFloat)
		]
		where viewShift = doF . liftM2 (.) W.greedyView W.shift

myLayoutHook = workspaceDir "~" tiled ||| Mirror tiled ||| Full
	where
		tiled				= Tall nmaster delta ratio
		nmaster				= 1
		ratio				= 1/2
		delta				= 3/100

myXPConfig = defaultXPConfig
		{ font				= "-*-profont-*-*-*-*-10-*-*-*-*-*-iso8859-*"
		, bgColor			= "#000000"
		, fgColor			= "#e5e5e5"
		, bgHLight			= "#000000"
		, fgHLight			= "#e5e5e5"
		, height			= 13
		, promptBorderWidth		= 0
		, position			= Bottom
		}

main = do
	spawn "$HOME/bin/xmobar.sh"
	xmonad $ defaultConfig
		{ manageHook			= manageDocks <+> myManageHook
		, layoutHook			= avoidStruts $ smartBorders $ myLayoutHook
		, logHook			= updatePointer (Relative 0.5 0.5)
		, borderWidth			= 1
{'fraction_non_alphanumeric': 0.12524525833878353, 'fraction_numerical': 0.030085022890778287, 'mean_word_length': 3.0841121495327104, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 19, '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': '553394', 'n_tokens_mistral': 1361, 'n_tokens_neox': 1164, 'n_words': 246}