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.el72
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))