Meow

haskell/xmonad/xmonad.hs

@@ -20,6 +20,8 @@ import qualified Data.Map        as M
 import XMonad.Layout.Spacing
 import XMonad.Layout.Tabbed
 
+import XMonad.Actions.KeyRemap
+
 import XMonad.Prompt
 import XMonad.Prompt.Layout
 
@@ -63,22 +65,21 @@ myWorkspaces    = ["comms","browser","3","4","5","6","7","8","9"]
 myNormalBorderColor  = "#3c3836"
 myFocusedBorderColor = "#504945"
 
+myRemaps = KeymapTable [ ((0, xK_a), (0, xK_b)) ]
+
 ------------------------------------------------------------------------
 -- Key bindings. Add, modify or remove key bindings here.
 --
 myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
-
   [ ((modm, xK_Return), spawn $ XMonad.terminal conf)
   , ((modm .|. shiftMask, xK_q), kill)
   -- Rotate through the available layout algorithms
   , ((modm,               xK_space ), sendMessage NextLayout)
-
   -- rofiing
   , ((modm, xK_d), spawn "rofi -show drun")
   , ((modm .|. shiftMask, xK_e), spawn "rofi -show \"desktopctl\" -modes \"desktopctl:$(which desktopctl)\"")
   , ((modm, xK_m), spawn "menu-qalc")
   , ((modm, xK_i), spawn "rofimoji -f alchemical_symbols anatolian_hieroglyphs emojis braille_patterns box_drawing chess_symbols emoticons geometric_shapes gothic greek_extended math mathematical_alphanumeric_symbols mathematical_operators miscellaneous_symbols miscellaneous_mathematical_symbols-a miscellaneous_mathematical_symbols-b miscellaneous_symbols_and_arrows miscellaneous_symbols_and_pictographs miscellaneous_technical modi modifier_tone_letters musical_symbols nerd_font number_forms shorthand_format_controls specials variation_selectors vertical_forms -a copy")
-
   -- screenshotting
   -- TODO: Fix/rewrite window-screenshot.sh
   , ((modm, xK_w), spawn "window-screenshot.sh")
@@ -91,46 +92,34 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
   -- , ((modm .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf)
   -- Push window back into tiling
   , ((modm .|. shiftMask, xK_space ), withFocused $ windows . W.sink)
-
-
   -- Resize viewed windows to the correct size
   , ((modm,               xK_n     ), refresh)
-
   -- Move focus to the next window
   , ((modm,               xK_Tab   ), layoutPrompt def)
-
   -- Move focus
   , ((modm,               xK_j     ), windows W.focusDown)
   , ((modm,               xK_k     ), windows W.focusUp  )
-
   -- Swap the focused window with the next window
   , ((modm .|. shiftMask, xK_j     ), windows W.swapDown  )
   , ((modm .|. shiftMask, xK_k     ), windows W.swapUp    )
-
   -- Shrink the master area
   , ((modm,               xK_h     ), sendMessage Shrink)
   , ((modm,               xK_l     ), sendMessage Expand)
-
   -- Increment the number of windows in the master area
   , ((modm              , xK_comma ), sendMessage (IncMasterN 1))
   , ((modm              , xK_period), sendMessage (IncMasterN (-1)))
-
   -- Toggle the status bar gap
   -- Use this binding with avoidStruts from Hooks.ManageDocks.
   -- See also the statusBar function from Hooks.DynamicLog.
   --
   -- , ((modm              , xK_b     ), sendMessage ToggleStruts)
-
   --, ((modm .|. shiftMask, xK_e     ), io (exitWith ExitSuccess))
-
   -- Restart xmonad
   --, ((modm              , xK_q     ), spawn "xmonad --recompile; xmonad --restart")
-
   -- Run xmessage with a summary of the default keybindings (useful for beginners)
-    , ((modm .|. shiftMask, xK_slash ), spawn ("echo \"" ++ help ++ "\" | xmessage -file -"))
+  -- , ((modm .|. shiftMask, xK_slash ), spawn ("echo \"" ++ help ++ "\" | xmessage -file -"))
   ]
   ++
-
   --
   -- mod-[1..9], Switch to workspace N
   -- mod-shift-[1..9], Move client to workspace N
@@ -139,7 +128,6 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
     | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
     , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
   ++
-
   --
   -- 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
@@ -153,7 +141,6 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
 -- Mouse bindings: default actions bound to mouse events
 --
 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))
@@ -258,6 +245,7 @@ myStartupHook = do
   spawn "pkill volumeicon; volumeicon"
   spawn "pkill nm-applet; nm-applet"
   spawn "mullvad-vpn --background"
+  setDefaultKeyRemap myRemaps [myRemaps]
 
 ------------------------------------------------------------------------
 -- Now run xmonad with all the defaults we set up.
@@ -283,9 +271,9 @@ defaults = def
   , workspaces         = myWorkspaces
   , normalBorderColor  = myNormalBorderColor
   , focusedBorderColor = myFocusedBorderColor
-
   -- key bindings
-    , keys               = myKeys
+  , keys               = myKeys ++ buildKeyRemapBindings [emptyKeyRemap]
+  -- , keys               = myKeys
   , mouseBindings      = myMouseBindings
   -- hooks, layouts
   , layoutHook         = spacingRaw True (Border 0 0 0 0) True (Border 7 7 7 7) True $ myLayout
@@ -294,54 +282,3 @@ defaults = def
   , logHook            = myLogHook
   , startupHook        = myStartupHook
   }
-
--- | Finally, a copy of the default bindings in simple textual tabular format.
-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"]