Snoooopy/dtos-dotfiles
1
0
Fork 0
mirror of https://gitlab.com/dwt1/dotfiles.git synced 2026-04-13 20:28:35 +10:00
Code Issues Packages Projects Releases Wiki Activity

Adding emacs-run-launcher to xmonad keybindings

Browse Source
This commit is contained in:
Derek Taylor
2023-07-05 14:26:16 -05:00
parent 99209bc2ad
commit f3599a286c
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
.config/xmonad/xmonad-with-polybar.org
View File

@@ -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-<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 "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")]

2
.config/xmonad/xmonad-with-xmobar.org
View File

@@ -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-<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 "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")]

2
.config/xmonad/xmonad.hs
View File

@@ -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-<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 "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")]