Function: proced-format-start

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

Signature

(proced-format-start START)

Documentation

Format time START.

Source Code

;; Defined in /usr/src/emacs/lisp/proced.el.gz
(defun proced-format-start (start)
  "Format time START."
  (let ((d-start (decode-time start))
        (d-current (decode-time))
        (colon (if proced-enable-color-flag
                   (propertize ":" 'font-lock-face 'proced-time-colon)
                 ":")))
    (cond (;; process started in previous years
           (< (decoded-time-year d-start) (decoded-time-year d-current))
           (format-time-string "  %Y" start))
          ;; process started today
          ((and (= (decoded-time-day d-start) (decoded-time-day d-current))
                (= (decoded-time-month d-start) (decoded-time-month d-current)))
           (string-replace ":" colon (format-time-string " %H:%M" start)))
          (t ;; process started this year
           (format-time-string "%b %e" start)))))