diff options
Diffstat (limited to 'early-init.el')
| -rw-r--r-- | early-init.el | 72 |
1 files changed, 36 insertions, 36 deletions
| diff --git a/early-init.el b/early-init.el index 1a26b03..056670a 100644 --- a/early-init.el +++ b/early-init.el | |||
| @@ -18,21 +18,21 @@ | |||
| 18 | ;; BOOTSTRAP PACKAGE MANAGEMENT | 18 | ;; BOOTSTRAP PACKAGE MANAGEMENT |
| 19 | (let ((win-app-dir "~/Applications")) | 19 | (let ((win-app-dir "~/Applications")) |
| 20 | (dolist (path (list | 20 | (dolist (path (list |
| 21 | ;; Windows | 21 | ;; Windows |
| 22 | (expand-file-name "exe" win-app-dir) | 22 | (expand-file-name "exe" win-app-dir) |
| 23 | (expand-file-name "exe/bin" win-app-dir) | 23 | (expand-file-name "exe/bin" win-app-dir) |
| 24 | (expand-file-name "Git/bin" win-app-dir) | 24 | (expand-file-name "Git/bin" win-app-dir) |
| 25 | (expand-file-name "Git/usr/bin" win-app-dir) | 25 | (expand-file-name "Git/usr/bin" win-app-dir) |
| 26 | (expand-file-name "Git/mingw64/bin" win-app-dir) | 26 | (expand-file-name "Git/mingw64/bin" win-app-dir) |
| 27 | (expand-file-name "Everything" win-app-dir) | 27 | (expand-file-name "Everything" win-app-dir) |
| 28 | (expand-file-name "Win-builds/bin" win-app-dir) | 28 | (expand-file-name "Win-builds/bin" win-app-dir) |
| 29 | (expand-file-name "Z/bin" win-app-dir) | 29 | (expand-file-name "Z/bin" win-app-dir) |
| 30 | ;; Linux | 30 | ;; Linux |
| 31 | (expand-file-name "bin" user-emacs-directory) | 31 | (expand-file-name "bin" user-emacs-directory) |
| 32 | (expand-file-name "~/bin") | 32 | (expand-file-name "~/bin") |
| 33 | (expand-file-name "~/.local/bin") | 33 | (expand-file-name "~/.local/bin") |
| 34 | (expand-file-name "~/Scripts") | 34 | (expand-file-name "~/Scripts") |
| 35 | )) | 35 | )) |
| 36 | (when (file-exists-p path) | 36 | (when (file-exists-p path) |
| 37 | (add-to-list 'exec-path path :append)))) | 37 | (add-to-list 'exec-path path :append)))) |
| 38 | 38 | ||
| @@ -43,49 +43,49 @@ | |||
| 43 | "Bootstrap straight.el." | 43 | "Bootstrap straight.el." |
| 44 | (defvar bootstrap-version) | 44 | (defvar bootstrap-version) |
| 45 | (let ((bootstrap-file | 45 | (let ((bootstrap-file |
| 46 | (expand-file-name | 46 | (expand-file-name |
| 47 | "straight/repos/straight.el/bootstrap.el" | 47 | "straight/repos/straight.el/bootstrap.el" |
| 48 | user-emacs-directory)) | 48 | user-emacs-directory)) |
| 49 | (bootstrap-version 5)) | 49 | (bootstrap-version 5)) |
| 50 | (unless (file-exists-p bootstrap-file) | 50 | (unless (file-exists-p bootstrap-file) |
| 51 | (with-current-buffer | 51 | (with-current-buffer |
| 52 | (url-retrieve-synchronously | 52 | (url-retrieve-synchronously |
| 53 | (concat | 53 | (concat |
| 54 | "https://raw.githubusercontent.com/" | 54 | "https://raw.githubusercontent.com/" |
| 55 | "raxod502/straight.el/develop/install.el") | 55 | "raxod502/straight.el/develop/install.el") |
| 56 | 'silent 'inhibit-cookies) | 56 | 'silent 'inhibit-cookies) |
| 57 | (goto-char (point-max)) | 57 | (goto-char (point-max)) |
| 58 | (eval-print-last-sexp))) | 58 | (eval-print-last-sexp))) |
| 59 | (load bootstrap-file nil 'nomessage))) | 59 | (load bootstrap-file nil 'nomessage))) |
| 60 | (when (executable-find "git") | 60 | (when (executable-find "git") |
| 61 | (unless (ignore-errors (acdw/bootstrap-straight)) | 61 | (unless (ignore-errors (acdw/bootstrap-straight)) |
| 62 | (let ((msg "Straight.el didn't bootstrap correctly. Cloning directly")) | 62 | (let ((msg "Straight.el didn't bootstrap correctly. Cloning directly")) |
| 63 | (message "%s..." msg) | 63 | (message "%s..." msg) |
| 64 | (call-process "git" nil | 64 | (call-process "git" nil |
| 65 | (get-buffer-create "*bootstrap-straight-messages*") nil | 65 | (get-buffer-create "*bootstrap-straight-messages*") nil |
| 66 | "clone" | 66 | "clone" |
| 67 | "https://github.com/raxod502/straight.el" | 67 | "https://github.com/raxod502/straight.el" |
| 68 | (expand-file-name "straight/repos/straight.el" | 68 | (expand-file-name "straight/repos/straight.el" |
| 69 | user-emacs-directory)) | 69 | user-emacs-directory)) |
| 70 | (message "%s...Done." msg) | 70 | (message "%s...Done." msg) |
| 71 | (acdw/bootstrap-straight)))) | 71 | (acdw/bootstrap-straight)))) |
| 72 | ;; SETUP FRAME | 72 | ;; SETUP FRAME |
| 73 | (add-to-list 'default-frame-alist | 73 | (add-to-list 'default-frame-alist |
| 74 | '(tool-bar-lines . 0)) | 74 | '(tool-bar-lines . 0)) |
| 75 | 75 | ||
| 76 | (tool-bar-mode -1) | 76 | (tool-bar-mode -1) |
| 77 | (add-to-list 'default-frame-alist | 77 | (add-to-list 'default-frame-alist |
| 78 | '(menu-bar-lines . 0)) | 78 | '(menu-bar-lines . 0)) |
| 79 | 79 | ||
| 80 | (menu-bar-mode -1) | 80 | (menu-bar-mode -1) |
| 81 | (add-to-list 'default-frame-alist | 81 | (add-to-list 'default-frame-alist |
| 82 | '(vertical-scroll-bars . nil) | 82 | '(vertical-scroll-bars . nil) |
| 83 | '(horizontal-scroll-bars . nil)) | 83 | '(horizontal-scroll-bars . nil)) |
| 84 | 84 | ||
| 85 | (scroll-bar-mode -1) | 85 | (scroll-bar-mode -1) |
| 86 | (horizontal-scroll-bar-mode -1) | 86 | (horizontal-scroll-bar-mode -1) |
| 87 | (setq-default frame-inhibit-implied-resize t | 87 | (setq-default frame-inhibit-implied-resize t |
| 88 | frame-resize-pixelwise t) | 88 | frame-resize-pixelwise t) |
| 89 | (setq-default indicate-empty-lines t) | 89 | (setq-default indicate-empty-lines t) |
| 90 | (setq-default indicate-buffer-boundaries 'right) | 90 | (setq-default indicate-buffer-boundaries 'right) |
| 91 | (setq-default visual-line-fringe-indicators '(left-curly-arrow nil)) | 91 | (setq-default visual-line-fringe-indicators '(left-curly-arrow nil)) |