emacs.d/init.el at master · marktran/emacs.d · GitHub

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
(setq native-comp-async-report-warnings-errors nil)

;; Stop pointless re-native-compilation of tramp/org loaddefs (and the
;; *Async-native-compile-log* buffer it creates) on every startup.
(load "~/.emacs.d/lisp/hacks/skip-loaddefs-native-comp.el" 'noerror)

(defun restore-mode-line ()
  (setq-default mode-line-format
                '("%e"
                  mode-line-front-space
                  mode-line-mule-info
                  mode-line-client
                  mode-line-modified
                  mode-line-remote
                  mode-line-frame-identification
                  mode-line-buffer-identification
                  "  "
                  mode-line-position
                  (vc-mode vc-mode)
                  "  "
                  mode-line-modes
                  mode-line-misc-info
                  mode-line-format-right-align
                  ;; Play icon while ready-player is actively playing
                  ;; (see settings/ready-player.el); nothing when
                  ;; paused or stopped. The gap is a fixed-width space: it
                  ;; measures and renders identically, so the icon's
                  ;; fallback-font glyph can't push the padding off the
                  ;; window edge, and its width mirrors the front-space
                  ;; padding.
                  (:eval (when (and (fboundp 'm/ready-player-playing-p)
                                    (m/ready-player-playing-p))
                           (concat "\u25B6"
                                   (propertize " " 'display
                                               '(space :width 1.5)))))
                  mode-line-end-space)))

(add-hook 'after-init-hook #'restore-mode-line)

(load "~/.emacs.d/custom.el" 'noerror)

(load-file "~/.emacs.d/packages.el")
(mapc 'load (directory-files "~/.emacs.d/lisp" t "\\.el\\'"))
(load "~/.emacs.d/lisp/hacks/ignore-nil-mouse-events.el" 'noerror)
(load-file "~/.emacs.d/bindings.el")
(load-file "~/.emacs.d/settings.el")
(load-file "~/.emacs.d/interface.el")
(load-file "~/.emacs.d/platform.el")

(setq user-full-name "Mark Tran"
      user-mail-address "mark.tran@gmail.com")

(load "~/.emacs.d/local.el" 'noerror)