From f3599a286ccb873ded7cc2263e92add969952ec8 Mon Sep 17 00:00:00 2001 From: Derek Taylor Date: Wed, 5 Jul 2023 14:26:16 -0500 Subject: [PATCH] Adding emacs-run-launcher to xmonad keybindings --- .config/xmonad/xmonad-with-polybar.org | 2 +- .config/xmonad/xmonad-with-xmobar.org | 2 +- .config/xmonad/xmonad.hs | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/.config/xmonad/xmonad-with-polybar.org b/.config/xmonad/xmonad-with-polybar.org index d18d5bd..541ae8a 100644 --- a/.config/xmonad/xmonad-with-polybar.org +++ b/.config/xmonad/xmonad-with-polybar.org @@ -642,7 +642,7 @@ myKeys c = , ("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 "emacsclient -cF '((visibility . nil))' -e '(emacs-run-launcher)'"]) + , ("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-with-xmobar.org b/.config/xmonad/xmonad-with-xmobar.org index 38bfe5d..5524e12 100644 --- a/.config/xmonad/xmonad-with-xmobar.org +++ b/.config/xmonad/xmonad-with-xmobar.org @@ -656,7 +656,7 @@ myKeys c = , ("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 "emacsclient -cF '((visibility . nil))' -e '(emacs-run-launcher)'"]) + , ("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 18e0eba..5c1d40e 100644 --- a/.config/xmonad/xmonad.hs +++ b/.config/xmonad/xmonad.hs @@ -505,7 +505,7 @@ myKeys c = , ("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 "emacsclient -cF '((visibility . nil))' -e '(emacs-run-launcher)'"]) + , ("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")]