Split into more modules

modules/desktop/xmonad/scripts/screenshot.sh

@@ -0,0 +1,3 @@
+#!/usr/bin/env bash
+
+sleep 0.2; scrot -s -e 'mv $f ~/Pictures/Screenshots'

modules/desktop/xmonad/xmonad.hs

@@ -0,0 +1,130 @@
+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

modules/desktop/xmonad/xmonad.nix

@@ -0,0 +1,60 @@
+{ options, config, lib, pkgs, ... }:
+
+with lib;
+with lib.my;
+
+let cfg = config.modules.desktop.xmonad;
+in {
+  options.modules.desktop.xmonad = { enable = mkBoolOpt false; };
+
+  config = mkIf cfg.enable {
+
+    modules.desktop.polybar.enable = true;
+
+    services.xserver = {
+      enable = true;
+      layout = "fr";
+      desktopManager.xterm.enable = false;
+      windowManager.xmonad.enable = true;
+      displayManager.lightdm = {
+        enable = true;
+        background = ../wallpaper.png;
+        greeters.mini = {
+          enable = true;
+          user = config.user.name;
+          extraConfig = ''
+            text-color = "#fbf1c7"
+            password-background-color = "#3c3836"
+            window-color = "#282828"
+            border-color = "#458588"
+          '';
+        };
+      };
+    };
+
+    home-manager.users.${config.user.name} = {
+      xsession = {
+        windowManager.xmonad = {
+          enable = true;
+          enableContribAndExtras = true;
+          config = ./xmonad.hs;
+        };
+      };
+
+      home = {
+        file.".xmonad/scripts" = {
+          source = ./scripts;
+          recursive = true;
+        };
+
+        packages = with pkgs.unstable; [
+          i3lock
+
+          feh
+          scrot
+        ];
+      };
+    };
+
+  };
+}