From: Helmut Eller <eller.helmut@gmail.com>
To: 65251@debbugs.gnu.org
Subject: bug#65251: 30.0.50; Duration in compilation buffer
Date: Sat, 12 Aug 2023 20:30:51 +0200 [thread overview]
Message-ID: <m2edk8azac.fsf@gmail.com> (raw)
[-- Attachment #1: Type: text/plain, Size: 274 bytes --]
In the *compilation* buffer, we see timestamps when the compilation
started and finished. It would be nice to also see how long the
compilation command took. The attached patch does that. It looks like
this:
Compilation finished at Sat Aug 12 20:23:57, 2.52s
Helmut
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-When-a-compilation-finishes-show-how-long-it-took.patch --]
[-- Type: text/x-diff, Size: 2131 bytes --]
From d6bdf293287a5f252de0cf2dd00cfeaff1c02f80 Mon Sep 17 00:00:00 2001
From: Helmut Eller <eller.helmut@gmail.com>
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
next reply other threads:[~2023-08-12 18:30 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2023-08-12 18:30 Helmut Eller [this message]
2023-08-16 19:15 ` bug#65251: 30.0.50; Duration in compilation buffer Mattias Engdegård
2023-08-16 22:36 ` Helmut Eller
2023-08-17 5:33 ` Eli Zaretskii
2023-08-17 5:55 ` Helmut Eller
2023-08-17 6:05 ` Eli Zaretskii
2023-08-17 18:48 ` Helmut Eller
2023-08-18 12:06 ` Mattias Engdegård
2023-08-18 20:55 ` Helmut Eller
2023-08-19 5:54 ` Eli Zaretskii
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m2edk8azac.fsf@gmail.com \
--to=eller.helmut@gmail.com \
--cc=65251@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.