nixos-configs/modules/desktop/xmonad/xmonad.hs

import System.Exit
import Data.Maybe (Maybe, isNothing, fromJust)
import qualified Data.List as L
import qualified Data.Map as M
import GHC.IO.Handle
-- Xmonad Core
import XMonad
import qualified XMonad.StackSet as W
import XMonad.Config.Desktop
import XMonad.Config.Azerty

-- Layouts
import XMonad.Layout.LayoutModifier
import XMonad.Layout.Gaps
import XMonad.Layout.Spacing
import XMonad.Layout.MultiToggle
import XMonad.Layout.NoBorders
import XMonad.Layout.MultiToggle.Instances
import XMonad.Layout.ResizableTile
import XMonad.Layout.BinarySpacePartition
import XMonad.Layout.SimpleFloat
import XMonad.Layout.PerWorkspace (onWorkspace)
import XMonad.Layout.Minimize
import XMonad.Layout.Fullscreen 

-- Actions
import XMonad.Actions.Navigation2D
import XMonad.Actions.GridSelect
import XMonad.Actions.UpdatePointer
import XMonad.Actions.SpawnOn
import XMonad.Actions.CycleWS

-- Hooks
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.SetWMName
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks

-- Utils
import XMonad.Util.NamedScratchpad
import XMonad.Util.WorkspaceCompare
import XMonad.Util.Run
import XMonad.Util.EZConfig

myTerminal = "alacritty"
mySelectScreenshot = "scrot -s"
myScreenshot = "scrot"

myWorkspaces = ["1","2","3","4","5","6"] ++ map show [7..9]
myModMask = mod4Mask

myFocusFollowsMouse :: Bool
myFocusFollowsMouse = True

main = do
    xmonad $ ewmh . docks $ myConfig

myConfig = azertyConfig {
    terminal            = myTerminal,
    focusFollowsMouse   = True,
    borderWidth         = 1,
    modMask             = mod4Mask,
    workspaces          = myWorkspaces,
    normalBorderColor   = "#474646",
    focusedBorderColor  = "#83a598",
    layoutHook          = myLayout,
    manageHook          = manageDocks <+> (isFullscreen --> doFullFloat) <+> manageHook def,
    --handleEventHook     = myEventHook <+> handleEventHook def,
    logHook             =  logHook def,
    --keys                = \c -> mkKeymap c myAdditionalKeys,
    startupHook         = myStartupHook
} `removeKeysP` myRemoveKeys `additionalKeysP` myAdditionalKeys

myRemoveKeys = [
    ]

myAdditionalKeys = [
    ("M-q", kill),
    ("M-x", spawn "i3lock -e -f -c 000000 -i ~/.wallpaper.png"),
    ("M-S-h", sendMessage (IncMasterN 1)),
    ("M-S-l", sendMessage (IncMasterN (-1))),
    ("M-S-<Return>", windows W.swapMaster),
    ("M-d", spawn "rofi -show drun"),
    ("M-s", spawn "rofi -show ssh"),
    ("M-w", spawn "firefox"),
    ("M-i", spawn $ myTerminal ++ " -e htop"),
    ("M-e", spawn "emacsclient -c"),
    ("M-r", spawn $ myTerminal ++ " -e ranger"),
    ("M-y", spawn $ myTerminal ++ " -e calcurse"),
    ("M-v", spawn $ myTerminal ++ " -e ncmpcpp -s visualizer"),
    ("M-m", spawn $ myTerminal ++ " -e ncmpcpp"),
    ("M-n", spawn $ myTerminal ++ " -e newsboat"),
    ("M-c", spawn $ myTerminal ++ " -e weechat"),
    ("<Print>", spawn "scrot -e 'mv $f ~/Pictures/Screenshots'"),
    ("S-<Print>", spawn "~/.xmonad/scripts/screenshot.sh"),
    ("M-S-a", spawn $ myTerminal ++ " -e pulsemixer"),
    ("M-<Return>", spawn myTerminal),
    ("M-f", sendMessage $ Toggle FULL),
    -- Switch workspaces and screens
    --("M-<Right>", moveTo Next (WSIs hiddenNotNSP)),
    --("M-<Left>", moveTo Prev (WSIs hiddenNotNSP)),
    --("M-S-<Right>", shiftTo Next (WSIs hiddenNotNSP)),
    --("M-S-<Left>", shiftTo Prev (WSIs hiddenNotNSP)),
    ("M-<Down>", nextScreen),
    ("M-<Up>", prevScreen),
    ("M-S-<Down>", shiftNextScreen),
    ("M-S-<Up>", shiftPrevScreen),
    ("M-S-r", spawn "xmonad --recompile; xmonad --restart"),
    ("<XF86AudioLowerVolume>"        ,spawn "pulsemixer --change-volume -1"),
    ("<XF86AudioRaiseVolume>"        ,spawn "pulsemixer --change-volume +1"),
    ("<XF86AudioMute>"               ,spawn "pulsemixer --toggle-mute"),
    ("<XF86MonBrightnessDown>"       ,spawn "light -U 5"),
    ("<XF86MonBrightnessUp>"         ,spawn "light -A 5"),
    ("<XF86AudioPlay>"               ,spawn "mpc toggle"),
    ("M-p"                           ,spawn "mpc toggle"),
    ("<XF86AudioPrev>"               ,spawn "mpc prev"),
    ("<XF86AudioNext>"               ,spawn "mpc next"),
    ("<XF86Sleep>"                   ,spawn "systemctl suspend")
    ]

myLayout = smartSpacing 5
    $ smartBorders
        $ mkToggle (NOBORDERS ?? FULL ?? EOT)
        $ avoidStruts
        $ layoutHook def

myStartupHook = do
    setWMName "LG3D"
    return () >> checkKeymap myConfig myAdditionalKeys