From 026dc563d1f64df831dc3e768a149b3bc142ef10 Mon Sep 17 00:00:00 2001 From: Bozhidar Batsov Date: Wed, 16 May 2012 14:50:30 +0300 Subject: [PATCH] show the tips after the init sequence has completed --- init.el | 5 +++-- prelude/prelude-core.el | 9 +++++++++ 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/init.el b/init.el index 57c0a97..3952ac9 100644 --- a/init.el +++ b/init.el @@ -75,7 +75,8 @@ ELPA (or MELPA).") (message "Prelude is ready to do thy bidding, Master %s!" (getenv "USER")) -;; greet the use with some useful tip -(prelude-tip-of-the-day) +(prelude-eval-after-init + ;; greet the use with some useful tip + (run-at-time 5 nil 'prelude-tip-of-the-day)) ;;; init.el ends here diff --git a/prelude/prelude-core.el b/prelude/prelude-core.el index b872a77..c76fad5 100644 --- a/prelude/prelude-core.el +++ b/prelude/prelude-core.el @@ -381,5 +381,14 @@ and so on." (interactive) (message (concat "Prelude tip: " (nth (random (length prelude-tips)) prelude-tips)))) +(defun prelude-eval-after-init (form) + "Add `(lambda () FORM)' to `after-init-hook'. + + If Emacs has already finished initialization, also eval FORM immediately." + (let ((func (list 'lambda nil form))) + (add-hook 'after-init-hook func) + (when after-init-time + (eval form)))) + (provide 'prelude-core) ;;; prelude-core.el ends here