procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(seconds-to-string): New function to pretty print time delay in seconds.

Browse source
This commit is contained in:
Sam Steingold 2014-05-12 12:14:24 -04:00
parent 79e502ca44
commit ecaf7f4dc0
2 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2014-05-12 Sam Steingold <sds@gnu.org>
* calendar/time-date.el (seconds-to-string): New function to
pretty print time delay in seconds.
2014-05-12 Stefan Monnier <monnier@iro.umontreal.ca>
* mpc.el (mpc-format): Trim Date to the year.

17
lisp/calendar/time-date.el
View file

@ -388,6 +388,23 @@ This function does not work for SECONDS greater than `most-positive-fixnum'."
t t string))))))
(replace-regexp-in-string "%%" "%" string))
(defvar seconds-to-string
(list (list 1 "ms" 0.001)
(list 100 "s" 1)
(list (* 60 100) "m" 60.0)
(list (* 3600 30) "h" 3600.0)
(list (* 3600 24 400) "d" (* 3600.0 24.0))
(list nil "y" (* 365.25 24 3600)))
"Formatting used by the function `seconds-to-string'.")
;;;###autoload
(defun seconds-to-string (delay)
"Convert the time interval in seconds to a short string."
(cond ((> 0 delay) (concat "-" (seconds-to-string (- delay))))
((= 0 delay) "0s")
(t (let ((sts seconds-to-string) here)
(while (and (car (setq here (pop sts)))
(<= (car here) delay)))
(concat (format "%.2f" (/ delay (third here))) (second here))))))
(provide 'time-date)