[elpa] externals/modus-themes 70adc47676 1/3: Add support for disk-usage

[ELPA Syncer]

branch: externals/modus-themes
commit 70adc47676f3d92afd8268d06be6aec734de84c8
Author: Nacho Barrientos <nacho.barrientos@cern.ch>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Add support for disk-usage
    
    This patch adds support for most of the faces provided by
    disk-usage.el [0], aligning them to dired's look when possible.
    
    [0] https://elpa.gnu.org/packages/disk-usage.html
---
 doc/modus-themes.org | 1 +
 modus-themes.el      | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/doc/modus-themes.org b/doc/modus-themes.org
index d592fbeee2..382bc6f615 100644
--- a/doc/modus-themes.org
+++ b/doc/modus-themes.org
@@ -3669,6 +3669,7 @@ have lots of extensions, so the "full support" may not be 
100% true…
 + dired-narrow
 + dired-subtree
 + diredfl
++ disk-usage
 + display-fill-column-indicator-mode
 + doom-modeline
 + ediff
diff --git a/modus-themes.el b/modus-themes.el
index d47d7c3f9f..fa0e75580a 100644
--- a/modus-themes.el
+++ b/modus-themes.el
@@ -2090,6 +2090,12 @@ FG and BG are the main colors."
     `(diredfl-symlink ((,c :inherit dired-symlink)))
     `(diredfl-tagged-autofile-name ((,c :inherit (diredfl-autofile-name 
dired-marked))))
     `(diredfl-write-priv ((,c :foreground ,accent-0)))
+;;;;; disk-usage
+    `(disk-usage-inaccessible ((,c :inherit error)))
+    `(disk-usage-percent ((,c :foreground ,accent-0)))
+    `(disk-usage-size ((,c :foreground ,accent-1)))
+    `(disk-usage-symlink ((,c :inherit dired-symlink)))
+    `(disk-usage-symlink-directory ((,c :inherit dired-symlink)))
 ;;;;; display-fill-column-indicator-mode
     `(fill-column-indicator ((,c :height 1 :background ,bg-active :foreground 
,bg-active)))
 ;;;;; doom-modeline