[elpa] externals/disk-usage c44cc97 01/26: Set default for directory-size-function dynamically

[Pierre Neidhardt]

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

    Set default for directory-size-function dynamically
---
 disk-usage.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/disk-usage.el b/disk-usage.el
index e3085ff..d5c8629 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -65,7 +65,13 @@
   "Whether to kill the current `disk-usage' buffer before moving directory."
   :type 'boolean)
 
-(defcustom disk-usage--directory-size-function 
#'disk-usage--directory-size-with-du
+(defvar disk-usage--du-command "du")
+(defvar disk-usage--du-args "-sb")
+(defvar disk-usage--find-command "find")
+
+(defcustom disk-usage--directory-size-function (if (executable-find 
disk-usage--du-command)
+                                                   
#'disk-usage--directory-size-with-du
+                                                   
#'disk-usage--directory-size-with-emacs)
   "Function that returns the total disk usage of the directory passed as 
argument."
   :type '(choice (function :tag "Native (slow)" 
disk-usage--directory-size-with-emacs)
                  (function :tag "System \"du\"" 
disk-usage--directory-size-with-du)))
@@ -141,10 +147,6 @@
                                              :children (- (length 
(directory-files path)) 2)))
         (list (disk-usage--file-info-make :size 0 :name directory)))))
 
-(defvar disk-usage--du-command "du")
-(defvar disk-usage--du-args "-sb")
-(defvar disk-usage--find-command "find")
-
 (defun disk-usage--list-recursively (directory)
   "This is the equivalent of running the shell command
 $ find . -type f -exec du -sb {} +"