Minor edits to Doom Emacs and XMonad.

This commit is contained in:
Derek Taylor
2021-04-12 18:56:03 -05:00
parent cadced2fdc
commit dbcf958137
4 changed files with 14 additions and 52 deletions

View File

@@ -106,6 +106,7 @@ import qualified XMonad.Layout.MultiToggle as MT (Toggle(..))
-- Prompt
import XMonad.Prompt
import XMonad.Prompt.ConfirmPrompt
import XMonad.Prompt.Input
import XMonad.Prompt.FuzzyMatch
import XMonad.Prompt.Man
@@ -117,6 +118,7 @@ import XMonad.Prompt.XMonad
import Control.Arrow (first)
-- Utilities
import XMonad.Util.Dmenu
import XMonad.Util.EZConfig (additionalKeysP)
import XMonad.Util.NamedScratchpad
import XMonad.Util.Run (runProcessWithInput, safeSpawn, spawnPipe)
@@ -896,9 +898,9 @@ I am using the Xmonad.Util.EZConfig module which allows keybindings to be writte
myKeys :: [(String, X ())]
myKeys =
-- Xmonad
[ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad
, ("M-S-r", spawn "xmonad --restart") -- Restarts xmonad
, ("M-S-q", io exitSuccess) -- Quits xmonad
[ ("M-C-r", spawn "xmonad --recompile") -- Recompiles xmonad
, ("M-S-r", spawn "xmonad --restart") -- Restarts xmonad
, ("M-S-q", confirmPrompt dtXPConfig' "exit" $ io exitSuccess) -- Quits xmonad
-- Run Prompt
, ("M-S-<Return>", shellPrompt dtXPConfig) -- Xmonad Shell Prompt
@@ -914,6 +916,7 @@ myKeys =
, ("M-p s", sshPrompt dtXPConfig) -- sshPrompt
, ("M-p u", mkUnicodePrompt "xsel" ["-b"] "/home/dt/.xmonad/UnicodeData.txt" emojiXPConfig) -- unicodePrompt (for copying emojis)
, ("M-p x", xmonadPrompt dtXPConfig) -- xmonadPrompt
, ("M-p q", confirmPrompt dtXPConfig "exit" $ io exitSuccess) -- xmonadPrompt
-- Useful programs to have a keybinding for launch
, ("M-<Return>", spawn (myTerminal))