aboutsummaryrefslogtreecommitdiff
path: root/.config/XMonad/lib/Hooks.hs
blob: b51f076f086ba7f29c4c09339616ff6a0dc02cdf (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
43
{-# LANGUAGE DeriveDataTypeable #-}
module Hooks where

import XMonad

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

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

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

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 )
    , isFullscreen -->  doFullFloat
  ]

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 "Anime Thighs"
  setDefaultCursor xC_left_ptr