15 lines
431 B
EmacsLisp
15 lines
431 B
EmacsLisp
;;; syd-display-startup-time.el -*- lexical-binding: t; -*-
|
|
|
|
(defun syd-display-startup-time ()
|
|
(message "Emacs loaded in %s with %d garbage collections."
|
|
(format "%.3f seconds"
|
|
(float-time
|
|
(time-subtract after-init-time before-init-time)))
|
|
gcs-done))
|
|
|
|
(use-package emacs
|
|
:hook
|
|
(emacs-startup-hook . syd-display-startup-time))
|
|
|
|
(provide 'syd-display-startup-time)
|