Function: proced-format-time

proced-format-time is a byte-compiled function defined in proced.el.gz.

Signature

(proced-format-time TIME)

Documentation

Format time interval TIME.

Source Code

;; Defined in /usr/src/emacs/lisp/proced.el.gz
;;; Formatting

(defun proced-format-time (time)
  "Format time interval TIME."
  (let* ((ftime (time-convert time 'integer))
         (days (truncate ftime 86400))
         (ftime (mod ftime 86400))
         (hours (truncate ftime 3600))
         (ftime (mod ftime 3600))
         (minutes (truncate ftime 60))
         (seconds (mod ftime 60))
         (colon (if proced-enable-color-flag
                    (propertize ":" 'font-lock-face 'proced-time-colon)
                  ":")))
    (cond ((< 0 days)
           (format "%d-%02d%s%02d%s%02d" days hours colon minutes colon seconds))
          ((< 0 hours)
           (format "%02d%s%02d%s%02d" hours colon minutes colon seconds))
          (t
           (format "%02d%s%02d" minutes colon seconds)))))