diff options
author | Ryan Kavanagh <rak@rak.ac> | 2023-02-14 11:57:47 -0500 |
---|---|---|
committer | Ryan Kavanagh <rak@rak.ac> | 2023-02-14 11:57:47 -0500 |
commit | 9c1fdc409225718a1d1c26d5954e682a4355a6c7 (patch) | |
tree | 4bfa4fc1228d69d5ef1b12e7a99b7dc7b36d0ee0 | |
parent | whitespace fixup (diff) |
dzen2 dies
-rw-r--r-- | dot_xmonad/xmonad.hs.tmpl | 33 |
1 files changed, 2 insertions, 31 deletions
diff --git a/dot_xmonad/xmonad.hs.tmpl b/dot_xmonad/xmonad.hs.tmpl index d3f96d3..d3443fa 100644 --- a/dot_xmonad/xmonad.hs.tmpl +++ b/dot_xmonad/xmonad.hs.tmpl @@ -353,33 +353,6 @@ myLayout = mkToggle (single MIRROR) (smartBorders $ toggleLayouts Full delta = 3/100 ratio = 1/2 -------------------- --- STATUS BAR -------------------- - -statusBarCmd = "dzen2" ++ - " -dock" ++ - " -bg '" ++ colorBlack ++ "'" ++ - " -fg '" ++ colorBlue ++ "'" ++ - " -sa c" ++ - " -fn '" ++ xftFont ++ "'" ++ - " -w 925 -x 0 -y 0 -ta l -e ''" - --- dynamiclog pretty printer for dzen -mPP h = def - { ppCurrent = dzenColor colorOrange colorBlack - , ppVisible = dzenColor colorGreen colorBlack - , ppHidden = dzenColor colorBlue colorBlack - , ppUrgent = dzenColor colorRed colorBlack . wrap "[" "]" - , ppSep = dzenColor "grey60" colorBlack " ^r(1x8) " - , ppTitle = dzenColor colorWhite colorBlack . trim - , ppOrder = \(ws:l:t:d:b:o) -> [b,d,ws,l,t] ++ o - , ppExtras = [date "%H:%M:%S", batteryCheck] - , ppOutput = hPutStrLn h - } - where - batteryCheck = logCmd ("${HOME}/.dzen/battery.sh") - --------------------- -- GENERAL CONFIG -------------------- @@ -404,7 +377,7 @@ myManageHook = composeAll . concat $ music = ["pavucontrol", "Pavucontrol"] xconsole = ["xconsole", "XConsole"] -myConfig dzenPipe = docks $ def { +myConfig = docks $ def { workspaces = myWorkspaces , modMask = myMod , terminal = myTerminal @@ -416,12 +389,10 @@ myConfig dzenPipe = docks $ def { , mouseBindings = myMouseBindings , keys = \x -> (fromList $ mykeys x) `union` dvorakify (keys def x) - , logHook = dynamicLogWithPP $ mPP dzenPipe } main = do - dzenPipe <- spawnPipe statusBarCmd path <- getEnv "PATH" home <- getEnv "HOME" setEnv "PATH" (home ++ "/bin:" ++ path) - xmonad $ myConfig dzenPipe + xmonad $ myConfig |