diff options
| -rw-r--r-- | emacs.d/init.el | 6 | ||||
| -rw-r--r-- | emacs.d/lib/funcs.el | 9 |
2 files changed, 3 insertions, 12 deletions
diff --git a/emacs.d/init.el b/emacs.d/init.el index 6f6d739..a17df3a 100644 --- a/emacs.d/init.el +++ b/emacs.d/init.el @@ -1,6 +1,3 @@ -;; when did we start this session ? -(defconst emacs-start-time (current-time)) - ;; setup packages (require 'package) (setq package-user-dir (expand-file-name "var/elpa" user-emacs-directory) @@ -586,5 +583,4 @@ :mode ("\\.ya?ml\\'" . yaml-mode)) -(fc/load-time emacs-start-time) -(fc/emacs-is-ready) +(add-hook 'emacs-startup-hook #'fc/load-time) diff --git a/emacs.d/lib/funcs.el b/emacs.d/lib/funcs.el index 18899f6..0714888 100644 --- a/emacs.d/lib/funcs.el +++ b/emacs.d/lib/funcs.el @@ -1,9 +1,8 @@ ;;; funcs.el --- functions for my own usage -(defun fc/load-time (emacs-start-time) +(defun fc/load-time () "How long did it take to load the configuration." - (let ((load-time (float-time (time-subtract (current-time) emacs-start-time)))) - (message (format "Emacs loaded in %.3fs" load-time)))) + (message "Emacs init time %s" (emacs-init-time))) (defun fc/system-info () "Display system informations" @@ -14,10 +13,6 @@ system-type emacs-version)) -(defun fc/emacs-is-ready () - "Emacs is ready" - (message "Emacs is ready.")) - ;; font manipulation (defun fc/scale-up-or-down-font-size (direction) "Scale the font. If DIRECTION is positive or zero the font is scaled up, |