Show different messages on statup.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Mon, 18 Jan 2010 23:17:52 +0200
changeset 250 ef1c7269280f
parent 249 f37450e3cfa2
child 251 99a4fc940294
Show different messages on statup.
.emacs-my
--- a/.emacs-my	Mon Jan 18 23:06:33 2010 +0200
+++ b/.emacs-my	Mon Jan 18 23:17:52 2010 +0200
@@ -1058,7 +1058,11 @@
 (setq user-mail-address "gavenkoa@gmail.com")
 (setenv "ORGANIZATION" (concat user-full-name " <" user-mail-address  ">"))
 
-(message "You enter to Space. Emacs power on.")
+(add-hook 'emacs-startup-hook
+          (lambda ()
+            (let ( (mgs-list '("Welcome to emacs, the thermonuclear editor."
+                               "You enter to Out Space. Emacs on."
+                               "Nice day for Emacsing!")) )
+              (message (nth (random (length mgs-list)) mgs-list)))))
 
-;;
 ;; End loading...