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

Fixed username (in windows-nt) in the final message after loading prelude.

Browse source
This commit is contained in:
Shanmu Thiagaraja 2013-08-02 20:41:39 +01:00
parent 99a26d88a2
commit 6c1c6ff0da
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
init.el
View file

@ -32,11 +32,12 @@
;; Boston, MA 02110-1301, USA. ;; Boston, MA 02110-1301, USA.
;;; Code: ;;; Code:
(defvar current-user
(message "Prelude is powering up... Be patient, Master %s!"
(getenv (getenv
(if (equal system-type 'windows-nt) "USERNAME" "USER"))) (if (equal system-type 'windows-nt) "USERNAME" "USER")))
(message "Prelude is powering up... Be patient, Master %s!" current-user)
(defvar prelude-dir (file-name-directory load-file-name) (defvar prelude-dir (file-name-directory load-file-name)
"The root dir of the Emacs Prelude distribution.") "The root dir of the Emacs Prelude distribution.")
(defvar prelude-core-dir (expand-file-name "core" prelude-dir) (defvar prelude-core-dir (expand-file-name "core" prelude-dir)
@ -102,7 +103,7 @@ by Prelude.")
(message "Loading personal configuration files in %s..." prelude-personal-dir) (message "Loading personal configuration files in %s..." prelude-personal-dir)
(mapc 'load (directory-files prelude-personal-dir 't "^[^#].*el$"))) (mapc 'load (directory-files prelude-personal-dir 't "^[^#].*el$")))
(message "Prelude is ready to do thy bidding, Master %s!" (getenv "USER")) (message "Prelude is ready to do thy bidding, Master %s!" current-user)
(prelude-eval-after-init (prelude-eval-after-init
;; greet the use with some useful tip ;; greet the use with some useful tip