diff --git a/user/wm/xmonad/xmonad.hs b/user/wm/xmonad/xmonad.hs index 53ee1a5..cbf2034 100644 --- a/user/wm/xmonad/xmonad.hs +++ b/user/wm/xmonad/xmonad.hs @@ -428,10 +428,6 @@ myNavigation2DConfig = def {layoutNavigation = [("Tall", hybridOf sideNavigation , floatNavigation = hybridOf lineNavigation centerNavigation , screenNavigation = hybridOf lineNavigation centerNavigation} --- Startup hook -myStartupHook = do - spawnOnce ("~/.config/xmonad/startup.sh '" ++ colorBg ++ "' '" ++ colorFg ++ "' '" ++ colorFocus ++ "' '" ++ colorSecondary ++ "'") - --myPP = def { ppCurrent = xmobarColor colorFocus "" } myPP = xmobarPP { ppTitle = xmobarColor colorFocus "", ppCurrent = xmobarStripTags ["NSP"] . xmobarColor colorFocus "", @@ -443,6 +439,10 @@ myPP = xmobarPP { ppTitle = xmobarColor colorFocus "", } mySB = statusBarProp "xmobar" (pure myPP) +-- Startup hook +myStartupHook = do + spawnOnce ("~/.config/xmonad/startup.sh '" ++ colorBg ++ "' '" ++ colorFg ++ "' '" ++ colorFocus ++ "' '" ++ colorSecondary ++ "'") + -- Now run xmonad with all the defaults we set up. main = do spawn ("xmobar -x 0") diff --git a/user/wm/xmonad/xmonad.org b/user/wm/xmonad/xmonad.org index 6b3b794..1ae02e7 100644 --- a/user/wm/xmonad/xmonad.org +++ b/user/wm/xmonad/xmonad.org @@ -611,6 +611,20 @@ myNavigation2DConfig = def {layoutNavigation = [("Tall", hybridOf sideNavigation #+END_SRC +*** New Xmobar Setup +#+BEGIN_SRC haskell :tangle xmonad.hs +--myPP = def { ppCurrent = xmobarColor colorFocus "" } +myPP = xmobarPP { ppTitle = xmobarColor colorFocus "", + ppCurrent = xmobarStripTags ["NSP"] . xmobarColor colorFocus "", + ppVisible = xmobarStripTags ["NSP"] . xmobarColor colorSecondary "", + ppHidden = xmobarStripTags ["NSP"] . xmobarColor colorFg "", + ppHiddenNoWindows = xmobarStripTags ["NSP"] . xmobarColor color01 "", + ppOrder = \(ws : _) -> [ws], + ppSep = " " + } +mySB = statusBarProp "xmobar" (pure myPP) + +#+END_SRC *** Startup Script I have a startup script at =~/.xmonad/startup.sh= which starts various apps and sets up a few things. In my xmonad config, it is autostarted by setting a =startupHook=. #+BEGIN_SRC haskell :tangle xmonad.hs @@ -667,20 +681,6 @@ protonmail-bridge --no-window rm -rf ~/org & gnome-keyring-daemon --daemonize --login & gnome-keyring-daemon --start --components=secrets & -#+END_SRC -*** New Xmobar Setup -#+BEGIN_SRC haskell :tangle xmonad.hs ---myPP = def { ppCurrent = xmobarColor colorFocus "" } -myPP = xmobarPP { ppTitle = xmobarColor colorFocus "", - ppCurrent = xmobarStripTags ["NSP"] . xmobarColor colorFocus "", - ppVisible = xmobarStripTags ["NSP"] . xmobarColor colorSecondary "", - ppHidden = xmobarStripTags ["NSP"] . xmobarColor colorFg "", - ppHiddenNoWindows = xmobarStripTags ["NSP"] . xmobarColor color01 "", - ppOrder = \(ws : _) -> [ws], - ppSep = " " - } -mySB = statusBarProp "xmobar" (pure myPP) - #+END_SRC ** Main Lastly, xmonad is started with all of the [[Settings][settings set up as variables]]. First xmobar is setup with =spawnPipe= so that it has access to the [[Workspaces][workspaces from xmonad]]. Then xmonad is executed with the settings.