jt/emacs-prelude
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added a basic tip of the day feature

Browse source
This commit is contained in:
Bozhidar Batsov 2012-05-07 18:04:03 +03:00
parent 5f75563458
commit 2d4ad1812d
2 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
init.el
View file

@ -75,4 +75,7 @@ ELPA (or MELPA).")
(message "Prelude is ready to do thy bidding, Master %s!" (getenv "USER")) (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 ;;; init.el ends here

13
prelude/prelude-core.el
View file

@ -366,5 +366,18 @@ and so on."
(repeat nil))) (repeat nil)))
(intern (concat (symbol-name cmd) "-repeat"))) (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) (provide 'prelude-core)
;;; prelude-core.el ends here ;;; prelude-core.el ends here