aboutsummaryrefslogtreecommitdiff
path: root/.config/XMonad/lib/Hooks.hs
blob: 858737d67207a488920b624f030822f8fff4b30c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
module Hooks where

import XMonad

import XMonad.Layout.Spacing
import XMonad.Layout.WindowNavigation as WN
import XMonad.Layout.Maximize
import XMonad.Layout.NoBorders

import XMonad.Layout.BinarySpacePartition as BSP
import XMonad.Layout.Grid
import XMonad.Layout.Tabbed

import XMonad.Hooks.SetWMName
import XMonad.Hooks.ManageDocks

import XMonad.Util.SpawnOnce
import XMonad.Util.Cursor
import XMonad.Util.NamedScratchpad

import Defaults
import Scratchpads

myManageHook = namedScratchpadManageHook myScratchpads
  <+> manageDocks <+> composeAll [
    className =? "discord"     --> doShift ( myWorkspaces !! 9 )
    , className =? "vlc"       --> doShift ( myWorkspaces !! 6 )
  ]

myLayoutHook = avoidStruts $ maximize $ windowNavigation $ smartBorders $ myGap $ (
    emptyBSP ||| tabbed shrinkText myTabTheme ||| Grid
  )

myStartupHook = do
  spawnOnce "xmodmap /home/zt/.Xmodmap"
  spawnOnce "picom"
  spawnOnce "dunst"
  spawnOnce "polystart"
  spawnOnce "nitrogen --restore"
  spawnOnce "cbatticon"
  setWMName "LG3D"
  setDefaultCursor xC_left_ptr