diff --git a/modules/home/users/msyds/emacs/init.el b/modules/home/users/msyds/emacs/init.el index e1d162b..cb1f311 100644 --- a/modules/home/users/msyds/emacs/init.el +++ b/modules/home/users/msyds/emacs/init.el @@ -44,7 +44,8 @@ syd/ptemplate syd/popups syd/pdf - syd/project)) + syd/project + syd/display-startup-time)) (defun syd-random-permutation (lst &optional seed) "Return a random permutation of list LST using SEED as the random state. The diff --git a/modules/home/users/msyds/emacs/lisp/syd/display-startup-time.el b/modules/home/users/msyds/emacs/lisp/syd/display-startup-time.el new file mode 100644 index 0000000..ff341fe --- /dev/null +++ b/modules/home/users/msyds/emacs/lisp/syd/display-startup-time.el @@ -0,0 +1,14 @@ +;;; -*- 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)