diff options
author | Case Duckworth | 2020-12-30 23:34:05 -0600 |
---|---|---|
committer | Case Duckworth | 2020-12-30 23:34:05 -0600 |
commit | 6eb8fa9fdadf1a266e2e1519eec552cce6d2882e (patch) | |
tree | 6868cdd8cbb54affe39ed94facc8aee22ddcab71 | |
parent | Remove use-package (diff) | |
download | emacs-6eb8fa9fdadf1a266e2e1519eec552cce6d2882e.tar.gz emacs-6eb8fa9fdadf1a266e2e1519eec552cce6d2882e.zip |
Fold init.el and early-init.el together
Weren’t doin’ no good apart.
-rw-r--r-- | config.org | 48 | ||||
-rw-r--r-- | early-init.el | 4 | ||||
-rw-r--r-- | init.el | 14 |
3 files changed, 17 insertions, 49 deletions
diff --git a/config.org b/config.org index 27cfb10..c622e62 100644 --- a/config.org +++ b/config.org | |||
@@ -1421,24 +1421,18 @@ from [[https://karthinks.com/software/more-batteries-included-with-emacs/#regexp | |||
1421 | :header-args: :tangle init.el | 1421 | :header-args: :tangle init.el |
1422 | :END: | 1422 | :END: |
1423 | 1423 | ||
1424 | #+begin_src emacs-lisp :comments no | 1424 | I realized I didn’t need =early-init.el=, since it really only set =load-prefer-newer=. So I’ve set that here, and wrapped the actual loading of config in a =let*= form that speeds up init, and loads the newer of either =config.org= or =config.el=. |
1425 | ;; init.el -*- lexical-binding: t -*- | ||
1426 | #+end_src | ||
1427 | 1425 | ||
1428 | **** Speed up init | 1426 | #+BEGIN_SRC emacs-lisp |
1427 | ;; init.el -*- lexical-binding: t -*- | ||
1429 | 1428 | ||
1430 | #+begin_src emacs-lisp | 1429 | (setq load-prefer-newer t) |
1431 | (setq gc-cons-threshold most-positive-fixnum) | ||
1432 | (defvar old-file-name-handler file-name-handler-alist) | ||
1433 | (setq file-name-handler-alist nil) | ||
1434 | #+end_src | ||
1435 | |||
1436 | **** Load config | ||
1437 | |||
1438 | inspired by [[https://protesilaos.com/dotemacs/#h:584c3604-55a1-49d0-9c31-abe46cb1f028][Protesilaos Stavrou]]. | ||
1439 | 1430 | ||
1440 | #+begin_src emacs-lisp | 1431 | (let* (;; Speed up init |
1441 | (let* ((conf (expand-file-name "config" | 1432 | (gc-cons-threshold most-positive-fixnum) |
1433 | (file-name-handler-alist nil) | ||
1434 | ;; Config file names | ||
1435 | (conf (expand-file-name "config" | ||
1442 | user-emacs-directory)) | 1436 | user-emacs-directory)) |
1443 | (conf-el (concat conf ".el")) | 1437 | (conf-el (concat conf ".el")) |
1444 | (conf-org (concat conf ".org"))) | 1438 | (conf-org (concat conf ".org"))) |
@@ -1446,31 +1440,11 @@ from [[https://karthinks.com/software/more-batteries-included-with-emacs/#regexp | |||
1446 | (load conf 'no-error)) | 1440 | (load conf 'no-error)) |
1447 | (require 'org) | 1441 | (require 'org) |
1448 | (org-babel-load-file conf-org))) | 1442 | (org-babel-load-file conf-org))) |
1449 | #+end_src | 1443 | #+END_SRC |
1450 | |||
1451 | **** Reset for normal operation | ||
1452 | |||
1453 | #+begin_src emacs-lisp | ||
1454 | (setq gc-cons-threshold 16777216 ; 16mb | ||
1455 | gc-cons-percentage 0.1 | ||
1456 | file-name-handler-alist old-file-name-handler) | ||
1457 | #+end_src | ||
1458 | |||
1459 | *** early-init.el | ||
1460 | :PROPERTIES: | ||
1461 | :header-args: :tangle early-init.el | ||
1462 | :END: | ||
1463 | |||
1464 | #+begin_src emacs-lisp :comments no | ||
1465 | ;; early-init.el -*- lexical-binding: t; no-byte-compile: t; -*- | ||
1466 | |||
1467 | (setq load-prefer-newer t) | ||
1468 | (setq frame-inhibit-implied-resize t) | ||
1469 | #+end_src | ||
1470 | 1444 | ||
1471 | ** Ease tangling and loading of Emacs' init | 1445 | ** Ease tangling and loading of Emacs' init |
1472 | 1446 | ||
1473 | #+begin_src emacs-lisp | 1447 | #+BEGIN_SRC emacs-lisp |
1474 | (defun refresh-emacs (&optional disable-load) | 1448 | (defun refresh-emacs (&optional disable-load) |
1475 | "Tangle `config.org', then byte-compile the resulting files. | 1449 | "Tangle `config.org', then byte-compile the resulting files. |
1476 | Then, load the byte-compilations unless passed with a prefix argument." | 1450 | Then, load the byte-compilations unless passed with a prefix argument." |
diff --git a/early-init.el b/early-init.el deleted file mode 100644 index f9d4a97..0000000 --- a/early-init.el +++ /dev/null | |||
@@ -1,4 +0,0 @@ | |||
1 | ;; early-init.el -*- lexical-binding: t; no-byte-compile: t; -*- | ||
2 | |||
3 | (setq load-prefer-newer t) | ||
4 | (setq frame-inhibit-implied-resize t) | ||
diff --git a/init.el b/init.el index fadf705..faef4d4 100644 --- a/init.el +++ b/init.el | |||
@@ -1,10 +1,12 @@ | |||
1 | ;; init.el -*- lexical-binding: t -*- | 1 | ;; init.el -*- lexical-binding: t -*- |
2 | 2 | ||
3 | (setq gc-cons-threshold most-positive-fixnum) | 3 | (setq load-prefer-newer t) |
4 | (defvar old-file-name-handler file-name-handler-alist) | ||
5 | (setq file-name-handler-alist nil) | ||
6 | 4 | ||
7 | (let* ((conf (expand-file-name "config" | 5 | (let* (;; Speed up init |
6 | (gc-cons-threshold most-positive-fixnum) | ||
7 | (file-name-handler-alist nil) | ||
8 | ;; Config file names | ||
9 | (conf (expand-file-name "config" | ||
8 | user-emacs-directory)) | 10 | user-emacs-directory)) |
9 | (conf-el (concat conf ".el")) | 11 | (conf-el (concat conf ".el")) |
10 | (conf-org (concat conf ".org"))) | 12 | (conf-org (concat conf ".org"))) |
@@ -12,7 +14,3 @@ | |||
12 | (load conf 'no-error)) | 14 | (load conf 'no-error)) |
13 | (require 'org) | 15 | (require 'org) |
14 | (org-babel-load-file conf-org))) | 16 | (org-babel-load-file conf-org))) |
15 | |||
16 | (setq gc-cons-threshold 16777216 ; 16mb | ||
17 | gc-cons-percentage 0.1 | ||
18 | file-name-handler-alist old-file-name-handler) | ||