xmonad/xmonad.hs

import XMonad hiding ( (|||) )
import XMonad.Layout.LayoutCombinators (JumpToLayout(..), (|||))
import XMonad.Config.Desktop
import Data.Monoid
import System.Exit
import qualified XMonad.StackSet as W
import qualified Data.Map        as M

-- system
import System.IO (hPutStrLn)

-- util
import XMonad.Util.Run (safeSpawn, unsafeSpawn, runInTerm, spawnPipe)
import XMonad.Util.SpawnOnce
import XMonad.Util.EZConfig (additionalKeysP, additionalMouseBindings)

-- hooks
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks (avoidStruts, docksStartupHook, manageDocks, ToggleStruts(..))
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageHelpers (isFullscreen, isDialog, doFullFloat, doCenterFloat, doRectFloat)
import XMonad.Hooks.Place (placeHook, withGaps, smart)

-- actions
import XMonad.Actions.CopyWindow

-- layout
import XMonad.Layout.NoBorders 
import XMonad.Layout.Spacing (spacing)
import XMonad.Layout.GridVariants (Grid(Grid))
import XMonad.Layout.ResizableTile

myTerminal      = "kitty"

myFocusFollowsMouse :: Bool
myFocusFollowsMouse = True

myClickJustFocuses :: Bool
myClickJustFocuses = False

myBorderWidth   = 2

myNormalBorderColor  = "#4D4D4D"
myFocusedBorderColor = "#BD93F9"

myWorkspaces    = ["1", "2", "3", "4", "5", "6", "7", "8", "9"]

myModMask       = mod4Mask

myKeys =
  [
  -- dwm-like add window to a specific workspace
    ("M-" ++ m ++ k, windows $ f i)
      | (i, k) <- zip (myWorkspaces) (map show [1 :: Int ..])
      , (f, m) <- [(W.view, ""), (W.shift, "S-"), (copy, "S-C-")]
  ]
  ++
  [
  -- dwm-like add/remove window to/from all workspaces
    ("S-C-a", windows copyToAll)  -- copy window to all workspaces
  , ("S-C-z", killAllOtherCopies) -- kill copies of window on other workspaces

  -- modify tiled window size
  , ("M-a", sendMessage MirrorShrink) -- decrease vertical window size
  , ("M-z", sendMessage MirrorExpand) -- increase vertical window size

  -- toggle struts for xmobar
  , ("M-s", sendMessage ToggleStruts)

  -- switch directly to a layout
  , ("M-f", sendMessage $ JumpToLayout "Full")
  , ("M-t", sendMessage $ JumpToLayout "Spacing ResizableTall")
  , ("M-g", sendMessage $ JumpToLayout "Spacing Grid")

  -- launch rofi
  , ("M-p", spawn "rofi -show combi")
  , ("M-c", spawn "rofi -show clipboard")

  -- volume control
  , ("<XF86AudioRaiseVolume>", spawn "pactl set-sink-volume @DEFAULT_SINK@ +1%")  -- increase volume
  , ("<XF86AudioLowerVolume>", spawn "pactl set-sink-volume @DEFAULT_SINK@ -1%")  -- decrease volume
  , ("<XF86AudioMute>",        spawn "pactl set-sink-mute @DEFAULT_SINK@ toggle") -- mute volume

  -- media control
  , ("<XF86AudioPlay>",     spawn "playerctl --player=playerctld play-pause") -- play / pause
  , ("C-<XF86AudioPlay>",   spawn "playerctl --player=playerctld next")       -- next
  , ("C-S-<XF86AudioPlay>", spawn "playerctl --player=playerctld previous")   -- previous
  , ("S-<XF86AudioPlay>",   spawn "playerctld shift")                         -- change player

  -- notification control
  , ("M-n",     spawn "dunstctl context")           -- notification context menu
  , ("M-C-n",   spawn "dunstctl close")             -- close notification
  , ("M-S-n",   spawn "dunstctl history-pop")       -- pop history
  , ("M-C-S-n", spawn "dunstctl set-paused toggle") -- toggle do not disturb

  -- system control
  , ("M-q",     spawn "xmonad --recompile; xmonad --restart") -- recompile and restart xmonad
  , ("M-C-S-q", io (exitWith ExitSuccess))                    -- quit xmonad
  , ("M-C-S-l", spawn "light-locker-command --lock")          -- lock
  , ("M-C-S-s", spawn "systemctl suspend")                    -- suspend

  -- toggle compositor
  , ("M-<Esc>", spawn "/home/sravan/.config/picom/toggle_picom.sh")

  -- screenshot
  , ("<Print>", spawn "flameshot gui")
  ]

myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList $

    -- mod-button1, Set the window to floating mode and move by dragging
    [ ((modm, button1), (\w -> focus w >> mouseMoveWindow w
                                       >> windows W.shiftMaster))

    -- mod-button2, Raise the window to the top of the stack
    , ((modm, button2), (\w -> focus w >> windows W.shiftMaster))

    -- mod-button3, Set the window to floating mode and resize by dragging
    , ((modm, button3), (\w -> focus w >> mouseResizeWindow w
                                       >> windows W.shiftMaster))

    -- you may also bind events to the mouse scroll wheel (button4 and button5)
    ]

myLayout =
  avoidStruts ( tiled ||| grid ||| monocle )
  where
     -- default tiling algorithm partitions the screen into two panes
     nmaster = 1
     delta = 3/100
     tiled_ratio = 1/2
     tiled_spacing = 10
     tiled = spacing tiled_spacing $ ResizableTall nmaster delta tiled_ratio []

     -- grid
     grid_ratio = 16/9
     grid_spacing = 10
     grid = spacing grid_spacing $ Grid grid_ratio

     -- monocle
     -- monocle = smartBorders (Full)
     monocle = noBorders (Full)

myManageHook = composeAll
    [ className =? "MPlayer"        --> doFloat
    , className =? "Gimp"           --> doFloat
    , resource  =? "desktop_window" --> doIgnore
    , resource  =? "kdesktop"       --> doIgnore ]

myStartupHook = do
  -- System Restore Processes
  spawnOnce "/home/sravan/.screenlayout/default.sh &"                     -- restore default screen layout
  spawnOnce "nitrogen --restore &"                                        -- restore wallpaper
  spawnOnce "numlockx on &"                                               -- enable numlock

  -- System Tray Applications
  spawnOnce "volctl &"                                                    -- PulseAudio Volume Control
  spawnOnce "nyrna &"                                                     -- Nyrna Application Suspend
  spawnOnce "blueman-applet &"                                            -- Blueman Bluetooth Manager
  spawnOnce "nm-applet &"                                                 -- Network Manager Applet
  spawnOnce "kdeconnect-indicator &"                                      -- KDE Connect
  spawnOnce "flameshot &"                                                 -- Flameshot Screenshot Tool
  spawnOnce "xfce4-power-manager &"                                       -- XFCE4 Power Manager

  -- Background Processes
  spawnOnce "/home/sravan/.config/picom/toggle_picom.sh &"                -- Picom Compositor
  spawnOnce "/home/sravan/.config/dunst/launch_dunst.sh &"                -- Dunst Notification Daemon
  spawnOnce "greenclip daemon &"                                          -- Greenclip Clipboard Manager
  spawnOnce "redshift -x &"                                               -- Reset redshift display gamma
  spawnOnce "redshift-gtk &"                                              -- Redshift Blue Light Filter
  spawnOnce "/usr/lib/polkit-gnome/polkit-gnome-authentication-agent-1 &" -- GNOME Polkit Authentication Agent
  spawnOnce "light-locker --lock-on-suspend --lock-on-lid &"              -- screen lock for lightdm

main = do
  -- `xmobar -x 0` launches the bar on monitor 0
  xmproc <- spawnPipe "xmobar -x 0 /home/sravan/.xmonad/xmobar.config"
  -- launches xmobar as a dock
  xmonad $ ewmh desktopConfig
    { manageHook         = manageDocks <+> manageHook desktopConfig
    , startupHook        = myStartupHook
    , layoutHook         = myLayout
    , borderWidth        = myBorderWidth
    , terminal           = myTerminal
    , modMask            = myModMask
    , normalBorderColor  = myNormalBorderColor
    , focusedBorderColor = myFocusedBorderColor
    , logHook            = dynamicLogWithPP xmobarPP
                           { ppOutput = \x -> hPutStrLn xmproc x
                           , ppCurrent = xmobarColor "green" "" . wrap "[" "]" -- current workspace in xmobar
                           , ppVisible = xmobarColor "cyan" ""                 -- visible but not current workspace
                           , ppHidden = xmobarColor "yellow" "" . wrap "+" ""  -- hidden workspaces in xmobar
                           , ppHiddenNoWindows = xmobarColor "white" ""        -- hidden workspaces (no windows)
                           , ppTitle = xmobarColor "purple" "" . shorten 80    -- title of active window in xmobar
                           , ppSep = " | "                                     -- separators in xmobar
                           , ppUrgent = xmobarColor "red" "" . wrap "!" "!"    -- urgent workspace
                           , ppOrder = \(ws:l:t:ex) -> [ws,l,t]
                           }
        -- focusFollowsMouse  = myFocusFollowsMouse,
        -- clickJustFocuses   = myClickJustFocuses,
        -- workspaces         = myWorkspaces,
        -- keys               = myKeys,
        -- mouseBindings      = myMouseBindings,
        -- handleEventHook    = myEventHook,
    } `additionalKeysP` myKeys

help :: String
help = unlines ["The default modifier key is 'alt'. Default keybindings:",
    "",
    "-- launching and killing programs",
    "mod-Shift-Enter  Launch xterminal",
    "mod-p            Launch dmenu",
    "mod-Shift-p      Launch gmrun",
    "mod-Shift-c      Close/kill the focused window",
    "mod-Space        Rotate through the available layout algorithms",
    "mod-Shift-Space  Reset the layouts on the current workSpace to default",
    "mod-n            Resize/refresh viewed windows to the correct size",
    "",
    "-- move focus up or down the window stack",
    "mod-Tab        Move focus to the next window",
    "mod-Shift-Tab  Move focus to the previous window",
    "mod-j          Move focus to the next window",
    "mod-k          Move focus to the previous window",
    "mod-m          Move focus to the master window",
    "",
    "-- modifying the window order",
    "mod-Return   Swap the focused window and the master window",
    "mod-Shift-j  Swap the focused window with the next window",
    "mod-Shift-k  Swap the focused window with the previous window",
    "",
    "-- resizing the master/slave ratio",
    "mod-h  Shrink the master area",
    "mod-l  Expand the master area",
    "",
    "-- floating layer support",
    "mod-t  Push window back into tiling; unfloat and re-tile it",
    "",
    "-- increase or decrease number of windows in the master area",
    "mod-comma  (mod-,)   Increment the number of windows in the master area",
    "mod-period (mod-.)   Deincrement the number of windows in the master area",
    "",
    "-- quit, or restart",
    "mod-Shift-q  Quit xmonad",
    "mod-q        Restart xmonad",
    "mod-[1..9]   Switch to workSpace N",
    "",
    "-- Workspaces & screens",
    "mod-Shift-[1..9]   Move client to workspace N",
    "mod-{w,e,r}        Switch to physical/Xinerama screens 1, 2, or 3",
    "mod-Shift-{w,e,r}  Move client to screen 1, 2, or 3",
    "",
    "-- Mouse bindings: default actions bound to mouse events",
    "mod-button1  Set the window to floating mode and move by dragging",
    "mod-button2  Raise the window to the top of the stack",
    "mod-button3  Set the window to floating mode and resize by dragging"]