<commit_before>import XMonad
import XMonad.Config.Desktop
import XMonad.Config.Gnome
import XMonad.Util.EZConfig
import qualified XMonad.StackSet as W
import XMonad.Actions.CycleWS
import XMonad.ManageHook
import XMonad.Hooks.ManageDocks
import XMonad.Layout.ToggleLayouts
import XMonad.Hooks.DynamicLog
import XMonad.Actions.GridSelect
import XMonad.Layout.MouseResizableTile
import XMonad.Util.Themes
import XMonad.Layout.Tabbed
import XMonad.Layout.NoBorders

--For the log applet
--https://github.com/alexkay/xmonad-log-applet/blob/master/xmonad.hs
import XMonad.Hooks.DynamicLog

import qualified DBus as D
import qualified DBus.Client as D
import qualified Codec.Binary.UTF8.String as UTF8

main :: IO ()
main = do
  dbus <- D.connectSession
  getWellKnownName dbus
  xmonad $ gnomeConfig {
      modMask = mod4Mask    -- User Super instead of Alt
      , terminal = "terminator"
      , manageHook = manageHook defaultConfig <+> manageDocks <+> myManageHook
      , layoutHook = desktopLayoutModifiers $ smartBorders mouseResizableTile ||| smartBorders mouseResizableTileMirrored ||| smartBorders (tabbed shrinkText (theme kavonAutumnTheme))
      , logHook = dynamicLogWithPP(prettyPrinter dbus)
  }
    `additionalKeysP` myKeys
    `removeKeys` myRemoveKeys

myManageHook = composeAll [
    resource =? "tilda" --> doFloat
    , className =? "Guake.py" --> doFloat
    , resource =? "qjackctl.bin" --> doFloat
    , resource =? "stardict" --> doFloat
    , resource =? "Do" --> doFloat
    , className =? "Do" --> doFloat
    -- , isInProperty "_NET_WM_WINDOW_TYPE" "_NET_WM_WINDOW_TYPE_SPLASH" --> doFloat
    ]

gridSelectConfig = defaultGSConfig {
    gs_cellheight = 50
    , gs_cellwidth = 400
    , gs_originFractY = 0.4
    , gs_font = "xft:Ubuntu:size=18"
}

myKeys = [
    ("<F1>", spawn "terminator")
    , ("<F2>", spawn "firefox")
    , ("<F3>", spawn "xbmc")
    , ("M-f", sendMessage $ Toggle "Full")
    , ("M1-<Tab>", windows W.swapDown)
    , ("M1-S-<Tab>", windows W.swapUp)
    -- , ("M-<KP_1>", toggleOrView "1")
    , ("M-<Up>", sendMessage Shrink)
    , ("M-<Down>", sendMessage Expand)
    , ("M-<Left>", windows W.focusUp)
    , ("M-<Right>", windows W.focusDown)
    , ("M-h", sendMessage Shrink)
    , ("M-l", sendMessage Expand)<commit_msg>update xmonad setting for the VM usage<commit_after>import XMonad
import XMonad.Config.Desktop
import XMonad.Config.Gnome
import XMonad.Util.EZConfig
import qualified XMonad.StackSet as W
import XMonad.Actions.CycleWS
import XMonad.ManageHook
import XMonad.Hooks.ManageDocks
import XMonad.Layout.ToggleLayouts
import XMonad.Hooks.DynamicLog
import XMonad.Actions.GridSelect
import XMonad.Layout.MouseResizableTile
import XMonad.Util.Themes
import XMonad.Layout.Tabbed
import XMonad.Layout.NoBorders

--For the log applet
--https://github.com/alexkay/xmonad-log-applet/blob/master/xmonad.hs
import XMonad.Hooks.DynamicLog

import qualified DBus as D
import qualified DBus.Client as D
import qualified Codec.Binary.UTF8.String as UTF8

main :: IO ()
main = do
  dbus <- D.connectSession
  getWellKnownName dbus
  xmonad $ gnomeConfig {
      modMask = mod1Mask .|. mod4Mask    -- User Super instead of Alt
      , terminal = "terminator"
      , manageHook = manageHook defaultConfig <+> manageDocks <+> myManageHook
      , layoutHook = desktopLayoutModifiers $ smartBorders mouseResizableTile ||| smartBorders mouseResizableTileMirrored ||| smartBorders (tabbed shrinkText (theme kavonAutumnTheme))
      , logHook = dynamicLogWithPP(prettyPrinter dbus)
  }
    `additionalKeysP` myKeys
    `removeKeys` myRemoveKeys

myManageHook = composeAll [
    resource =? "tilda" --> doFloat
    , className =? "Guake.py" --> doFloat
    , resource =? "qjackctl.bin" --> doFloat
    , resource =? "stardict" --> doFloat
    , resource =? "Do" --> doFloat
    , className =? "Do" --> doFloat
    -- , isInProperty "_NET_WM_WINDOW_TYPE" "_NET_WM_WINDOW_TYPE_SPLASH" --> doFloat
    ]

gridSelectConfig = defaultGSConfig {
    gs_cellheight = 50
    , gs_cellwidth = 400
    , gs_originFractY = 0.4
    , gs_font = "xft:Ubuntu:size=18"
}

myKeys = [
    ("<F1>", spawn "terminator")
    , ("<F2>", spawn "gvim")
    -- , ("<F3>", spawn "xbmc")
    , ("M-f", sendMessage $ Toggle "Full")
    , ("M1-<Tab>", windows W.swapDown)
    , ("M1-S-<Tab>", windows W.swapUp)
    -- , ("M-<KP_1>", toggleOrView "1")
    , ("M-<Up>", sendMessage Shrink)
    , ("M-<Down>", sendMessage Expand)
    , ("M-<Left>", windows W.focusUp)
    , ("M-<Right>", windows W.focusDown)
    , ("M-h", sendMessage Shrink)
    , ("M-l", sendMessage Expand)
{'fraction_non_alphanumeric': 0.13311546840958605, 'fraction_numerical': 0.00849673202614379, 'mean_word_length': 3.675152749490835, 'pattern_counts': {'":': 0, '<': 29, '<?xml version=': 0, '>': 41, 'https://': 2, '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': '1741860', 'n_tokens_mistral': 1667, 'n_tokens_neox': 1612, 'n_words': 350}