forked from Fuco1/.emacs.d
-
Notifications
You must be signed in to change notification settings - Fork 0
/
init.el
87 lines (71 loc) · 2.53 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
(server-start)
(defconst emacs-start-time (current-time))
(add-to-list 'load-path "~/.emacs.d/vendor/use-package/")
(require 'use-package)
(setq use-package-verbose t)
;; Emacs gurus don't need no stinking scroll bars & widgets
(scroll-bar-mode -1)
(menu-bar-mode -1)
(tool-bar-mode -1)
(tooltip-mode -1)
;; add repos
(setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
("marmalade" . "http://marmalade-repo.org/packages/")
("melpa" . "http://melpa.org/packages/")
("org" . "http://orgmode.org/elpa/")))
(use-package-with-elapsed-timer "Initializing packages"
(package-initialize)
(load "~/.emacs.d/dev/dash.el/dash")
(load "~/.emacs.d/dev/dash.el/dash-functional")
(load "~/.emacs.d/autoinstall")
(require 'uniquify)
(require 'f)
(require 's)
;; add load paths
(add-to-list 'load-path "~/.emacs.d/")
(mapc (apply-partially 'add-to-list 'load-path) (f-directories "~/.emacs.d/vendor"))
(mapc (apply-partially 'add-to-list 'load-path) (f-directories "~/.emacs.d/projects")))
;; autoloads
(autoload 'calc-same-interface "calc" nil t)
(autoload 'zap-up-to-char "misc"
"Kill up to, but not including ARGth occurrence of CHAR." t)
(use-package-with-elapsed-timer "Loading site lisp"
;; load site lisp
(load "site-lisp/advices")
(load "site-lisp/defuns-buffer")
(load "site-lisp/defuns-edit")
(load "site-lisp/defuns")
(load "site-lisp/macros")
(load "site-lisp/redef")
(load "site-lisp/vendor")
;; load keys
(load "files/keys"))
;; load settings
(use-package-with-elapsed-timer "Loading settings"
(load "files/global")
(load "files/mode-line")
(load "files/tabs")
(load "files/windows"))
;; load config files
(use-package-with-elapsed-timer "Loading vendor"
(load "files/vendor"))
(use-package-with-elapsed-timer "Loading personal"
(load "files/personal"))
;; diminish useless modeline clutter
(require 'diminish)
(diminish 'visual-line-mode)
(eval-after-load "face-remap" '(diminish 'buffer-face-mode))
;; Customize
(setq custom-file "~/.emacs.d/files/emacs-custom.el")
(load custom-file)
;; Reload theme -- hackish
(load "~/.emacs.d/themes/my-tango-dark-theme")
;;; post init.
(when window-system
(add-hook 'after-init-hook
`(lambda ()
(let ((elapsed (float-time (time-subtract (current-time)
emacs-start-time))))
(message "Loading %s...done (%.3fs) [after-init]"
,load-file-name elapsed)))
t))