|
|
@ -32,11 +32,12 @@ |
|
|
;; Boston, MA 02110-1301, USA. |
|
|
;; Boston, MA 02110-1301, USA. |
|
|
|
|
|
|
|
|
;;; Code: |
|
|
;;; Code: |
|
|
|
|
|
|
|
|
(message "Prelude is powering up... Be patient, Master %s!" |
|
|
|
|
|
|
|
|
(defvar current-user |
|
|
(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 |
|
|
|