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 window rules and keybinding for emacs-run-launcher

Browse Source
This commit is contained in:
Derek Taylor
2023-07-04 20:01:09 -05:00
parent c08363a68f
commit c650ebc574
2 changed files with 13 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -180,27 +180,18 @@ myStartupHook = do
spawn "killall conky" -- kill current conky on each restart
spawn "killall xmobar" -- adding this in case of switching between xmobar and polybar.
spawn "killall trayer" -- adding this in case of switching between xmobar and polybar.
#+END_SRC
#+BEGIN_SRC haskell
spawnOnce "lxsession"
spawnOnce "picom"
spawnOnce "nm-applet"
spawnOnce "volumeicon"
spawnOnce "notify-log $HOME/.log/notify.log"
spawn "/usr/bin/emacs --daemon" -- emacs daemon for the emacsclient
#+END_SRC
We killed any running conky processes earlier in the autostart, so now we sleep for 2 seconds and then restart conky.
#+BEGIN_SRC haskell
-- 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")
#+END_SRC
Select only =ONE= of the following four ways to set the wallpaper.
#+BEGIN_SRC haskell
-- 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
-- spawnOnce "feh --randomize --bg-fill /usr/share/backgrounds/dtos-backgrounds/*" -- feh set random wallpaper
@@ -560,6 +551,7 @@ myManageHook = composeAll
, className =? "Yad" --> doCenterFloat
, title =? "Oracle VM VirtualBox Manager" --> doFloat
, title =? "Order Chain - Market Snapshots" --> doFloat
, title =? "emacs-run-launcher" --> doFloat
, title =? "Mozilla Firefox" --> doShift ( myWorkspaces !! 1 )
, className =? "Brave-browser" --> doShift ( myWorkspaces !! 1 )
, className =? "mpv" --> doShift ( myWorkspaces !! 7 )
@@ -649,7 +641,8 @@ 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-<Return>", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "~/.local/bin/dm-run"])
-- , ("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-b", addName "Toggle bar show/hide" $ sendMessage ToggleStruts)
, ("M-/", addName "DTOS Help" $ spawn "~/.local/bin/dtos-help")]

12
.config/xmonad/xmonad.hs
View File

@@ -1,4 +1,4 @@
-- Base
-- Base
import XMonad
import System.Directory
import System.IO (hClose, hPutStr, hPutStrLn)
@@ -125,18 +125,18 @@ myStartupHook = do
spawn "killall conky" -- kill current conky on each restart
spawn "killall xmobar" -- adding this in case of switching between xmobar and polybar.
spawn "killall trayer" -- adding this in case of switching between xmobar and polybar.
spawnOnce "lxsession"
spawnOnce "picom"
spawnOnce "nm-applet"
spawnOnce "volumeicon"
spawnOnce "notify-log $HOME/.log/notify.log"
spawn "/usr/bin/emacs --daemon" -- emacs daemon for the emacsclient
-- 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")
-- 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
-- spawnOnce "feh --randomize --bg-fill /usr/share/backgrounds/dtos-backgrounds/*" -- feh set random wallpaper
@@ -463,6 +463,7 @@ myManageHook = composeAll
, className =? "Yad" --> doCenterFloat
, title =? "Oracle VM VirtualBox Manager" --> doFloat
, title =? "Order Chain - Market Snapshots" --> doFloat
, title =? "emacs-run-launcher" --> doFloat
, title =? "Mozilla Firefox" --> doShift ( myWorkspaces !! 1 )
, className =? "Brave-browser" --> doShift ( myWorkspaces !! 1 )
, className =? "mpv" --> doShift ( myWorkspaces !! 7 )
@@ -503,7 +504,8 @@ 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-<Return>", addName "Run prompt" $ sequence_ [spawn (mySoundPlayer ++ dmenuSound), spawn "~/.local/bin/dm-run"])
-- , ("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-b", addName "Toggle bar show/hide" $ sendMessage ToggleStruts)
, ("M-/", addName "DTOS Help" $ spawn "~/.local/bin/dtos-help")]