130 lines
4.4 KiB
Haskell
130 lines
4.4 KiB
Haskell
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
|