diff options
| author | Vidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com> | 2021-01-03 22:45:59 +0530 |
|---|---|---|
| committer | Vidhu Kant Sharma <bokuwakanojogahoshii@yahoo.com> | 2021-01-03 22:45:59 +0530 |
| commit | e73ec46ae062fe406c6eaeb9695693c1edcb0da9 (patch) | |
| tree | 8d3ab591f6abde475bc09ceb8c0379ff657024f2 /XMonad/xmonad.hs | |
| parent | 2c4b86d0bb2a8dd0379af9fcd15ee71d88b2ea0f (diff) | |
merged both lemonbars and other minor changes
Diffstat (limited to 'XMonad/xmonad.hs')
| -rw-r--r-- | XMonad/xmonad.hs | 29 |
1 files changed, 14 insertions, 15 deletions
diff --git a/XMonad/xmonad.hs b/XMonad/xmonad.hs index bd952eeb..439cdd77 100644 --- a/XMonad/xmonad.hs +++ b/XMonad/xmonad.hs @@ -16,7 +16,7 @@ import XMonad.Layout.Spacing import XMonad.Layout.LayoutModifier import XMonad.Layout.WindowNavigation as WN import XMonad.Layout.Fullscreen -import XMonad.Layout.Renamed (renamed, Rename(Replace)) +import XMonad.Layout.Renamed as R (renamed, Rename(Replace)) -- Layouts -- import XMonad.Layout.AvoidFloats @@ -46,8 +46,7 @@ import XMonad.Util.NamedScratchpad myStartupHook :: X () myStartupHook = do - spawnOnce "/home/zt/.xmonad/baraction | lemonbar -g 1366x20+0+0 -B '#171520' -p -F '#ffffff' -f 'Source Han Sans JP:size=10' -o -3 -f 'RobotoMono Nerd Font:style=Regular:size=15' -f -n 'sysinfo-bar' -o 0" --- spawnOnce "/home/zt/.config/scripts/weather" + spawnOnce "./baraction | lemonbar -b -g 466x21+800+0 -B '#171520' -F '#ffffff' -f 'Source Han Sans JP:size=10' -o -3 -f 'RobotoMono Nerd Font:style=Regular:size=15' -f -n 'notXMobar' -o 0" spawnOnce "nitrogen --restore" spawnOnce "picom" spawnOnce "deadd-notification-center" @@ -249,23 +248,23 @@ myGap = spacingRaw False (Border sGap sGap sGap sGap) True (Border wGap wGap wGa myLayouts = avoidStruts ( - renamed [Replace "BSP"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ emptyBSP) - ||| renamed [Replace "ThreeCol Mid (1)"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeColMid 1 (3/100) (1/2)) - ||| renamed [Replace "ThreeCol Mid (2)"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeColMid 2 (3/100) (1/2)) - ||| renamed [Replace "Grid"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ Grid) - ||| renamed [Replace "TwoPane"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ TwoPane (3/100) (1/2)) - ||| renamed [Replace "ThreeCol (1)"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeCol 1 (3/100) (1/2)) - ||| renamed [Replace "ThreeCol (2)"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeCol 2 (3/100) (1/2)) + renamed [R.Replace "BSP"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ emptyBSP) + ||| renamed [R.Replace "ThreeCol Mid (1)"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeColMid 1 (3/100) (1/2)) + ||| renamed [R.Replace "ThreeCol Mid (2)"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeColMid 2 (3/100) (1/2)) + ||| renamed [R.Replace "Grid"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ Grid) + ||| renamed [R.Replace "TwoPane"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ TwoPane (3/100) (1/2)) + ||| renamed [R.Replace "ThreeCol (1)"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeCol 1 (3/100) (1/2)) + ||| renamed [R.Replace "ThreeCol (2)"] (maximize $ fullscreenFocus $ windowNavigation $ myGap $ ThreeCol 2 (3/100) (1/2)) ) myLayoutHook = myLayouts -myLemonbarPP = def {ppCurrent = wrap "%{F#6c71c4}%{B#d33682}%{F-}" "%{F#d33682}%{B-}%{F-}" - , ppWsSep = " " +myLemonbarPP = def {ppCurrent = wrap "%{B#d33682}" "%{B-}" + , ppWsSep = "" , ppHidden = wrap "%{B#268bd2}" "%{B-}" , ppHiddenNoWindows = wrap "%{F#02fc45}" "%{F-}" - , ppTitle = wrap " %{B#6c71c4}%{F#f0f0f0} " " %{B-}" . shorten 75 + , ppTitle = wrap " %{B#6c71c4}%{F#f0f0f0} " " %{B-}" . shorten 60 , ppUrgent = wrap "%{B#9cfc02} " " %{B-}%{F-}" , ppLayout = wrap "%{r}%{B#99B1D5}%{F#232627} " " %{B-} " , ppSep = " " @@ -274,7 +273,7 @@ myLemonbarPP = def {ppCurrent = wrap "%{F#6c71c4}%{B#d33682}%{F-}" "%{F#d33682}% } main = do - notXMobar <- spawnPipe "lemonbar -b -g 1366x21+0+0 -B '#171520' -F '#ffffff' -f 'Source Han Sans JP:size=10' -o -3 -f 'RobotoMono Nerd Font:style=Regular:size=15' -f -n 'notXMobar' -o 0" + notXMobar <- spawnPipe "lemonbar -b -g 800x21+0+0 -B '#171520' -F '#ffffff' -f 'Source Han Sans JP:size=10' -o -3 -f 'RobotoMono Nerd Font:style=Regular:size=15' -f -n 'notXMobar' -o 0" xmonad $ docks def { terminal = myTerminal, @@ -290,5 +289,5 @@ main = do handleEventHook = fullscreenEventHook, logHook = dynamicLogWithPP myLemonbarPP { ppOutput = \x -> hPutStrLn notXMobar x}, startupHook = myStartupHook -} `additionalKeys` myKeys +} `additionalKeys` myKeys |