src/Main.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
39

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Layout.Spacing
import XMonad.Actions.WindowNavigation
import XMonad.Util.CustomKeys
import System.Directory
import System.FilePath
import System.Process
import Internal.Layout
import XMonad.Hooks.ManageHelpers

import Internal.Keys

main = do
  -- Execute some commands.
  homeDir <- getHomeDirectory
  let fp = homeDir </> ".xmonad" </> "startup"

  config <-
    applyKeys $ def
       { terminal    = "st"
       , modMask     = mod4Mask
       , borderWidth = 0
       , keys = \config -> mempty
       , focusedBorderColor = "#FFFFFF"
       , normalBorderColor = "#000000"
       , layoutHook = spacingRaw True (Border 5 5 5 5) True (Border 5 5 5 5) True $
                      myLayout
       , startupHook = do
           spawn fp
       , manageHook = composeAll [
           isFullscreen --> doFloat
         , className =? "Tilda" --> doFloat
         , className =? "MPlayer" --> doFloat
         , className =? "mpv" --> doFloat
         ]
       }

  xmonad =<< xmobar config { modMask = mod4Mask }