Add support for disk-usage v1 APPLIED

Nacho Barrientos: 1
 Add support for disk-usage

 2 files changed, 7 insertions(+), 0 deletions(-)

[PATCH] Add support for disk-usage Export this patch

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 d592fbe..382bc6f 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 d47d7c3..fa0e755 100644
--- a/modus-themes.el
+++ b/modus-themes.el
@@ -2090,6 +2090,12 @@ defconst modus-themes-faces
     `(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
-- 
2.40.0

Protesilaos Stavrou <info@protesilaos.com>

6 months ago

Thank you!  I applied your patch.