<commit_before>import Graphics.X11.ExtraTypes.XF86
import System.IO
import XMonad
import XMonad.Core
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig

myKeys =
  [
    (("M4-l"), spawn "slock"),
    (("<XF86AudioPlay>"), spawn "dbus-send --print-reply --dest=org.mpris.MediaPlayer2.spotify /org/mpris/MediaPlayer2 org.mpris.MediaPlayer2.Player.PlayPause"),
    (("<XF86AudioPrev>"), spawn "dbus-send --print-reply --dest=org.mpris.MediaPlayer2.spotify /org/mpris/MediaPlayer2 org.mpris.MediaPlayer2.Player.Previous"),
    (("<XF86Back>"), spawn "dbus-send --print-reply --dest=org.mpris.MediaPlayer2.spotify /org/mpris/MediaPlayer2 org.mpris.MediaPlayer2.Player.Previous"),
    (("<XF86AudioNext>"), spawn "dbus-send --print-reply --dest=org.mpris.MediaPlayer2.spotify /org/mpris/MediaPlayer2 org.mpris.MediaPlayer2.Player.Next"),
    (("<XF86Forward>"), spawn "dbus-send --print-reply --dest=org.mpris.MediaPlayer2.spotify /org/mpris/MediaPlayer2 org.mpris.MediaPlayer2.Player.Next"),
    (("<XF86AudioLowerVolume>"), spawn "pactl set-sink-volume @DEFAULT_SINK@ -3%"),
    (("<XF86AudioRaiseVolume>"), spawn "pactl set-sink-volume @DEFAULT_SINK@ +3%"),
    (("<XF86AudioMute>"), spawn "amixer -D pulse set Master toggle"),
    (("<XF86MonBrightnessUp>"), spawn "brightness -i"),
    (("<XF86MonBrightnessDown>"), spawn "brightness -d"),
    (("M4-p"), spawn "change-mon -f")
  ]

main = do
  xmproc <- spawnPipe "/home/hatchan/bin/xmobar"
  xmonad $ ewmh defaultConfig
    { startupHook = spawn "xset r rate 300 30"
    , manageHook = manageDocks <+> manageHook defaultConfig
    , layoutHook = avoidStruts  $  layoutHook defaultConfig
    , logHook = dynamicLogWithPP xmobarPP
        { ppOutput = hPutStrLn xmproc
        , ppTitle = xmobarColor "green" "" . shorten 50
        }
    , handleEventHook = mconcat 
                      [ docksEventHook
                      , handleEventHook defaultConfig <+> fullscreenEventHook]
    }
    `additionalKeysP` myKeys<commit_msg>Show more characters in title bar<commit_after>import Graphics.X11.ExtraTypes.XF86
import System.IO
import XMonad
import XMonad.Core
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import XMonad.Util.EZConfig

myKeys =
  [
    (("M4-l"), spawn "slock"),
    (("<XF86AudioPlay>"), spawn "dbus-send --print-reply --dest=org.mpris.MediaPlayer2.spotify /org/mpris/MediaPlayer2 org.mpris.MediaPlayer2.Player.PlayPause"),
    (("<XF86AudioPrev>"), spawn "dbus-send --print-reply --dest=org.mpris.MediaPlayer2.spotify /org/mpris/MediaPlayer2 org.mpris.MediaPlayer2.Player.Previous"),
    (("<XF86Back>"), spawn "dbus-send --print-reply --dest=org.mpris.MediaPlayer2.spotify /org/mpris/MediaPlayer2 org.mpris.MediaPlayer2.Player.Previous"),
    (("<XF86AudioNext>"), spawn "dbus-send --print-reply --dest=org.mpris.MediaPlayer2.spotify /org/mpris/MediaPlayer2 org.mpris.MediaPlayer2.Player.Next"),
    (("<XF86Forward>"), spawn "dbus-send --print-reply --dest=org.mpris.MediaPlayer2.spotify /org/mpris/MediaPlayer2 org.mpris.MediaPlayer2.Player.Next"),
    (("<XF86AudioLowerVolume>"), spawn "pactl set-sink-volume @DEFAULT_SINK@ -3%"),
    (("<XF86AudioRaiseVolume>"), spawn "pactl set-sink-volume @DEFAULT_SINK@ +3%"),
    (("<XF86AudioMute>"), spawn "amixer -D pulse set Master toggle"),
    (("<XF86MonBrightnessUp>"), spawn "brightness -i"),
    (("<XF86MonBrightnessDown>"), spawn "brightness -d"),
    (("M4-p"), spawn "change-mon -f")
  ]

main = do
  xmproc <- spawnPipe "/home/hatchan/bin/xmobar"
  xmonad $ ewmh defaultConfig
    { startupHook = spawn "xset r rate 300 30"
    , manageHook = manageDocks <+> manageHook defaultConfig
    , layoutHook = avoidStruts  $  layoutHook defaultConfig
    , logHook = dynamicLogWithPP xmobarPP
        { ppOutput = hPutStrLn xmproc
        , ppTitle = xmobarColor "green" "" . shorten 200
        }
    , handleEventHook = mconcat 
                      [ docksEventHook
                      , handleEventHook defaultConfig <+> fullscreenEventHook]
    }
    `additionalKeysP` myKeys
{'fraction_non_alphanumeric': 0.1481305072636342, 'fraction_numerical': 0.024053346034770183, 'mean_word_length': 3.861111111111111, 'pattern_counts': {'":': 0, '<': 29, '<?xml version=': 0, '>': 27, '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': '4286652', 'n_tokens_mistral': 1569, 'n_tokens_neox': 1511, 'n_words': 266}