frosty/dotfiles
1
0
Fork 0
mirror of https://codeberg.org/frosty/dotfiles.git synced 2024-09-19 11:47:09 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

update xmo* configs to both be cabal projects and easier to reproduce

Browse source
This commit is contained in:
frosty 2024-07-12 12:21:25 -04:00
parent 0b03e029a9
commit 7c65668266
7 changed files with 52 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
.config/xmobar/.gitignore vendored Normal file
View file

@ -0,0 +1 @@
/dist-*

10
.config/xmobar/xmobar-frosty.cabal Normal file
View file

@ -0,0 +1,10 @@
cabal-version: 3.0
name: xmobar-frosty
version: 0.1.0.0
build-type: Simple
executable xmobar
main-is: xmobar.hs
build-depends: base ^>=4.17.2.1
, xmobar >=0.48.1
default-language: Haskell2010

24
.config/xmobar/xmobar.hs Normal file
View file

@ -0,0 +1,24 @@
import Xmobar
config :: Config
config = defaultConfig
{ font = "Terminus 8"
, textOffset = 0
, 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> "
, commands =
[ Run XMonadLog
, Run $ Com "monitors" ["network"] "network" 6000
, Run $ PipeReader "/tmp/pipe-volume" "volume"
, Run $ Com "monitors" ["battery"] "battery" 3600
, Run $ Com "monitors" ["cpu"] "cpu" 50
, Run $ Com "monitors" ["memory"] "memory" 50
, Run $ Com "monitors" ["load"] "load" 600
, Run $ Date "%d/%m/%Y %H:%M:%S" "date" 10
]
}
main :: IO ()
main = xmobar config

20
.config/xmobar/xmobarrc
View file

@ -1,20 +0,0 @@
Config
{ font = "Terminus 8"
, textOffset = 0
, 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> "
, commands =
[ Run XMonadLog
, Run Com "monitors" ["network"] "network" 6000
, Run PipeReader "/tmp/pipe-volume" "volume"
, Run Com "monitors" ["battery"] "battery" 3600
, Run Com "monitors" ["cpu"] "cpu" 50
, Run Com "monitors" ["memory"] "memory" 50
, Run Com "monitors" ["load"] "load" 600
, Run Date "%d/%m/%Y %H:%M:%S" "date" 10
]
}
-- vim:ft=haskell

1
.config/xmonad/.gitignore vendored Normal file
View file

@ -0,0 +1 @@
/dist-*

13
.config/xmonad/xmonad-frosty.cabal Normal file
View file

@ -0,0 +1,13 @@
cabal-version: 3.0
name: xmonad-frosty
version: 0.1.0.0
build-type: Simple
executable xmonad
main-is: xmonad.hs
build-depends: base ^>=4.17.2.1
, xmonad >=0.18
, xmonad-contrib >=0.18
, containers
, X11
default-language: Haskell2010

9
.config/xmonad/xmonad.hs
View file

@ -1,5 +1,5 @@
import XMonad
import XMonad.Layout.Circle
import XMonad.Layout.CircleEx
import XMonad.Layout.Grid
import XMonad.Layout.LayoutModifier
import XMonad.Layout.NoBorders (noBorders, smartBorders)
@ -54,7 +54,7 @@ myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
, ((modMask, xK_w), spawn "firefox")
, ((modMask .|. controlMask, xK_q), spawn "qutebrowser")
, ((modMask, xK_e), spawnTerminal myEditor)
, ((modMask, xK_f), spawnTerminal "nnn")
, ((modMask, xK_f), spawnTerminal "lf")
, ((modMask, xK_t), spawnTerminal "ncmpcpp")
, ((modMask .|. controlMask, xK_e), spawnTerminal "ncspot")
, ((modMask, xK_v), spawnTerminal "pulsemixer")
@ -104,7 +104,6 @@ myKeys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
[ ((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)
]
)
@ -187,7 +186,7 @@ myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
myLayoutHook =
avoidStruts
$ tall ||| wide ||| grid ||| circle
$ tall ||| wide ||| grid
where
tall = named "Tall"
$ Tall 1 (3/100) (1/2)
@ -195,8 +194,6 @@ myLayoutHook =
$ Mirror tall
grid = named "Grid"
$ Grid
circle = named "Circle"
$ Circle
mySWNConfig :: SWNConfig
mySWNConfig = def