Browse Source

added a basic tip of the day feature

custom
Bozhidar Batsov 14 years ago
parent
commit
2d4ad1812d
  1. 3
      init.el
  2. 13
      prelude/prelude-core.el

3
init.el

@ -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

@ -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
Loading…
Cancel
Save