[elpa] externals/disk-usage ea2bcd2 23/26: Set du-command dynamically for BSD/macOS and make command settings customizable

[Pierre Neidhardt]

branch: externals/disk-usage
commit ea2bcd27fd3f4e9eef7028e0ddb6093dde370903
Author: Pierre Neidhardt <address@hidden>
Commit: Pierre Neidhardt <address@hidden>

    Set du-command dynamically for BSD/macOS and make command settings 
customizable
---
 disk-usage.el | 19 +++++++++++++++----
 readme.org    |  2 ++
 2 files changed, 17 insertions(+), 4 deletions(-)

diff --git a/disk-usage.el b/disk-usage.el
index 63b7fd9..1888a67 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -26,6 +26,9 @@
 
 ;;; Commentary:
 ;;
+;; Warning: BSD and macOS users need `gdu`, the "GNU du" from the "GNU
+;; coreutils".
+;;
 ;; Disk Usage is a file system analyzer: it offers a tabulated view of file
 ;; listings sorted by size.  Directory sizes are computed recursively.  The 
results
 ;; are cached for speed.
@@ -35,7 +38,7 @@
 ;; `disk-usage-dired-at-point' to open a `dired' buffer for the current
 ;; directory.
 ;;
-;; Instead of displaying only the current folder, ~disk-usage~ can also display
+;; Instead of displaying only the current folder, `disk-usage' can also display
 ;; files in all subfolders recursively with `disk-usage-toggle-recursive'.
 ;;
 ;; Marked files can be trashed with `disk-usage-delete-marked-files'.  When
@@ -75,9 +78,17 @@
   "Whether to kill the current `disk-usage' buffer before moving directory."
   :type 'boolean)
 
-(defvar disk-usage--du-command "du")
-(defvar disk-usage--du-args "-sb")
-(defvar disk-usage--find-command "find")
+(defcustom disk-usage--du-command (if (member system-type '(gnu gnu/linux 
gnu/kfreebsd))
+                                      "du"
+                                    "gdu")
+  "Non-GNU users need GNU's `du' for the `-b' flag.  See 
`disk-usage--du-args'."
+  :type 'string)
+(defcustom disk-usage--du-args "-sb"
+  "Non-GNU users need GNU's `du' for the `-b' flag.  See 
`disk-usage--du-command'."
+  :type 'string)
+(defcustom disk-usage--find-command "find"
+  "The `find' executable.  This is required for recursive listings."
+  :type 'string)
 
 (defcustom disk-usage--directory-size-function
   (if (executable-find disk-usage--du-command)
diff --git a/readme.org b/readme.org
index 596cb11..e1ad843 100644
--- a/readme.org
+++ b/readme.org
@@ -22,6 +22,8 @@ Load the package with
 
 : (require 'disk-usage)
 
+Warning: BSD and macOS users need `gdu`, the "GNU du" from the "GNU coreutils".
+
 * Features
 
 Run ~disk-usage~ or ~disk-usage-here~ to display a listing.  See 
~describe-mode~