disk module: warn color when any mount exceeds threshold (default 85%)

shell/modules/DiskModule.qml

@@ -11,6 +11,13 @@ M.BarSection {
 
     property var _mounts: S.SystemStats.diskMounts
     property int _rootPct: S.SystemStats.diskRootPct
+    readonly property int _warnThreshold: S.Modules.disk.warnThreshold ?? 85
+    readonly property bool _anyWarn: {
+        for (const m of _mounts)
+            if (m.pct >= _warnThreshold)
+                return true;
+        return false;
+    }
 
     property bool _pinned: false
     readonly property bool _anyHover: root._hovered || hoverPanel.panelHovered
@@ -31,6 +38,7 @@ M.BarSection {
 
     M.BarIcon {
         icon: "\uF0C9"
+        color: root._anyWarn ? S.Theme.base09 : root.accentColor
         anchors.verticalCenter: parent.verticalCenter
         TapHandler {
             onTapped: root._pinned = !root._pinned
@@ -39,6 +47,7 @@ M.BarSection {
     M.BarLabel {
         label: root._rootPct + "%"
         minText: "100%"
+        color: root._anyWarn ? S.Theme.base09 : root.accentColor
         anchors.verticalCenter: parent.verticalCenter
         TapHandler {
             onTapped: root._pinned = !root._pinned

shell/services/Modules.qml

@@ -70,7 +70,8 @@ QtObject {
         })
     property var disk: ({
             enable: true,
-            interval: 30000
+            interval: 30000,
+            warnThreshold: 85
         })
     property var battery: ({
             enable: true,