Snoooopy/dtos-dotfiles
1
0
Fork 0
mirror of https://gitlab.com/dwt1/dotfiles.git synced 2026-04-24 03:50:24 +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:00:20 -05:00
parent 1f341e5242
commit 99209bc2ad
2 changed files with 2 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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

11
.config/xmonad/xmonad.hs
View File

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