mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-13 01:20:28 -08:00
Code Issues Projects Releases Wiki Activity

Collecting stats in CSV files at specified intervals

Browse source
This commit is contained in:
Gerd Möllmann 2024-06-29 11:19:12 +02:00
parent ca042f5945
commit 8fcf11f145
1 changed files with 31 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

31
lisp/emacs-lisp/igc.el
View file

@ -231,4 +231,35 @@ the changes to snapshot A. See the modes's help."
(goto-char (point-min))))
(display-buffer "*igc roots*"))
(defvar igc--collect-timer nil)
(defvar igc--collect-file nil)
(defun igc-stop-collecting-stats ()
(interactive)
(when igc--collect-timer
(cancel-timer igc--collect-timer)
(setq igc--collect-timer nil)))
(defun igc--collect-stats ()
(let ((buffer (get-file-buffer igc--collect-file)))
(when buffer
(with-current-buffer buffer
(goto-char (point-max))
(when (= (point-min) (point-max))
(insert (format "\"%s\",\"%s\",\"%s\",\"%s\"\n"
"Time" "Type" "N" "Bytes")))
(cl-loop with time = (current-time-string)
for (title n bytes) in (igc-info) do
(insert (format "\"%s\",\"%s\",\"%s\",\"%s\"\n"
time title n bytes))))
(save-buffer))))
(defun igc-start-collecting-stats (file secs)
"Start collecting statistics every SECS seconds."
(interactive "FOutput file: \nnInterval (seconds): ")
(igc-stop-collecting-stats)
(setq igc--collect-file file)
(find-file-noselect file)
(setq igc--collect-timer (run-at-time nil secs #'igc--collect-stats)))
(provide 'igc)