.config/XMonad/xmonad.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

import System.IO

import XMonad

import XMonad.Hooks.ManageDocks
import XMonad.Hooks.EwmhDesktops
-- import XMonad.Hooks.StatusBar

import XMonad.Util.EZConfig
import XMonad.Util.Run

import Keybindings
--import QwertyKeybindings
import DvorakKeybindings
import Defaults
import Hooks

main :: IO ()
main = do
  -- myLemonbar  <- statusBarPipe myLemonbarCmd  (pure myLemonbarPP)
  -- myLemonbar' <- statusBarPipe myLemonbarCmd' (pure myLemonbarPP)
  -- xmonad $ withSB (myLemonbar <> myLemonbar') $ ewmhFullscreen $ docks def {
  xmonad $ ewmhFullscreen $ ewmh $ docks def {
    focusFollowsMouse    = True
    , terminal           = myTerminal
    , borderWidth        = myBorderWidth
    , modMask            = myModMask
    , workspaces         = myWorkspaceNames
    , normalBorderColor  = myBorder
    , focusedBorderColor = myBorder'
    , layoutHook         = myLayoutHook
    , startupHook        = myStartupHook
    , manageHook         = myManageHook
  } `additionalKeys`          myKeybindings
    `additionalKeysP`         (myKeybindingsP ++ myFnKeybindingsP)
    `additionalMouseBindings` myMouseKeybindings