Adding modular colorschemes to Xmonad.

This commit is contained in:
Derek Taylor
2021-12-05 15:09:00 -06:00
parent a087888316
commit 8d959afe24
2 changed files with 23 additions and 8 deletions

View File

@@ -117,7 +117,7 @@ import XMonad.Util.SpawnOnce
-- SolarizedDark
-- SolarizedLight
-- TomorrowNight
import Colors.SolarizedLight
import Colors.DoomOne
#+END_SRC
* Variables
@@ -162,17 +162,28 @@ These are commands we want XMonad to execute on startup, such as running a compo
#+BEGIN_SRC haskell
myStartupHook :: X ()
myStartupHook = do
spawn "killall conky" -- kill current conky on each restart
spawn "killall trayer" -- kill current trayer on each restart
#+END_SRC
#+BEGIN_SRC haskell
spawnOnce "lxsession"
spawnOnce "picom"
spawnOnce "nm-applet"
spawnOnce "volumeicon"
spawnOnce "/usr/bin/emacs --daemon" -- emacs daemon for the emacsclient
spawnOnce "xargs xwallpaper --stretch < ~/.cache/wall"
spawnOnce ("conky -c $HOME/.config/conky/xmonad/" ++ colorScheme ++ "-01.conkyrc")
spawnOnce ("killall trayer || trayer --edge top --align right --widthtype request --padding 6 --SetDockType true --SetPartialStrut true --expand true --monitor 1 --transparent true --alpha 0 " ++ colorTrayer ++ " --height 22")
#+END_SRC
We killed any running conky and trayer processes earlier in the autostart, so now we sleep for 2 seconds and then restart conky and trayer.
#+BEGIN_SRC haskell
spawn ("sleep 2 && conky -c $HOME/.config/conky/xmonad/" ++ colorScheme ++ "-01.conkyrc")
spawn ("sleep 2 && trayer --edge top --align right --widthtype request --padding 6 --SetDockType true --SetPartialStrut true --expand true --monitor 1 --transparent true --alpha 0 " ++ colorTrayer ++ " --height 22")
#+END_SRC
Select only =ONE= of the following four ways to set the wallpaper.
#+BEGIN_SRC haskell
spawnOnce "xargs xwallpaper --stretch < ~/.cache/wall"
-- spawnOnce "~/.fehbg &" -- set last saved feh wallpaper
-- spawnOnce "feh --randomize --bg-fill ~/wallpapers/*" -- feh set random wallpaper
-- spawnOnce "nitrogen --restore &" -- if you prefer nitrogen to feh

View File

@@ -78,7 +78,7 @@ import XMonad.Util.SpawnOnce
-- SolarizedDark
-- SolarizedLight
-- TomorrowNight
import Colors.SolarizedLight
import Colors.DoomOne
myFont :: String
myFont = "xft:SauceCodePro Nerd Font Mono:regular:size=9:antialias=true:hinting=true"
@@ -113,15 +113,19 @@ windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace
myStartupHook :: X ()
myStartupHook = do
spawn "killall conky" -- kill current conky on each restart
spawn "killall trayer" -- kill current trayer on each restart
spawnOnce "lxsession"
spawnOnce "picom"
spawnOnce "nm-applet"
spawnOnce "volumeicon"
spawnOnce "/usr/bin/emacs --daemon" -- emacs daemon for the emacsclient
spawnOnce "xargs xwallpaper --stretch < ~/.cache/wall"
spawnOnce ("conky -c $HOME/.config/conky/xmonad/" ++ colorScheme ++ "-01.conkyrc")
spawnOnce ("killall trayer || trayer --edge top --align right --widthtype request --padding 6 --SetDockType true --SetPartialStrut true --expand true --monitor 1 --transparent true --alpha 0 " ++ colorTrayer ++ " --height 22")
spawn ("sleep 2 && conky -c $HOME/.config/conky/xmonad/" ++ colorScheme ++ "-01.conkyrc")
spawn ("sleep 2 && trayer --edge top --align right --widthtype request --padding 6 --SetDockType true --SetPartialStrut true --expand true --monitor 1 --transparent true --alpha 0 " ++ colorTrayer ++ " --height 22")
spawnOnce "xargs xwallpaper --stretch < ~/.cache/wall"
-- spawnOnce "~/.fehbg &" -- set last saved feh wallpaper
-- spawnOnce "feh --randomize --bg-fill ~/wallpapers/*" -- feh set random wallpaper
-- spawnOnce "nitrogen --restore &" -- if you prefer nitrogen to feh