Rebind xmonad's help command

Help.hs

module Help (helpAt) where

-- containers
import Data.Map.Strict (Map, (!))
import Data.Map.Strict qualified as M

-- xmonad
import XMonad hiding ((|||))

{- | E.g.

> main = xmonad def{ keys = helpAt shiftMask xK_apostrophe <> def keys }

-}
helpAt :: KeyMask -> KeySym -> XConfig Layout -> Map (KeyMask, KeySym) (X ())
helpAt mask sym cnf = M.singleton (mask, sym) help
 where
  help = keys def cnf ! (modMask cnf, xK_question)