diff --git a/.config/xmonad/xmobar-bottom.hs b/.config/xmonad/xmobar-bottom.hs
new file mode 100644
index 0000000..9ad0fee
--- /dev/null
+++ b/.config/xmonad/xmobar-bottom.hs
@@ -0,0 +1,24 @@
+import Xmobar
+
+config :: Config
+config =
+ defaultConfig
+ { font = "Terminus 8",
+ textOffset = 0,
+ bgColor = "#121212",
+ fgColor = "#cccccc",
+ position = Bottom,
+ template = " %disk-root% %disk-home% | %local-ip% | %ssid% }{ %now-playing% | %volume% ",
+ commands =
+ [ Run XMonadLog,
+ Run $ Com "monitors" ["local_ip"] "local-ip" 6000,
+ Run $ Com "monitors" ["ssid"] "ssid" 6000,
+ Run $ Com "monitors" ["disk", "/"] "disk-root" 6000,
+ Run $ Com "monitors" ["disk", "/home"] "disk-home" 6000,
+ Run $ PipeReader "/tmp/pipe-volume" "volume",
+ Run $ PipeReader "/tmp/pipe-now-playing" "now-playing"
+ ]
+ }
+
+main :: IO ()
+main = xmobar config
diff --git a/.config/xmonad/xmobar-top.hs b/.config/xmonad/xmobar-top.hs
new file mode 100644
index 0000000..7bbdda9
--- /dev/null
+++ b/.config/xmonad/xmobar-top.hs
@@ -0,0 +1,24 @@
+import Xmobar
+
+config :: Config
+config =
+ defaultConfig
+ { font = "Terminus 8",
+ textOffset = 0,
+ bgColor = "#121212",
+ fgColor = "#cccccc",
+ position = Top,
+ template = " %XMonadLog% }{ \57958 %cpu% | \61381 %memory% | %load% | %battery% | %date% ",
+ commands =
+ [ Run XMonadLog,
+ 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" 100,
+ Run $ Date "%m/%d/%Y %H:%M:%S" "date" 10
+ ]
+ }
+
+main :: IO ()
+main = xmobar config
diff --git a/.config/xmonad/xmobar.hs b/.config/xmonad/xmobar.hs
deleted file mode 100644
index 99ececc..0000000
--- a/.config/xmonad/xmobar.hs
+++ /dev/null
@@ -1,24 +0,0 @@
-import Xmobar
-
-config :: Config
-config = defaultConfig
- { font = "Terminus 8"
- , textOffset = 0
- , bgColor = "#121212"
- , fgColor = "#cccccc"
- , position = Top
- , template = " %XMonadLog% }{ %network% | VOL %volume% | %battery% | CPU %cpu% | RAM %memory% | %load% | %date% "
- , 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
diff --git a/.config/xmonad/xmonad-frosty.cabal b/.config/xmonad/xmonad-frosty.cabal
index beb8aea..5a3b5e9 100644
--- a/.config/xmonad/xmonad-frosty.cabal
+++ b/.config/xmonad/xmonad-frosty.cabal
@@ -16,8 +16,21 @@ executable xmonad
default-language: GHC2021
default-extensions: ImportQualifiedPost
-executable xmobar
- main-is: xmobar.hs
+executable xmobar-top
+ main-is: xmobar-top.hs
+ ghc-options:
+ -O2 -Wall -Wcompat -Wincomplete-record-updates
+ -Wredundant-constraints -rtsopts -threaded -with-rtsopts=-N
+
+ build-depends:
+ , base
+ , xmobar >=0.48
+
+ default-language: GHC2021
+ default-extensions: ImportQualifiedPost
+
+executable xmobar-bottom
+ main-is: xmobar-bottom.hs
ghc-options:
-O2 -Wall -Wcompat -Wincomplete-record-updates
-Wredundant-constraints -rtsopts -threaded -with-rtsopts=-N