taffybar: add CPU widget and advance local pin

This commit is contained in:
org-agenda-api
2026-03-03 11:51:42 -08:00
committed by Kat Huang
parent 3ee63d7ef6
commit f32eb16ed0
3 changed files with 21 additions and 3 deletions

View File

@@ -317,8 +317,8 @@
"xmonad-contrib": "xmonad-contrib" "xmonad-contrib": "xmonad-contrib"
}, },
"locked": { "locked": {
"lastModified": 1772010218, "lastModified": 1772138985,
"narHash": "sha256-UvV+Ea516CC9Q98LalEGh6xWdd/RVGOo2cYYSbq1+Go=", "narHash": "sha256-5nv2ZcQW+lqTO7Idri1Zd5uZI6DS3t5OSVOAqWvg5D4=",
"path": "/home/imalison/dotfiles/dotfiles/config/taffybar/taffybar", "path": "/home/imalison/dotfiles/dotfiles/config/taffybar/taffybar",
"type": "path" "type": "path"
}, },

View File

@@ -44,6 +44,8 @@ import System.Taffybar.SimpleConfig
import System.Taffybar.Util (getPixbufFromFilePath, maybeTCombine, postGUIASync, (<|||>)) import System.Taffybar.Util (getPixbufFromFilePath, maybeTCombine, postGUIASync, (<|||>))
import System.Taffybar.Widget import System.Taffybar.Widget
import qualified System.Taffybar.Widget.ASUS as ASUS import qualified System.Taffybar.Widget.ASUS as ASUS
import System.Taffybar.Widget.CPUMonitor (cpuMonitorNew)
import System.Taffybar.Widget.Generic.Graph (GraphConfig (..), GraphDirection (..), GraphStyle (..), defaultGraphConfig)
import qualified System.Taffybar.Widget.NetworkManager as NetworkManager import qualified System.Taffybar.Widget.NetworkManager as NetworkManager
import qualified System.Taffybar.Widget.PulseAudio as PulseAudio import qualified System.Taffybar.Widget.PulseAudio as PulseAudio
import System.Taffybar.Widget.SNIMenu (withNmAppletMenu) import System.Taffybar.Widget.SNIMenu (withNmAppletMenu)
@@ -482,6 +484,20 @@ sunLockWidget :: TaffyIO Gtk.Widget
sunLockWidget = sunLockWidget =
stackInPill "sun-lock" [simplifiedWlsunsetWidget, simplifiedScreenLockWidget] stackInPill "sun-lock" [simplifiedWlsunsetWidget, simplifiedScreenLockWidget]
cpuWidget :: TaffyIO Gtk.Widget
cpuWidget =
decorateWithClassAndBoxM "cpu" $
liftIO $
cpuMonitorNew
defaultGraphConfig
{ graphDataColors = [(0, 1, 0.5, 0.8), (1, 0, 0, 0.5)],
graphLabel = Just "CPU",
graphWidth = 50,
graphDirection = LEFT_TO_RIGHT
}
1.0
"cpu"
wakeupDebugWidget :: TaffyIO Gtk.Widget wakeupDebugWidget :: TaffyIO Gtk.Widget
wakeupDebugWidget = wakeupDebugWidget =
decorateWithClassAndBoxM "wakeup-debug" wakeupDebugWidgetNew decorateWithClassAndBoxM "wakeup-debug" wakeupDebugWidgetNew
@@ -544,6 +560,7 @@ endWidgetsForHost hostName =
let baseEndWidgets = let baseEndWidgets =
[ sniTrayWidget, [ sniTrayWidget,
audioWidget, audioWidget,
cpuWidget,
ramSwapWidget, ramSwapWidget,
diskUsageWidget, diskUsageWidget,
networkWidget, networkWidget,
@@ -555,6 +572,7 @@ endWidgetsForHost hostName =
sniTrayWidget, sniTrayWidget,
asusDiskUsageWidget, asusDiskUsageWidget,
audioBacklightWidget, audioBacklightWidget,
cpuWidget,
ramSwapWidget, ramSwapWidget,
sunLockWidget, sunLockWidget,
mprisWidget mprisWidget