diff options
Diffstat (limited to 'early-init.el')
| -rw-r--r-- | early-init.el | 66 |
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 | ||