From f2fe92d06fbc19c77659d99a2de58c2dcb0b95f4 Mon Sep 17 00:00:00 2001 From: Zedhugh Chen Date: Sat, 29 Oct 2022 16:16:46 +0800 Subject: [PATCH] customize welcome message --- early-init.el | 20 ++++++++++++++++++++ init.el | 3 --- 2 files changed, 20 insertions(+), 3 deletions(-) diff --git a/early-init.el b/early-init.el index 9dab243..5aba903 100644 --- a/early-init.el +++ b/early-init.el @@ -14,3 +14,23 @@ (when (fboundp 'scroll-bar-mode) (scroll-bar-mode -1)) + + +(defun creature/welcom-message () + (let (init-time startup-time) + (setq init-time (time-since before-init-time)) + (setq startup-time + (time-subtract after-init-time before-init-time)) + (setq initial-scratch-message + (format ";; startup: %fs -- init: %fs\n\ +;; Happy hacking %s - Emacs loves you.\n\n" + (float-time startup-time) + (float-time init-time) + (or (user-login-name) "user")))) + + (with-current-buffer "*scratch*" + (erase-buffer) + (insert initial-scratch-message) + (set-buffer-modified-p nil))) + +(add-hook 'emacs-startup-hook #'creature/welcom-message 1999) diff --git a/init.el b/init.el index 62465d0..5e38d10 100644 --- a/init.el +++ b/init.el @@ -128,9 +128,6 @@ If freezing sometimes, decrease it. If stuttering, increase it.") (when (file-exists-p custom-file) (load custom-file 'noerror)) -(add-hook 'emacs-startup-hook - (lambda () - (message (emacs-init-time)))) (with-eval-after-load 'package (add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/")))