Commits

Anonymous committed 875b9b0

Added load-time counter

Comments (0)

Files changed (1)

 (server-start)
 
+(defconst emacs-start-time (current-time))
+
 ;; Emacs gurus don't need no stinking scroll bars & widgets
 (scroll-bar-mode -1)
 (menu-bar-mode -1)
 (tool-bar-mode -1)
 (tooltip-mode -1)
+
 ;; maximize window at startup
 (defun maximize-frame ()
   "Maximizes the active frame in Windows"
 
 ;; autoopen files
 (find-file "~/.emacs.d/init.el")
+
+;;; post init.
+(when window-system
+  (let ((elapsed (float-time (time-subtract (current-time)
+                                            emacs-start-time))))
+    (message "Loading %s...done (%.3fs)" load-file-name elapsed))
+
+  (add-hook 'after-init-hook
+            `(lambda ()
+               (let ((elapsed (float-time (time-subtract (current-time)
+                                                         emacs-start-time))))
+                 (message "Loading %s...done (%.3fs) [after-init]"
+                          ,load-file-name elapsed)))
+            t))