CleanEmacs/init.el at master · precompute/CleanEmacs · 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
;; init.el -*- lexical-binding: t; -*-
;; (setq inhibit-compacting-font-caches t)

(defun loadfile-c (file)
  "Load FILE from `user-emacs-directory'."
  (let ((f (expand-file-name file user-emacs-directory)))
    (when (file-exists-p f)
      (load-file f))))
(loadfile-c "elpaca-init.el")

(defun native-compile-user-programs ()
  "Native Compile selected user programs."
  (interactive)
  (dolist (z (list "headerline-simple.el" "functions.el" "ui.el"))
    (native-compile (expand-file-name z user-emacs-directory)))
  (native-compile-directory (expand-file-name "packages/" user-emacs-directory)))
(native-compile-user-programs)

(defun after-init-load-file ()
  (progn
    (loadfile-c "general.el")
    (loadfile-c "functions.el")
    (loadfile-c "keybinds.el")
    ;; (loadfile-c "hooks.el")
    (loadfile-c "ui.el")
    (loadfile-c "headerline-simple.el")
    (loadfile-c "modes.el")
    (loadfile-c "loads.el")
    (loadfile-c ".private/other.el")))

(add-hook 'elpaca-after-init-hook 'after-init-load-file)

(if (not (file-exists-p "/run/user/1000/emacs/server"))
    (server-start)
  (message "Emacs Server already running, run (server-start) after setting `server-name’ otherwise."))

(assq-delete-all 'foreground-color default-frame-alist)
(assq-delete-all 'background-color default-frame-alist)

(unless (featurep 'mps)
  (setq gc-cons-threshold (truncate (* (/ (+ 5 gcs-done) 5.0)
                                       (car (get 'gc-cons-threshold 'standard-value))))))
;; adjust by GC invocations during startup

;; Local Variables:
;; no-byte-compile: t
;; no-native-compile: t
;; no-update-autoloads: t
;; End: