forked from bbatsov/prelude
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathinit.el
200 lines (162 loc) · 8.41 KB
/
init.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
;;; init.el --- Prelude's configuration entry point.
;;
;; Copyright (c) 2011-2021 Bozhidar Batsov
;;
;; Author: Bozhidar Batsov <[email protected]>
;; URL: https://github.com/bbatsov/prelude
;; Version: 1.1.0
;; Keywords: convenience
;; This file is not part of GNU Emacs.
;;; Commentary:
;; This file simply sets up the default load path and requires
;; the various modules defined within Emacs Prelude.
;;; License:
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License
;; as published by the Free Software Foundation; either version 3
;; of the License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Code:
;; Added by Package.el. This must come before configurations of
;; installed packages. Don't delete this line. If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
;(package-initialize)
(defvar prelude-user
(getenv
(if (equal system-type 'windows-nt) "USERNAME" "USER")))
(message "[Prelude] Prelude is powering up... Be patient, Master %s!" prelude-user)
(when (version< emacs-version "25.1")
(error "[Prelude] Prelude requires GNU Emacs 25.1 or newer, but you're running %s" emacs-version))
;; Always load newest byte code
(setq load-prefer-newer t)
;; Define Prelude's directory structure
(defvar prelude-dir (file-name-directory load-file-name)
"The root dir of the Emacs Prelude distribution.")
(defvar prelude-core-dir (expand-file-name "core" prelude-dir)
"The home of Prelude's core functionality.")
(defvar prelude-modules-dir (expand-file-name "modules" prelude-dir)
"This directory houses all of the built-in Prelude modules.")
(defvar prelude-personal-dir (expand-file-name "personal" prelude-dir)
"This directory is for your personal configuration.
Users of Emacs Prelude are encouraged to keep their personal configuration
changes in this directory. All Emacs Lisp files there are loaded automatically
by Prelude.")
(defvar prelude-personal-preload-dir (expand-file-name "preload" prelude-personal-dir)
"This directory is for your personal configuration, that you want loaded before Prelude.")
(defvar prelude-vendor-dir (expand-file-name "vendor" prelude-dir)
"This directory houses packages that are not yet available in ELPA (or MELPA).")
(defvar prelude-savefile-dir (expand-file-name "savefile" user-emacs-directory)
"This folder stores all the automatically generated save/history-files.")
(defvar prelude-modules-file (expand-file-name "prelude-modules.el" prelude-personal-dir)
"This file contains a list of modules that will be loaded by Prelude.")
(unless (file-exists-p prelude-savefile-dir)
(make-directory prelude-savefile-dir))
(defun prelude-add-subfolders-to-load-path (parent-dir)
"Add all level PARENT-DIR subdirs to the `load-path'."
(dolist (f (directory-files parent-dir))
(let ((name (expand-file-name f parent-dir)))
(when (and (file-directory-p name)
(not (string-prefix-p "." f)))
(add-to-list 'load-path name)
(prelude-add-subfolders-to-load-path name)))))
;; add Prelude's directories to Emacs's `load-path'
(add-to-list 'load-path prelude-core-dir)
(add-to-list 'load-path prelude-modules-dir)
(add-to-list 'load-path prelude-vendor-dir)
(prelude-add-subfolders-to-load-path prelude-vendor-dir)
;; Prelude-more self developed packages add on load-path
(defvar prelude-more-custom-packages (expand-file-name "custom-packages" prelude-dir)
"This is path to prelude-more-custom-packages.")
(add-to-list 'load-path prelude-more-custom-packages)
;; reduce the frequency of garbage collection by making it happen on
;; each 50MB of allocated data (the default is on every 0.76MB)
(setq gc-cons-threshold 50000000)
;; warn when opening files bigger than 100MB
(setq large-file-warning-threshold 100000000)
;; preload the personal settings from `prelude-personal-preload-dir'
(when (file-exists-p prelude-personal-preload-dir)
(message "[Prelude] Loading personal configuration files in %s..." prelude-personal-preload-dir)
(mapc 'load (directory-files prelude-personal-preload-dir 't "^[^#\.].*el$")))
(message "[Prelude] Loading Prelude's core modules...")
;; load the core stuff
(require 'prelude-packages)
(require 'prelude-custom) ;; Needs to be loaded before core, editor and ui
(require 'prelude-ui)
(require 'prelude-core)
(require 'prelude-mode)
(require 'prelude-editor)
(require 'prelude-global-keybindings)
;; macOS specific settings
(when (eq system-type 'darwin)
(require 'prelude-macos))
(message "Loading Prelude-more's premodules...")
(defvar prelude-more-premodules (expand-file-name "novak-personal-premodules.el" prelude-personal-dir)
"This file contains settings that will be done before loading prelude modules.")
(if (file-exists-p prelude-more-premodules)
(load prelude-more-premodules)
(message "Missing prelude-more-premodules file %s" prelude-more-premodules))
;; Linux specific settings
(when (eq system-type 'gnu/linux)
(require 'prelude-linux))
;; WSL specific setting
(when (and (eq system-type 'gnu/linux) (getenv "WSLENV"))
(require 'prelude-wsl))
;; Windows specific settings
(when (eq system-type 'windows-nt)
(require 'prelude-windows))
(message "[Prelude] Loading Prelude's additional modules...")
;; the modules
(if (file-exists-p prelude-modules-file)
(load prelude-modules-file)
(message "[Prelude] Missing personal modules file %s" prelude-modules-file)
(message "[Prelude] Falling back to the bundled example file sample/prelude-modules.el")
(message "[Prelude] You should copy this file to your personal configuration folder and tweak it to your liking")
(load (expand-file-name "sample/prelude-modules.el" user-emacs-directory)))
;; config changes made through the customize UI will be stored here
(setq custom-file (expand-file-name "custom.el" prelude-personal-dir))
;; load the personal settings (this includes `custom-file')
(when (file-exists-p prelude-personal-dir)
(message "[Prelude] Loading personal configuration files in %s..." prelude-personal-dir)
(mapc 'load (delete
prelude-modules-file
(directory-files prelude-personal-dir 't "^[^#\.].*\\.el$"))))
(message "[Prelude] Prelude is ready to do thy bidding, Master %s!" prelude-user)
;; Patch security vulnerability in Emacs versions older than 25.3
(when (version< emacs-version "25.3")
(with-eval-after-load "enriched"
(defun enriched-decode-display-prop (start end &optional param)
(list start end))))
(prelude-eval-after-init
;; greet the use with some useful tip
(run-at-time 5 nil 'prelude-tip-of-the-day))
;; run emacs deamon from this instance if one is not currently
;; running
(require 'server)
(unless (server-running-p)
(server-start)
(setq server-kill-new-buffers nil))
;;; init.el ends here
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(package-selected-packages
(quote
(virtualenvwrapper zop-to-char zenburn-theme yari yaml-mode web-mode volatile-highlights undo-tree solarized-theme smex smartrep smartparens smart-mode-line scss-mode ruby-tools rainbow-mode rainbow-delimiters ov operate-on-number move-text markdown-mode magit key-chord json-mode js2-mode inf-ruby ido-ubiquitous helm-projectile helm-descbinds helm-ag guru-mode grizzl god-mode gitignore-mode gitconfig-mode git-timemachine gist geiser flycheck flx-ido expand-region exec-path-from-shell elisp-slime-nav easy-kill discover-my-major diminish diff-hl company-tern company-anaconda cider browse-kill-ring anzu alchemist ace-window))))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
)