xmonad 的配置

2024-08-14 2024-08-25 Sun 10:32

虽然从刚刚开始当程序员的那一年就开始用 xmonad 了，但是对于 xmonad 的配置却一直不怎么会，今天花了几个小时，总算是稍微学了一些皮毛。把自己的配置附录一下吧。

import XMonad
import XMonad.Util.EZConfig(additionalKeys)
import XMonad.Util.Run(spawnPipe)
import XMonad.Config.Desktop
import XMonad.Actions.SpawnOn

web = "web"
code = "code"
term = "terminal"
myWorkspaces = [web, code, term] ++ map show [4..9]

main = do
  xmproc <- spawnPipe "xmobar"
  xmonad $ desktopConfig {
    startupHook = do
      spawnOn web "firefox"
      spawnOn code "emacs"
      spawnOn term "termite"
    ,terminal = "termite"
    ,modMask = mod4Mask
    ,workspaces = myWorkspaces
    ,manageHook= manageSpawn
  } `additionalKeys` [
        ((mod4Mask, xK_Up), spawn "amixer set Master 2%+ unmute"),
        ((mod4Mask, xK_Down), spawn "amixer set Master 2%- unmute")
    ]