Minor edit to keybinding

This commit is contained in:
Derek Taylor
2023-10-25 12:18:24 -05:00
parent 53e0adeec0
commit 46223b7f17
2 changed files with 4 additions and 4 deletions

View File

@@ -641,8 +641,8 @@ myKeys c =
, ("M-S-q", addName "Quit XMonad" $ spawn "dm-logout")
, ("M-S-c", addName "Kill focused window" $ kill1)
, ("M-S-a", addName "Kill all windows on WS" $ killAll)
-- , ("M-S-<Return>", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "~/.local/bin/dm-run"])
, ("M-S-<Return>", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "emacsclient -cF '((visibility . nil))' -e '(emacs-run-launcher)'"])
, ("M-S-<Return>", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "~/.local/bin/dm-run"])
-- , ("M-S-<Return>", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "emacsclient -cF '((visibility . nil))' -e '(emacs-run-launcher)'"])
, ("M-S-b", addName "Toggle bar show/hide" $ sendMessage ToggleStruts)
, ("M-/", addName "DTOS Help" $ spawn "~/.local/bin/dtos-help")]

View File

@@ -504,8 +504,8 @@ myKeys c =
, ("M-S-q", addName "Quit XMonad" $ spawn "dm-logout")
, ("M-S-c", addName "Kill focused window" $ kill1)
, ("M-S-a", addName "Kill all windows on WS" $ killAll)
-- , ("M-S-<Return>", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "~/.local/bin/dm-run"])
, ("M-S-<Return>", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "emacsclient -cF '((visibility . nil))' -e '(emacs-run-launcher)'"])
, ("M-S-<Return>", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "~/.local/bin/dm-run"])
-- , ("M-S-<Return>", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "emacsclient -cF '((visibility . nil))' -e '(emacs-run-launcher)'"])
, ("M-S-b", addName "Toggle bar show/hide" $ sendMessage ToggleStruts)
, ("M-/", addName "DTOS Help" $ spawn "~/.local/bin/dtos-help")]