From 2d4ad1812dc257e04548100f1e3574510f7eddd7 Mon Sep 17 00:00:00 2001
From: Bozhidar Batsov <bozhidar@batsov.com>
Date: Mon, 7 May 2012 18:04:03 +0300
Subject: [PATCH] added a basic tip of the day feature

---
 init.el                 |  3 +++
 prelude/prelude-core.el | 13 +++++++++++++
 2 files changed, 16 insertions(+)

diff --git a/init.el b/init.el
index 453624f..57c0a97 100644
--- a/init.el
+++ b/init.el
@@ -75,4 +75,7 @@ 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)
+
 ;;; init.el ends here
diff --git a/prelude/prelude-core.el b/prelude/prelude-core.el
index 629199f..7719d45 100644
--- a/prelude/prelude-core.el
+++ b/prelude/prelude-core.el
@@ -366,5 +366,18 @@ and so on."
            (repeat nil)))
   (intern (concat (symbol-name cmd) "-repeat")))
 
+(defvar prelude-tips
+  '("Press <C-c o> to open a file with external program."
+    "Press <C-c p f> to navigate a project's files with ido."
+    "Press <C-c h> to navigate a project in Helm."
+    "Press <C-c g> to search in Google."
+    "Press <C-c r> to rename the current buffer and file it's visiting."
+    "Press <C-c t> to open a terminal in Emacs."
+    "Explore the Prelude menu to find out about some of Prelude extensions to Emacs."))
+
+(defun prelude-tip-of-the-day ()
+  (interactive)
+  (message (concat "Prelude tip: " (nth (random (length prelude-tips)) prelude-tips))))
+
 (provide 'prelude-core)
 ;;; prelude-core.el ends here