Adding emacs-run-launcher to xmonad keybindings

This commit is contained in:
Derek Taylor
2023-07-05 14:00:20 -05:00
parent 1f341e5242
commit 99209bc2ad
2 changed files with 2 additions and 20 deletions

View File

@@ -65,7 +65,6 @@ import Data.Char (isSpace, toUpper)
import Data.Maybe (fromJust)
import Data.Monoid
import Data.Maybe (isJust)
import Data.Ratio
import Data.Tree
import qualified Data.Map as M
@@ -73,7 +72,7 @@ import qualified Data.Map as M
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops -- for some fullscreen events, also for xcomposite in obs.
import XMonad.Hooks.ManageDocks (avoidStruts, docks, manageDocks, ToggleStruts(..))
import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat, doCenterFloat, doRectFloat)
import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat, doCenterFloat)
import XMonad.Hooks.ServerMode
import XMonad.Hooks.SetWMName
import XMonad.Hooks.StatusBar
@@ -187,19 +186,11 @@ myStartupHook = do
spawnOnce "volumeicon"
spawnOnce "notify-log $HOME/.log/notify.log"
spawn "/usr/bin/emacs --daemon" -- emacs daemon for the emacsclient
<<<<<<< HEAD
=======
>>>>>>> 10dba929669221d591cd1e0d58cc67ace8b03906
-- We killed any running conky processes earlier in the autostart,
-- so now we sleep for 2 seconds and then restart conky.
spawn "polybar-xmonad"
spawnOnce "sleep 2 && xmonad --restart"
spawn ("sleep 3 && conky -c $HOME/.config/conky/xmonad/" ++ colorScheme ++ "-01.conkyrc")
<<<<<<< HEAD
=======
>>>>>>> 10dba929669221d591cd1e0d58cc67ace8b03906
-- Select only =ONE= of the following four ways to set the wallpaper.
spawnOnce "xargs xwallpaper --stretch < ~/.cache/wall"
-- spawnOnce "~/.fehbg &" -- set last saved feh wallpaper

View File

@@ -21,7 +21,6 @@ import Data.Char (isSpace, toUpper)
import Data.Maybe (fromJust)
import Data.Monoid
import Data.Maybe (isJust)
import Data.Ratio
import Data.Tree
import qualified Data.Map as M
@@ -29,7 +28,7 @@ import qualified Data.Map as M
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops -- for some fullscreen events, also for xcomposite in obs.
import XMonad.Hooks.ManageDocks (avoidStruts, docks, manageDocks, ToggleStruts(..))
import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat, doCenterFloat, doRectFloat)
import XMonad.Hooks.ManageHelpers (isFullscreen, doFullFloat, doCenterFloat)
import XMonad.Hooks.ServerMode
import XMonad.Hooks.SetWMName
import XMonad.Hooks.StatusBar
@@ -132,19 +131,11 @@ myStartupHook = do
spawnOnce "volumeicon"
spawnOnce "notify-log $HOME/.log/notify.log"
spawn "/usr/bin/emacs --daemon" -- emacs daemon for the emacsclient
<<<<<<< HEAD
=======
>>>>>>> 10dba929669221d591cd1e0d58cc67ace8b03906
-- We killed any running conky processes earlier in the autostart,
-- so now we sleep for 2 seconds and then restart conky.
spawn "polybar-xmonad"
spawnOnce "sleep 2 && xmonad --restart"
spawn ("sleep 3 && conky -c $HOME/.config/conky/xmonad/" ++ colorScheme ++ "-01.conkyrc")
<<<<<<< HEAD
=======
>>>>>>> 10dba929669221d591cd1e0d58cc67ace8b03906
-- Select only =ONE= of the following four ways to set the wallpaper.
spawnOnce "xargs xwallpaper --stretch < ~/.cache/wall"
-- spawnOnce "~/.fehbg &" -- set last saved feh wallpaper