change xmobar script times, and change xmonad layout casing. and add circle layout

This commit is contained in:
frosty 2024-07-05 21:08:04 -04:00
parent bab9f85e2c
commit df1c920d26
2 changed files with 15 additions and 11 deletions

View file

@ -4,15 +4,15 @@ Config
, bgColor = "#121212"
, fgColor = "#cccccc"
, position = Top
, template = " %XMonadLog% }{ %network% <fc=#777777>:</fc> VOL %volume% <fc=#777777>:</fc> %battery% <fc=#777777>:</fc> CPU %cpu% <fc=#777777>:</fc> RAM %memory% <fc=#777777>:</fc> %load% <fc=#777777>:</fc> <fc=#f7e83b>%date%</fc> "
, template = " %XMonadLog% }{ %network% <fc=#777777>|</fc> VOL %volume% <fc=#777777>|</fc> %battery% <fc=#777777>|</fc> CPU %cpu% <fc=#777777>|</fc> RAM %memory% <fc=#777777>|</fc> %load% <fc=#777777>|</fc> <fc=#f7e83b>%date%</fc> "
, commands =
[ Run XMonadLog
, Run Com "monitors" ["network"] "network" 6000
, Run PipeReader "/tmp/pipe-volume" "volume"
, Run Com "monitors" ["battery"] "battery" 36000
, Run Com "monitors" ["battery"] "battery" 3600
, Run Com "monitors" ["cpu"] "cpu" 50
, Run Com "monitors" ["memory"] "memory" 50
, Run Com "monitors" ["load"] "load" 6000
, Run Com "monitors" ["load"] "load" 600
, Run Date "%d/%m/%Y %H:%M:%S" "date" 10
]
}

View file

@ -1,4 +1,5 @@
import XMonad
import XMonad.Layout.Circle
import XMonad.Layout.Grid
import XMonad.Layout.LayoutModifier
import XMonad.Layout.NoBorders (noBorders, smartBorders)
@ -57,7 +58,7 @@ myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
, ((modMask, xK_t), spawnTerminal "ncmpcpp")
, ((modMask .|. controlMask, xK_e), spawnTerminal "ncspot")
, ((modMask, xK_v), spawnTerminal "pulsemixer")
, ((modMask .|. controlMask, xK_t), spawn "pavucontrol")
, ((modMask .|. controlMask, xK_y), spawn "pavucontrol")
, ((modMask .|. controlMask, xK_semicolon), spawn "simplescreenrecorder")
, ((modMask .|. controlMask, xK_apostrophe), spawn "obs")
, ((modMask .|. controlMask, xK_o), spawnTerminal "cava")
@ -100,12 +101,14 @@ myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
-- Layouts
, ((modMask, xK_a), submap . M.fromList $
[ ((0, xK_t), sendMessage $ JumpToLayout "tall")
, ((0, xK_y), sendMessage $ JumpToLayout "wide")
, ((0, xK_g), sendMessage $ JumpToLayout "grid")
, ((0, xK_a), sendMessage $ NextLayout)
[ ((modMask, xK_t), sendMessage $ JumpToLayout "Tall")
, ((modMask, xK_y), sendMessage $ JumpToLayout "Wide")
, ((modMask, xK_g), sendMessage $ JumpToLayout "Grid")
, ((modMask, xK_c), sendMessage $ JumpToLayout "Circle")
, ((modMask, xK_a), sendMessage $ NextLayout)
]
)
, ((modMask, xK_b), sendMessage ToggleStruts)
-- Window focus/swap
, ((modMask, xK_j), windows W.focusDown)
@ -115,7 +118,6 @@ myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
-- Master control
, ((modMask, xK_h), sendMessage Shrink)
, ((modMask, xK_b), sendMessage ToggleStruts)
, ((modMask, xK_l), sendMessage Expand)
, ((modMask, xK_i), sendMessage $ IncMasterN 1)
, ((modMask, xK_d), sendMessage $ IncMasterN $ -1)
@ -185,7 +187,7 @@ myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
myLayoutHook =
avoidStruts
$ tall ||| wide ||| grid
$ tall ||| wide ||| grid ||| circle
where
tall = named "Tall"
$ Tall 1 (3/100) (1/2)
@ -193,6 +195,8 @@ myLayoutHook =
$ Mirror tall
grid = named "Grid"
$ Grid
circle = named "Circle"
$ Circle
mySWNConfig :: SWNConfig
mySWNConfig = def
@ -243,7 +247,7 @@ myStartupHook = do
myPP :: PP
myPP = def
{ ppSep = sep " : "
{ ppSep = sep " | "
, ppCurrent = current . wrap "" "*"
, ppHidden = noScratchPad
, ppHiddenNoWindows = \_ -> ""