diff options
Diffstat (limited to 'early-init.el')
-rw-r--r-- | early-init.el | 178 |
1 files changed, 89 insertions, 89 deletions
diff --git a/early-init.el b/early-init.el index 0738ca2..b8a6c6c 100644 --- a/early-init.el +++ b/early-init.el | |||
@@ -1,89 +1,89 @@ | |||
1 | ;;; early-init.el -*- no-byte-compile: t; coding: utf-8 -*- | 1 | ;;; early-init.el -*- no-byte-compile: t; coding: utf-8 -*- |
2 | ;; Copyright (C) 2020 Case Duckworth | 2 | ;; Copyright (C) 2020 Case Duckworth |
3 | 3 | ||
4 | ;; Author: Case Duckworth <acdw@acdw.net> | 4 | ;; Author: Case Duckworth <acdw@acdw.net> |
5 | ;; Created: Sometime during the Covid-19 lockdown, 2019 | 5 | ;; Created: Sometime during the Covid-19 lockdown, 2019 |
6 | ;; Keywords: configuration | 6 | ;; Keywords: configuration |
7 | ;; URL: https://tildegit.org/acdw/emacs | 7 | ;; URL: https://tildegit.org/acdw/emacs |
8 | 8 | ||
9 | ;; This file is not part of GNU Emacs. | 9 | ;; This file is not part of GNU Emacs. |
10 | 10 | ||
11 | ;;; Commentary: | 11 | ;;; Commentary: |
12 | ;; This file is automatically tangled from config.org. | 12 | ;; This file is automatically tangled from config.org. |
13 | ;; Hand edits will be overwritten! | 13 | ;; Hand edits will be overwritten! |
14 | 14 | ||
15 | ;;; Code: | 15 | ;;; Code: |
16 | 16 | ||
17 | ;; BOOTSTRAP PACKAGE MANAGEMENT | 17 | ;; BOOTSTRAP PACKAGE MANAGEMENT |
18 | (let ((win-app-dir "~/Applications")) | 18 | (let ((win-app-dir "~/Applications")) |
19 | (dolist (path (list | 19 | (dolist (path (list |
20 | ;; Windows | 20 | ;; Windows |
21 | (expand-file-name "exe" win-app-dir) | 21 | (expand-file-name "exe" win-app-dir) |
22 | (expand-file-name "exe/bin" win-app-dir) | 22 | (expand-file-name "exe/bin" win-app-dir) |
23 | (expand-file-name "Git/bin" win-app-dir) | 23 | (expand-file-name "Git/bin" win-app-dir) |
24 | (expand-file-name "Git/usr/bin" win-app-dir) | 24 | (expand-file-name "Git/usr/bin" win-app-dir) |
25 | (expand-file-name "Git/mingw64/bin" win-app-dir) | 25 | (expand-file-name "Git/mingw64/bin" win-app-dir) |
26 | (expand-file-name "Everything" win-app-dir) | 26 | (expand-file-name "Everything" win-app-dir) |
27 | (expand-file-name "Win-builds/bin" win-app-dir) | 27 | (expand-file-name "Win-builds/bin" win-app-dir) |
28 | (expand-file-name "Z/bin" win-app-dir) | 28 | (expand-file-name "Z/bin" win-app-dir) |
29 | ;; Linux | 29 | ;; Linux |
30 | (expand-file-name "bin" user-emacs-directory) | 30 | (expand-file-name "bin" user-emacs-directory) |
31 | (expand-file-name "~/bin") | 31 | (expand-file-name "~/bin") |
32 | (expand-file-name "~/.local/bin") | 32 | (expand-file-name "~/.local/bin") |
33 | (expand-file-name "~/Scripts") | 33 | (expand-file-name "~/Scripts") |
34 | )) | 34 | )) |
35 | (when (file-exists-p path) | 35 | (when (file-exists-p path) |
36 | (add-to-list 'exec-path path :append)))) | 36 | (add-to-list 'exec-path path :append)))) |
37 | 37 | ||
38 | ;; Set $PATH | 38 | ;; Set $PATH |
39 | (setenv "PATH" (mapconcat #'identity exec-path path-separator)) | 39 | (setenv "PATH" (mapconcat #'identity exec-path path-separator)) |
40 | (setq package-enable-at-startup nil) | 40 | (setq package-enable-at-startup nil) |
41 | (defun acdw/bootstrap-straight () | 41 | (defun acdw/bootstrap-straight () |
42 | "Bootstrap straight.el." | 42 | "Bootstrap straight.el." |
43 | (defvar bootstrap-version) | 43 | (defvar bootstrap-version) |
44 | (let ((bootstrap-file | 44 | (let ((bootstrap-file |
45 | (expand-file-name | 45 | (expand-file-name |
46 | "straight/repos/straight.el/bootstrap.el" | 46 | "straight/repos/straight.el/bootstrap.el" |
47 | user-emacs-directory)) | 47 | user-emacs-directory)) |
48 | (bootstrap-version 5)) | 48 | (bootstrap-version 5)) |
49 | (unless (file-exists-p bootstrap-file) | 49 | (unless (file-exists-p bootstrap-file) |
50 | (with-current-buffer | 50 | (with-current-buffer |
51 | (url-retrieve-synchronously | 51 | (url-retrieve-synchronously |
52 | (concat | 52 | (concat |
53 | "https://raw.githubusercontent.com/" | 53 | "https://raw.githubusercontent.com/" |
54 | "raxod502/straight.el/develop/install.el") | 54 | "raxod502/straight.el/develop/install.el") |
55 | 'silent 'inhibit-cookies) | 55 | 'silent 'inhibit-cookies) |
56 | (goto-char (point-max)) | 56 | (goto-char (point-max)) |
57 | (eval-print-last-sexp))) | 57 | (eval-print-last-sexp))) |
58 | (load bootstrap-file nil 'nomessage))) | 58 | (load bootstrap-file nil 'nomessage))) |
59 | (when (executable-find "git") | 59 | (when (executable-find "git") |
60 | (unless (ignore-errors (acdw/bootstrap-straight)) | 60 | (unless (ignore-errors (acdw/bootstrap-straight)) |
61 | (let ((msg "Straight.el didn't bootstrap correctly. Cloning directly")) | 61 | (let ((msg "Straight.el didn't bootstrap correctly. Cloning directly")) |
62 | (message "%s..." msg) | 62 | (message "%s..." msg) |
63 | (call-process "git" nil | 63 | (call-process "git" nil |
64 | (get-buffer-create "*bootstrap-straight-messages*") nil | 64 | (get-buffer-create "*bootstrap-straight-messages*") nil |
65 | "clone" | 65 | "clone" |
66 | "https://github.com/raxod502/straight.el" | 66 | "https://github.com/raxod502/straight.el" |
67 | (expand-file-name "straight/repos/straight.el" | 67 | (expand-file-name "straight/repos/straight.el" |
68 | user-emacs-directory)) | 68 | user-emacs-directory)) |
69 | (message "%s...Done." msg) | 69 | (message "%s...Done." msg) |
70 | (acdw/bootstrap-straight)))) | 70 | (acdw/bootstrap-straight)))) |
71 | ;; SETUP FRAME | 71 | ;; SETUP FRAME |
72 | (add-to-list 'default-frame-alist | 72 | (add-to-list 'default-frame-alist |
73 | '(tool-bar-lines . 0)) | 73 | '(tool-bar-lines . 0)) |
74 | 74 | ||
75 | (tool-bar-mode -1) | 75 | (tool-bar-mode -1) |
76 | (add-to-list 'default-frame-alist | 76 | (add-to-list 'default-frame-alist |
77 | '(menu-bar-lines . 0)) | 77 | '(menu-bar-lines . 0)) |
78 | 78 | ||
79 | (menu-bar-mode -1) | 79 | (menu-bar-mode -1) |
80 | (add-to-list 'default-frame-alist | 80 | (add-to-list 'default-frame-alist |
81 | '(vertical-scroll-bars . nil) | 81 | '(vertical-scroll-bars . nil) |
82 | '(horizontal-scroll-bars . nil)) | 82 | '(horizontal-scroll-bars . nil)) |
83 | 83 | ||
84 | (scroll-bar-mode -1) | 84 | (scroll-bar-mode -1) |
85 | (horizontal-scroll-bar-mode -1) | 85 | (horizontal-scroll-bar-mode -1) |
86 | (setq-default frame-inhibit-implied-resize t | 86 | (setq-default frame-inhibit-implied-resize t |
87 | frame-resize-pixelwise t) | 87 | frame-resize-pixelwise t) |
88 | 88 | ||
89 | ;;; early-init.el ends here | 89 | ;;; early-init.el ends here |