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

Tweak a bit init.el

Browse source
This commit is contained in:
Bozhidar Batsov 2020-09-16 08:44:38 +03:00
parent e3a7eba54b
commit eac0873501
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
init.el
View file

@ -39,11 +39,11 @@
;; You may delete these explanatory comments. ;; You may delete these explanatory comments.
;(package-initialize) ;(package-initialize)
(defvar current-user (defvar prelude-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) (message "Prelude is powering up... Be patient, Master %s!" prelude-user)
(when (version< emacs-version "25.1") (when (version< emacs-version "25.1")
(error "Prelude requires GNU Emacs 25.1 or newer, but you're running %s" emacs-version)) (error "Prelude requires GNU Emacs 25.1 or newer, but you're running %s" emacs-version))
@ -51,6 +51,7 @@
;; Always load newest byte code ;; Always load newest byte code
(setq load-prefer-newer t) (setq load-prefer-newer t)
;; Define Prelude's directory structure
(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)
@ -104,7 +105,7 @@ by Prelude.")
(message "Loading Prelude's core...") (message "Loading Prelude's core...")
;; the core stuff ;; load the core stuff
(require 'prelude-packages) (require 'prelude-packages)
(require 'prelude-custom) ;; Needs to be loaded before core, editor and ui (require 'prelude-custom) ;; Needs to be loaded before core, editor and ui
(require 'prelude-ui) (require 'prelude-ui)
@ -139,7 +140,7 @@ by Prelude.")
prelude-modules-file prelude-modules-file
(directory-files prelude-personal-dir 't "^[^#\.].*\\.el$")))) (directory-files prelude-personal-dir 't "^[^#\.].*\\.el$"))))
(message "Prelude is ready to do thy bidding, Master %s!" current-user) (message "Prelude is ready to do thy bidding, Master %s!" prelude-user)
;; Patch security vulnerability in Emacs versions older than 25.3 ;; Patch security vulnerability in Emacs versions older than 25.3
(when (version< emacs-version "25.3") (when (version< emacs-version "25.3")