forked from jcf/emacs.d
-
Notifications
You must be signed in to change notification settings - Fork 0
/
init.el
81 lines (60 loc) · 2.12 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
;; [[file:~/.emacs.d/README.org::*Benchmarks][Benchmarks:1]]
(defun jcf-time-subtract-millis (b a)
(* 1000.0 (float-time (time-subtract b a))))
(defvar jcf-require-times nil
"A list of (FEATURE . LOAD-DURATION). LOAD-DURATION is the time
taken in milliseconds to load FEATURE.")
(defadvice require
(around build-require-times (feature &optional filename noerror) activate)
"Note in `jcf-require-times' the time taken to require each feature."
(let* ((already-loaded (memq feature features))
(require-start-time (and (not already-loaded) (current-time))))
(prog1
ad-do-it
(when (and (not already-loaded) (memq feature features))
(add-to-list 'jcf-require-times
(cons feature
(jcf-time-subtract-millis (current-time)
require-start-time))
t)))))
;; Benchmarks:1 ends here
;; [[file:~/.emacs.d/README.org::*init.el][init\.el:1]]
(require 'cask "~/.cask/cask.el")
(cask-initialize)
(require 'pallet)
(pallet-mode t)
;; init\.el:1 ends here
;; [[file:~/.emacs.d/README.org::*cl][cl:1]]
(require 'cl)
;; cl:1 ends here
;; [[file:~/.emacs.d/README.org::*OS%20X][OS\ X:1]]
(defconst *is-a-mac* (eq system-type 'darwin))
;; OS\ X:1 ends here
;; [[file:~/.emacs.d/README.org::*Load%20Org%20files][Load\ Org\ files:1]]
(require 'org-install)
(require 'ob-tangle)
(defvar jcf-config-dir
(file-name-directory (or load-file-name (buffer-file-name))))
(defun jcf-load-org (s)
(org-babel-load-file
(expand-file-name (format "init-%s.org" s) jcf-config-dir)))
(add-hook
'after-init-hook
(lambda ()
(jcf-load-org "defuns")
(jcf-load-org "ubiquitous")
(jcf-load-org "genesis")
(jcf-load-org "presentation")
(jcf-load-org "evil")
(jcf-load-org "helm")
(when *is-a-mac*
(jcf-load-org "osx"))
(jcf-load-org "org")
(jcf-load-org "packages")
(jcf-load-org "window-management")
(jcf-load-org "version-control")
(jcf-load-org "languages")
(jcf-load-org "sessions")
(jcf-load-org "locales")
(jcf-log-startup-time)))
;; Load\ Org\ files:1 ends here