From 8d17cadbe8fc2d620693429d3bb288124b1b23be Mon Sep 17 00:00:00 2001 From: Derek Taylor Date: Thu, 6 Jul 2023 17:14:14 -0500 Subject: [PATCH] Adding emacs-run-launcher to xmonad keybindings --- .config/xmonad/xmonad-with-polybar.org | 2 +- .config/xmonad/xmonad.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/.config/xmonad/xmonad-with-polybar.org b/.config/xmonad/xmonad-with-polybar.org index 541ae8a..0e5aad9 100644 --- a/.config/xmonad/xmonad-with-polybar.org +++ b/.config/xmonad/xmonad-with-polybar.org @@ -641,7 +641,7 @@ 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-", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "~/.local/bin/dm-run"]) + -- , ("M-S-", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "~/.local/bin/dm-run"]) , ("M-S-", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "emacsclient -cF '((visibility . nil))' -e '(emacs-counsel-launcher)'"]) , ("M-S-b", addName "Toggle bar show/hide" $ sendMessage ToggleStruts) , ("M-/", addName "DTOS Help" $ spawn "~/.local/bin/dtos-help")] diff --git a/.config/xmonad/xmonad.hs b/.config/xmonad/xmonad.hs index 5c1d40e..0ff853d 100644 --- a/.config/xmonad/xmonad.hs +++ b/.config/xmonad/xmonad.hs @@ -504,7 +504,7 @@ 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-", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "~/.local/bin/dm-run"]) + -- , ("M-S-", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "~/.local/bin/dm-run"]) , ("M-S-", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "emacsclient -cF '((visibility . nil))' -e '(emacs-counsel-launcher)'"]) , ("M-S-b", addName "Toggle bar show/hide" $ sendMessage ToggleStruts) , ("M-/", addName "DTOS Help" $ spawn "~/.local/bin/dtos-help")]