feat(emacs): display startup time

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

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)