Function: chart--directory-size

chart--directory-size is a byte-compiled function defined in chart.el.gz.

Signature

(chart--directory-size DIR)

Documentation

Compute total size of files in directory DIR and its subdirectories.

DIR is assumed to be a directory, verified by the caller.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/chart.el.gz
(defun chart--directory-size (dir)
  "Compute total size of files in directory DIR and its subdirectories.
DIR is assumed to be a directory, verified by the caller."
  (let ((size 0))
    (dolist (file (directory-files-recursively dir "" t))
      (let ((fsize (nth 7 (file-attributes file))))
        (if (> fsize 0)
            (setq size
                  (+ size (chart--file-size fsize))))))
    size))