.config/XMonad/lib/Hooks.hs


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

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 )
    , className =? "thunderbird" --> doShift ( myWorkspaces !! 8 )
    , className =? "KeePassXC"   --> doShift ( myWorkspaces !! 7 )
    , isFullscreen               --> doFullFloat
  ]

myLayoutHook = avoidStruts $ maximize $ windowNavigation $ lessBorders Screen $ myGap $
    emptyBSP ||| tabbed shrinkText myTabTheme ||| Grid

myStartupHook = do
  setWMName "LG3D"
  setDefaultCursor xC_left_ptr