summary refs log tree commit diff stats
path: root/early-init.el
diff options
context:
space:
mode:
Diffstat (limited to 'early-init.el')
-rw-r--r--early-init.el66
1 files changed, 33 insertions, 33 deletions
diff --git a/early-init.el b/early-init.el index 2e78e43..103e0b4 100644 --- a/early-init.el +++ b/early-init.el
@@ -2,40 +2,41 @@
2;; This file is automatically tangled from config.org. 2;; This file is automatically tangled from config.org.
3;; Hand edits will be overwritten! 3;; Hand edits will be overwritten!
4 4
5;; Disable loading of =package.el=
6
7;; I use =straight.el= instead.
8
9
10;; [[file:~/.emacs.d/config.org::*Disable loading of =package.el=][Disable loading of =package.el=:1]]
11(setq package-enable-at-startup nil) 5(setq package-enable-at-startup nil)
12;; Disable loading of =package.el=:1 ends here 6(defun acdw/bootstrap-straight ()
13 7 "Bootstrap straight.el."
14;; Don't resize the frame when loading fonts 8 (defvar bootstrap-version)
15 9 (let ((bootstrap-file
16 10 (expand-file-name
17;; [[file:~/.emacs.d/config.org::*Don't resize the frame when loading fonts][Don't resize the frame when loading fonts:1]] 11 "straight/repos/straight.el/bootstrap.el"
18(setq frame-inhibit-implied-resize t) 12 user-emacs-directory))
19;; Don't resize the frame when loading fonts:1 ends here 13 (bootstrap-version 5))
20 14 (unless (file-exists-p bootstrap-file)
21;; Resize frame by pixels 15 (with-current-buffer
22 16 (url-retrieve-synchronously
23 17 (concat
24;; [[file:~/.emacs.d/config.org::*Resize frame by pixels][Resize frame by pixels:1]] 18 "https://raw.githubusercontent.com/"
25(setq frame-resize-pixelwise t) 19 "raxod502/straight.el/develop/install.el")
26;; Resize frame by pixels:1 ends here 20 'silent 'inhibit-cookies)
27 21 (goto-char (point-max))
28;; Shoe-horned from elsewhere in =config.org= 22 (eval-print-last-sexp)))
29 23 (load bootstrap-file nil 'nomessage)))
30;; A fundamental tension of literal programming is logical versus 24(unless (ignore-errors (acdw/bootstrap-straight))
31;; programmatic ordering. I understand that's a problem it's meant to 25 (let ((msg "Straight.el didn't bootstrap correctly. Cloning directly"))
32;; solve but hey, maybe I'm not quite there yet. I feel that having this 26 (message "%s..." msg)
33;; weird shoe-horning of other bits of my config here, in a backwater 27 (call-process "git" nil
34;; heading in an appendix, isn't quite the future I wanted. But it's 28 (get-buffer-create "*bootstrap-straight-messages*") nil
35;; what I have for now. 29 "clone"
36 30 "https://github.com/raxod502/straight.el"
31 (expand-file-name "straight/repos/straight.el"
32 user-emacs-directory))
33 (message "%s...Done." msg)
34 (acdw/bootstrap-straight)))
35
36(setq-default frame-inhibit-implied-resize t)
37
38(setq-default frame-resize-pixelwise t)
37 39
38;; [[file:~/.emacs.d/config.org::*Shoe-horned from elsewhere in =config.org=][Shoe-horned from elsewhere in =config.org=:1]]
39(add-to-list 'default-frame-alist 40(add-to-list 'default-frame-alist
40 '(tool-bar-lines . 0)) 41 '(tool-bar-lines . 0))
41 42
@@ -50,4 +51,3 @@
50 51
51(scroll-bar-mode -1) 52(scroll-bar-mode -1)
52(horizontal-scroll-bar-mode -1) 53(horizontal-scroll-bar-mode -1)
53;; Shoe-horned from elsewhere in =config.org=:1 ends here