dotfiles/.xmonad/xmonad.org

• Table of Contents
• Imports
• Variables
• Start Up
• Layout
• Scrathpads
• Hooks
• Events
• Logging
• Keybinds
  • Add "Normal" Binds
    • Window Management
    • Basics
    • Media Control
    • Scratchpads
  • Add Open Binds
  • Add System Utils Binds
  • Remove Unneeded Default Binds
• Main

+TITLE: Custom Xmonad Config

Table of Contents

• Table of Contents
• Imports
• Variables
• Start Up
• Layout
• Scrathpads
• Hooks
• Events
• Logging

• Keybinds

  • Add "Normal" Binds

    • Window Management
    • Basics
    • Media Control
    • Scratchpads
  • Add Open Binds
  • Add System Utils Binds
  • Remove Unneeded Default Binds
• Main

Imports

Import Haskel modules that are used later in the config.

-- Base
import XMonad
import Data.Monoid
import System.Exit
import System.IO (hPutStrLn)
import qualified XMonad.StackSet as W
import qualified Data.Map        as M
import System.Directory (getHomeDirectory)

-- Hooks
import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.WorkspaceHistory
import XMonad.Hooks.DynamicLog (dynamicLogWithPP, wrap, xmobarPP, xmobarColor, shorten, PP(..))

-- Layouts
import XMonad.Layout.NoBorders
import XMonad.Layout.Gaps
import XMonad.Layout.Spacing
import XMonad.Layout.ThreeColumns

-- Utilities
import XMonad.Util.Run (runProcessWithInput, safeSpawn, spawnPipe)
import XMonad.Util.SpawnOnce
import XMonad.Util.NamedScratchpad
import XMonad.Util.EZConfig (additionalKeysP, removeKeys)

-- Actions
import XMonad.Actions.DynamicProjects
import XMonad.Actions.DynamicWorkspaces

-- Prompt
import XMonad.Prompt

Variables

Set variable used later in the config, often a handful of times.

-- Terminal to use
myTerminal      = "alacritty"

-- Focus follows mouse pointer
myFocusFollowsMouse :: Bool
myFocusFollowsMouse = True

-- Define mod keys
myModMask = mod4Mask
altMask = mod1Mask

-- Define volume keys and commands
lowerVolumeCmd = "pulseaudio-ctl down 2"
raiseVolumeCmd = "pulseaudio-ctl up 2"
muteVolumeCmd  = "pulseaudio-ctl mute"

-- Count windows
windowCount :: X (Maybe String)
windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace . W.current . windowset

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

-- Width of window border
myBorderWidth = 2 

-- Border colors
myNormalBorderColor  = "#ebdbb2"
myFocusedBorderColor = "#d3869b"

-- Prompt theming
myFont = "xft:Mononoki Nerd Font:bold:size=9:antialias=true:hinting=true"
yellow = "#504945"
base03 = "#ebdbb2"
active = "#b8bb26"
prompt = 20 

myPromptTheme = def
    { font                  = myFont
    , bgColor               = base03
    , fgColor               = active
    , fgHLight              = base03
    , bgHLight              = active
    , borderColor           = base03
    , promptBorderWidth     = 0 
    , height                = prompt
    , position              = Top 
    }

Start Up

Set variable used later in the config, often a handful of times.

myStartupHook = do
    spawnOnce "nitrogen --restore &"
    spawnOnce "lxsession &"
    spawnOnce "xsetroot -cursor_name left_ptr"
    spawnOnce "imwheel -b 45"

Layout

Set the possible layouts for great justice.

myLayout = spacing 2 $ smartBorders (tiled ||| Mirror tiled ||| Full ||| ThreeCol 1 (3/100) (1/2))
    where
        -- default tiling algorithm partitions the screen into two panes
        tiled = Tall nmaster delta ratio
        -- The default number of windows in the master pane
        nmaster = 1
        -- Default proportion of screen occupied by master pane
        ratio = 1/2
        -- Percent of screen to increment by when resizing panes
        delta = 2/100

Scrathpads

Define all my scrathpads.

myScratchPads :: [NamedScratchpad]
myScratchPads = [ NS "terminal" spawnTerm findTerm manageTerm
                , NS "scr-mpv" spawnMpv findMpv manageMpv
                , NS "discord"  spawnDiscord findDiscord manageDiscord ]
    where
        spawnTerm  = myTerminal ++ " -t terminal" 
        findTerm   = title =? "terminal"
        manageTerm = customFloating $ W.RationalRect l t w h
            where
                h = 0.9
                w = 0.9
                t = 0.95 -h 
                l = 0.95 -w
    
        spawnMpv  = "mpv --player-operation-mode=pseudo-gui --title=scr-mpv" 
        findMpv = title =? "scr-mpv" 
        manageMpv = customFloating $ W.RationalRect l t w h
            where
                h = 0.9
                w = 0.9
                t = 0.95 -h 
                l = 0.95 -w

        spawnDiscord  = "discord"
        findDiscord   = appName =? "discord" 
        manageDiscord = customFloating $ W.RationalRect l t w h
            where
                h = 0.9
                w = 0.9
                t = 0.95 -h 
                l = 0.95 -w

Hooks

Define some wicked hooks.

myManageHook = composeAll
    -- Float fullscreen apps (mostly games)
    [isDialog --> doCenterFloat,
     isFullscreen --> doFullFloat,
     className =? "Gimp" --> doFullFloat, 
     className =? "Anki" --> doFullFloat, 
     className =? "mpv" --> doRectFloat (W.RationalRect 0.55 0.05 0.4 0.4), 
     className =? "Steam" --> doFullFloat, 
     namedScratchpadManageHook myScratchPads]

Events

Define some Events.

myEventHook = mempty

Logging

Define some Events.

myLogHook = return ()

Keybinds

Add "Normal" Binds

Set all of the keybinds I use to control the universe from within Xmonad.

Window Management

myKeys :: String -> [([Char], X ())]
myKeys home = 
  [
    -- close focused window
      ("M-q", kill)
    -- Rotate through the available layout algorithms
    , ("M-<Space>", sendMessage NextLayout)
    -- Resize viewed windows to the correct size
    , ("M-z", refresh)
    -- Move focus to the next window
    , ("M-j", windows W.focusDown)
    -- Move focus to the previous window
    , ("M-k", windows W.focusUp)
    -- Move focus to the master window
    , ("M-m", windows W.focusMaster)
    -- Swap the focused window and the master window
    , ("M-c", windows W.swapMaster)
    -- Swap the focused window with the next window
    , ("M-S-j", windows W.swapDown)
    -- Swap the focused window with the previous window
    , ("M-S-k", windows W.swapUp)
    -- Shrink the master area
    , ("M-h", sendMessage Shrink)
    -- Expand the master area
    , ("M-l", sendMessage Expand)
    -- Push window back into tiling
    , ("M-t", withFocused $ windows . W.sink)
    -- Increment the number of windows in the master area
    , ("M-,", sendMessage (IncMasterN 1))
    -- Deincrement the number of windows in the master area
    , ("M-.", sendMessage (IncMasterN (-1)))

Basics

    -- Spawn terminal 
    , ("M-<Return>"  , spawn "alacritty")
    -- Spawn rofi drun 
    , ("M-w"  , spawn "rofi -show drun")
    -- Spawn rofi window 
    , ("M-S-w", spawn "rofi -show window")

Media Control

    -- mute overall volume
    , ("<XF86AudioMute>", spawn muteVolumeCmd)
    -- raise overall volume
    , ("<XF86AudioRaiseVolume>", spawn raiseVolumeCmd)
    -- lower overall volume
    , ("<XF86AudioLowerVolume>", spawn lowerVolumeCmd)

Scratchpads

    -- Spawn rofi window 
    , ("M-S-<Return>", namedScratchpadAction myScratchPads "terminal")
    -- Spawn rofi window 
    , ("M-d", namedScratchpadAction myScratchPads "discord")
    -- Spawn rofi window 
    , ("M-v", namedScratchpadAction myScratchPads "scr-mpv")

Add Open Binds

    -- Spawn firefox 
    , ("M-o f"  , spawn "firefox")
    -- Spawn lutris 
    , ("M-o l"  , spawn "lutris")
    -- Spawn steam 
    , ("M-o s"  , spawn "steam")
    -- Spawn flameshot 
    , ("M-o c"  , spawn "flameshot gui")
    -- Spawn emacs 
    , ("M-o e"  , spawn "emacs")

Add System Utils Binds

    -- Recompile and restart xmonad
    , ("M-x r", spawn "xmonad --recompile; xmonad --restart")
    -- Quit xmonad
    , ("M-x q", io (exitWith ExitSuccess))
    -- Start gamemode
    , ("M-x g", spawn "gamemoded -r")
    -- Stop gamemode 
    , ("M-x S-g", spawn "killall gamemoded")
  ]

Remove Unneeded Default Binds

rmKeys :: String -> [(KeyMask, KeySym)]
rmKeys keys = 
  [
    -- Remove the default quit xmonad bind
    (myModMask .|. shiftMask, xK_q)
  ]

Main

The main function that gets it all done.

main = do 
    home <- getHomeDirectory
    xmproc0 <- spawnPipe "xmobar -x 0 ~/.config/xmobar/xmobarrc"
    --
    xmonad $ docks $ ewmh $ def
        {
        -- Simple items 
        terminal = myTerminal,
        focusFollowsMouse = myFocusFollowsMouse,
        borderWidth = myBorderWidth,
        modMask = myModMask,
        workspaces = myWorkspaces,
        normalBorderColor = myNormalBorderColor,
        focusedBorderColor = myFocusedBorderColor,

        -- Hooks, Layouts
        layoutHook = avoidStruts $ myLayout,
        manageHook = myManageHook,
        handleEventHook = myEventHook,
        logHook = workspaceHistoryHook <+> myLogHook <+> dynamicLogWithPP xmobarPP
            { ppOutput = \x -> hPutStrLn xmproc0 x 
            , ppCurrent = xmobarColor "#b8bb26" "" . wrap "[" "]" -- Current workspace in xmobar
            , ppVisible = xmobarColor "#83a598" ""                -- Visible but not current workspace
            , ppHidden = xmobarColor "#83a598" "" . wrap "*" ""   -- Hidden workspaces in xmobar
            , ppHiddenNoWindows= \( _ ) -> ""                     -- Only shows visible workspaces. Useful for TreeSelect.
            , ppTitle = xmobarColor "#ebdbb2" "" . shorten 60     -- Title of active window in xmobar
            , ppSep =  "<fc=#ebdbb2> | </fc>"                     -- Separators in xmobar
            , ppUrgent = xmobarColor "#fb4934" "" . wrap "!" "!"  -- Urgent workspace
            , ppExtras = [windowCount]                           -- # of windows current workspace
            , ppOrder = \(ws:l:t:ex) -> [ws,l]++ex++[t]},
        startupHook = myStartupHook 
        } `removeKeys` rmKeys home
          `additionalKeysP` myKeys home