From d6bdf293287a5f252de0cf2dd00cfeaff1c02f80 Mon Sep 17 00:00:00 2001 From: Helmut Eller Date: Sat, 12 Aug 2023 19:17:43 +0200 Subject: [PATCH] When a compilation finishes, show how long it took Insert the duration, not just the timestamp. * lisp/progmodes/compile.el (compilation--start-time): New variable. (compilation-start): Set it. (compilation-handle-exit): Use it to compute the duration and insert it in human readable form. --- lisp/progmodes/compile.el | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 6d151db8a83..276c9a5d3e1 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1862,6 +1862,9 @@ compilation-insert-annotation (apply #'insert args) (put-text-property start (point) 'compilation-annotation t))) +;; The time when the compilation started. +(defvar compilation--start-time nil) + ;;;###autoload (defun compilation-start (command &optional mode name-function highlight-regexp continue) @@ -1993,6 +1996,7 @@ compilation-start mode-name (substring (current-time-string) 0 19)) command "\n") + (setq-local compilation--start-time (current-time)) (setq thisdir default-directory)) (set-buffer-modified-p nil)) ;; Pop up the compilation buffer. @@ -2480,7 +2484,15 @@ compilation-handle-exit (message "%s" (cdr status))) (if (bolp) (forward-char -1)) - (compilation-insert-annotation " at " (substring (current-time-string) 0 19)) + (compilation-insert-annotation + " at " + (substring (current-time-string) 0 19) + ", " + (let* ((secs (float-time (time-since compilation--start-time)))) + (cond ((< secs 1) (format "%.0fms" (* secs 1000))) + ((< secs 10) (format "%.2fs" secs)) + ((< secs 60) (format "%.1fs" secs)) + (t (format-seconds "%hh%mm%z%ss" secs))))) (goto-char (point-max)) ;; Prevent that message from being recognized as a compilation error. (add-text-properties omax (point) -- 2.39.2