From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Eli Zaretskii Newsgroups: gmane.emacs.help Subject: Re: Converting an Integer into Human Readable String Date: Fri, 08 Apr 2011 18:19:01 +0300 Message-ID: <83pqowu5y2.fsf@gnu.org> References: <4fa1ed35-b35b-4c8d-bfca-d7fae8da913b@glegroupsg2000goo.googlegroups.com> <87vcyphswl.fsf@kuiper.lan.informatimago.com> NNTP-Posting-Host: lo.gmane.org X-Trace: dough.gmane.org 1302277359 18461 80.91.229.12 (8 Apr 2011 15:42:39 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Fri, 8 Apr 2011 15:42:39 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Fri Apr 08 17:42:34 2011 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Q8DpP-0000Ni-Te for geh-help-gnu-emacs@m.gmane.org; Fri, 08 Apr 2011 17:42:32 +0200 Original-Received: from localhost ([127.0.0.1]:48001 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Q8Dff-0004Gn-IC for geh-help-gnu-emacs@m.gmane.org; Fri, 08 Apr 2011 11:32:27 -0400 Original-Received: from [140.186.70.92] (port=47941 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Q8DZg-00018N-Na for help-gnu-emacs@gnu.org; Fri, 08 Apr 2011 11:26:18 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Q8DUg-0005aH-3w for help-gnu-emacs@gnu.org; Fri, 08 Apr 2011 11:21:07 -0400 Original-Received: from mtaout20.012.net.il ([80.179.55.166]:49029) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Q8DUf-0005Zo-Tn for help-gnu-emacs@gnu.org; Fri, 08 Apr 2011 11:21:06 -0400 Original-Received: from conversion-daemon.a-mtaout20.012.net.il by a-mtaout20.012.net.il (HyperSendmail v2007.08) id <0LJC00D00AFXFH00@a-mtaout20.012.net.il> for help-gnu-emacs@gnu.org; Fri, 08 Apr 2011 18:21:03 +0300 (IDT) Original-Received: from HOME-C4E4A596F7 ([84.229.239.68]) by a-mtaout20.012.net.il (HyperSendmail v2007.08) with ESMTPA id <0LJC00C8MAN2JEC0@a-mtaout20.012.net.il> for help-gnu-emacs@gnu.org; Fri, 08 Apr 2011 18:21:03 +0300 (IDT) In-reply-to: <87vcyphswl.fsf@kuiper.lan.informatimago.com> X-012-Sender: halo1@inter.net.il X-detected-operating-system: by eggs.gnu.org: Solaris 10 (beta) X-Received-From: 80.179.55.166 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:80709 Archived-At: > From: "Pascal J. Bourguignon" > Date: Fri, 08 Apr 2011 13:41:30 +0200 > > Instead, you could have had some fun, and implement yourself the > required function. Well, now you've got only what you merit, here I > had all the fun, you can have the function: > > (format-human-readable-big-number 123456789012 > *normal-format* > *exceptional-format* > "B" t :binary) > --> " 114.978 GiB" > > > Now, you may call this function in the places of interest in emacs. Wow! I've just installed in Emacs a much more modest variant (reproduced below for those who don't live on the bleeding edge). (defun file-size-human-readable (file-size &optional flavor) "Produce a string showing FILE-SIZE in human-readable form. Optional second argument FLAVOR controls the units and the display format: If FLAVOR is nil or omitted, each kilobyte is 1024 bytes and the produced suffixes are \"k\", \"M\", \"G\", \"T\", etc. If FLAVOR is `si', each kilobyte is 1000 bytes and the produced suffixes are \"k\", \"M\", \"G\", \"T\", etc. If FLAVOR is `iec', each kilobyte is 1024 bytes and the produced suffixes are \"KiB\", \"MiB\", \"GiB\", \"TiB\", etc." (let ((power (if (or (null flavor) (eq flavor 'iec)) 1024.0 1000.0)) (post-fixes ;; none, kilo, mega, giga, tera, peta, exa, zetta, yotta (list "" "k" "M" "G" "T" "P" "E" "Z" "Y"))) (while (and (>= file-size power) (cdr post-fixes)) (setq file-size (/ file-size power) post-fixes (cdr post-fixes))) (format "%.0f%s%s" file-size (if (and (eq flavor 'iec) (string= (car post-fixes) "k")) "K" (car post-fixes)) (if (eq flavor 'iec) "iB" ""))))