(ls-lisp-format-file-size): New function to implement "-h" switch.

(ls-lisp-format): Use it.

1 files changed, 12 insertions, 1 deletions

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 1d0ace7613e..54c76a9d725 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -65,6 +65,8 @@
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))
+
 (defgroup ls-lisp nil
   "Emulate the ls program completely in Emacs Lisp."
   :version "21.1"
@@ -533,7 +535,7 @@ SWITCHES, TIME-INDEX and NOW give the full switch list and time data."
                         (if group
                             (format " %-8s" group)
                           (format " %-8d" gid))))))
-            (format (if (floatp file-size) " %8.0f" " %8d") file-size)
+            (ls-lisp-format-file-size file-size (memq ?h switches))
             " "
             (ls-lisp-format-time file-attr time-index now)
             " "
@@ -587,6 +589,15 @@ All ls time options, namely c, t and u, are handled."
            time))
       (error "Unk  0  0000"))))
 
+(defun ls-lisp-format-file-size (file-size human-readable)
+  (if (or (not human-readable)
+          (< file-size 1024))
+      (format (if (floatp file-size) " %8.0f" " %8d") file-size)
+    (do ((file-size (/ file-size 1024.0) (/ file-size 1024.0))
+         ;; kilo, mega, giga, tera, peta, exa
+         (post-fixes (list "k" "M" "G" "T" "P" "E") (cdr post-fixes)))
+        ((< file-size 1024) (format " %7.0f%s"  file-size (car post-fixes))))))
+
 (provide 'ls-lisp)
 
 ;;; ls-lisp.el ends here