xmonad.hs

{-# LANGUAGE NamedFieldPuns #-}

import XMonad
import XMonad.Config.Desktop
import qualified Data.Map as Map

main :: IO ()
main =
  xmonad $ desktopConfig {
    terminal = "konsole",
    normalBorderColor = "white",
    focusedBorderColor = "black",
    focusFollowsMouse = False,
    keys =
      \config@(XConfig {modMask}) ->
        Map.delete (modMask, xK_question) $ -- collision with emacs' custom uncomment-region
        Map.delete (modMask .|. shiftMask, xK_slash) $ -- collision with emacs' custom uncomment
        remap (modMask .|. controlMask, xK_comma) (modMask, xK_comma) $ -- collision with emacs' xref-pop-marker-stack
        remap (modMask .|. controlMask, xK_period) (modMask, xK_period) $ -- collision with emacs' xref-find-definitions
        remap (modMask .|. controlMask, xK_q) (modMask, xK_q) $ -- collision with emacs' fill-paragraph
        keys def config}

remap ::
  (ButtonMask, KeySym) ->
  (ButtonMask, KeySym) ->
  Map.Map (ButtonMask, KeySym) (X ()) ->
  Map.Map (ButtonMask, KeySym) (X ())
remap keyNew keyOld map =
  Map.alter (const $ Map.lookup keyOld map) keyNew $
  Map.delete keyOld $
  map