I'm guessing ... whitespace?

author: Case Duckworth 2021-01-25 16:54:41 -0600
committer: Case Duckworth 2021-01-25 16:54:41 -0600
commit: 7302027ea1d832a5df7555e7da6c8ec6e5b11f3a (patch)
tree: d2732a575311948654a1d8a750ceaab378de07c1 /early-init.el
parent: Configure Agenda (diff)
download: emacs-7302027ea1d832a5df7555e7da6c8ec6e5b11f3a.tar.gz
emacs-7302027ea1d832a5df7555e7da6c8ec6e5b11f3a.zip
1 files changed, 87 insertions, 87 deletions
diff --git a/early-init.el b/early-init.el
index 1c2492e..447597b 100644
--- a/early-init.el
+++ b/early-init.el

@@ -1,87 +1,87 @@
-;;; early-init.el -*- no-byte-compile: t; -*-
+;;; early-init.el -*- no-byte-compile: t; -*-
-;; Copyright (C) 2020 Case Duckworth
+;; Copyright (C) 2020 Case Duckworth
-;; Author: Case Duckworth <acdw@acdw.net>
+;; Author: Case Duckworth <acdw@acdw.net>
-;; Created: Sometime during the Covid-19 lockdown, 2019
+;; Created: Sometime during the Covid-19 lockdown, 2019
-;; Keywords: configuration
+;; Keywords: configuration
-;; URL: https://tildegit.org/acdw/emacs
+;; URL: https://tildegit.org/acdw/emacs
-;; This file is not part of GNU Emacs.
+;; This file is not part of GNU Emacs.
-;;; Commentary:
+;;; Commentary:
-;; This file is automatically tangled from config.org.
+;; This file is automatically tangled from config.org.
-;; Hand edits will be overwritten!
+;; Hand edits will be overwritten!
-;;; Code:
+;;; Code:
-;; BOOTSTRAP PACKAGE MANAGEMENT
+;; BOOTSTRAP PACKAGE MANAGEMENT
-(let ((win-app-dir "~/Applications"))
+(let ((win-app-dir "~/Applications"))
-  (dolist (path (list
+  (dolist (path (list
-                 ;; Windows
+                 ;; Windows
-                 (expand-file-name "exe" win-app-dir)
+                 (expand-file-name "exe" win-app-dir)
-                 (expand-file-name "Git/bin" win-app-dir)
+                 (expand-file-name "Git/bin" win-app-dir)
-                 (expand-file-name "Git/usr/bin" win-app-dir)
+                 (expand-file-name "Git/usr/bin" win-app-dir)
-                 (expand-file-name "Git/mingw64/bin" win-app-dir)
+                 (expand-file-name "Git/mingw64/bin" win-app-dir)
-                 (expand-file-name "Everything" win-app-dir)
+                 (expand-file-name "Everything" win-app-dir)
-                 (expand-file-name "Win-builds/bin" win-app-dir)
+                 (expand-file-name "Win-builds/bin" win-app-dir)
-                 ;; Linux
+                 ;; Linux
-                 (expand-file-name "bin" user-emacs-directory)
+                 (expand-file-name "bin" user-emacs-directory)
-                 (expand-file-name "~/bin")
+                 (expand-file-name "~/bin")
-                 (expand-file-name "~/.local/bin")
+                 (expand-file-name "~/.local/bin")
-                 (expand-file-name "~/Scripts")
+                 (expand-file-name "~/Scripts")
-                 ))
+                 ))
-    (when (file-exists-p path)
+    (when (file-exists-p path)
-      (add-to-list 'exec-path path :append))))
+      (add-to-list 'exec-path path :append))))
-;; Set $PATH
+;; Set $PATH
-(setenv "PATH" (mapconcat #'identity exec-path path-separator))
+(setenv "PATH" (mapconcat #'identity exec-path path-separator))
-(setq package-enable-at-startup nil)
+(setq package-enable-at-startup nil)
-(defun acdw/bootstrap-straight ()
+(defun acdw/bootstrap-straight ()
-  "Bootstrap straight.el."
+  "Bootstrap straight.el."
-  (defvar bootstrap-version)
+  (defvar bootstrap-version)
-  (let ((bootstrap-file
+  (let ((bootstrap-file
-         (expand-file-name
+         (expand-file-name
-          "straight/repos/straight.el/bootstrap.el"
+          "straight/repos/straight.el/bootstrap.el"
-          user-emacs-directory))
+          user-emacs-directory))
-        (bootstrap-version 5))
+        (bootstrap-version 5))
-    (unless (file-exists-p bootstrap-file)
+    (unless (file-exists-p bootstrap-file)
-      (with-current-buffer
+      (with-current-buffer
-          (url-retrieve-synchronously
+          (url-retrieve-synchronously
-           (concat
+           (concat
-            "https://raw.githubusercontent.com/"
+            "https://raw.githubusercontent.com/"
-            "raxod502/straight.el/develop/install.el")
+            "raxod502/straight.el/develop/install.el")
-           'silent 'inhibit-cookies)
+           'silent 'inhibit-cookies)
-        (goto-char (point-max))
+        (goto-char (point-max))
-        (eval-print-last-sexp)))
+        (eval-print-last-sexp)))
-    (load bootstrap-file nil 'nomessage)))
+    (load bootstrap-file nil 'nomessage)))
-(when (executable-find "git")
+(when (executable-find "git")
-  (unless (ignore-errors (acdw/bootstrap-straight))
+  (unless (ignore-errors (acdw/bootstrap-straight))
-    (let ((msg "Straight.el didn't bootstrap correctly.  Cloning directly"))
+    (let ((msg "Straight.el didn't bootstrap correctly.  Cloning directly"))
-      (message "%s..." msg)
+      (message "%s..." msg)
-      (call-process "git" nil
+      (call-process "git" nil
-                    (get-buffer-create "*bootstrap-straight-messages*") nil
+                    (get-buffer-create "*bootstrap-straight-messages*") nil
-                    "clone"
+                    "clone"
-                    "https://github.com/raxod502/straight.el"
+                    "https://github.com/raxod502/straight.el"
-                    (expand-file-name "straight/repos/straight.el"
+                    (expand-file-name "straight/repos/straight.el"
-                                      user-emacs-directory))
+                                      user-emacs-directory))
-      (message "%s...Done." msg)
+      (message "%s...Done." msg)
-      (acdw/bootstrap-straight))))
+      (acdw/bootstrap-straight))))
-;; SETUP FRAME
+;; SETUP FRAME
-(add-to-list 'default-frame-alist
+(add-to-list 'default-frame-alist
-             '(tool-bar-lines . 0))
+             '(tool-bar-lines . 0))
-(tool-bar-mode -1)
+(tool-bar-mode -1)
-(add-to-list 'default-frame-alist
+(add-to-list 'default-frame-alist
-             '(menu-bar-lines . 0))
+             '(menu-bar-lines . 0))
-(menu-bar-mode -1)
+(menu-bar-mode -1)
-(add-to-list 'default-frame-alist
+(add-to-list 'default-frame-alist
-             '(vertical-scroll-bars . nil)
+             '(vertical-scroll-bars . nil)
-             '(horizontal-scroll-bars . nil))
+             '(horizontal-scroll-bars . nil))
-(scroll-bar-mode -1)
+(scroll-bar-mode -1)
-(horizontal-scroll-bar-mode -1)
+(horizontal-scroll-bar-mode -1)
-(setq-default frame-inhibit-implied-resize t
+(setq-default frame-inhibit-implied-resize t
-              frame-resize-pixelwise t)
+              frame-resize-pixelwise t)
-;;; early-init.el ends here
+;;; early-init.el ends here
author	Case Duckworth	2021-01-25 16:54:41 -0600
committer	Case Duckworth	2021-01-25 16:54:41 -0600
commit	7302027ea1d832a5df7555e7da6c8ec6e5b11f3a (patch)
tree	d2732a575311948654a1d8a750ceaab378de07c1 /early-init.el
parent	Configure Agenda (diff)
download	emacs-7302027ea1d832a5df7555e7da6c8ec6e5b11f3a.tar.gz emacs-7302027ea1d832a5df7555e7da6c8ec6e5b11f3a.zip

diff --git a/early-init.el b/early-init.el index 1c2492e..447597b 100644 --- a/early-init.el +++ b/early-init.el
@@ -1,87 +1,87 @@
1	;;; early-init.el -- no-byte-compile: t; --	1	;;; early-init.el -- no-byte-compile: t; --
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 "Git/bin" win-app-dir)	22	(expand-file-name "Git/bin" win-app-dir)
23	(expand-file-name "Git/usr/bin" win-app-dir)	23	(expand-file-name "Git/usr/bin" win-app-dir)
24	(expand-file-name "Git/mingw64/bin" win-app-dir)	24	(expand-file-name "Git/mingw64/bin" win-app-dir)
25	(expand-file-name "Everything" win-app-dir)	25	(expand-file-name "Everything" win-app-dir)
26	(expand-file-name "Win-builds/bin" win-app-dir)	26	(expand-file-name "Win-builds/bin" win-app-dir)
27	;; Linux	27	;; Linux
28	(expand-file-name "bin" user-emacs-directory)	28	(expand-file-name "bin" user-emacs-directory)
29	(expand-file-name "~/bin")	29	(expand-file-name "~/bin")
30	(expand-file-name "~/.local/bin")	30	(expand-file-name "~/.local/bin")
31	(expand-file-name "~/Scripts")	31	(expand-file-name "~/Scripts")
32	))	32	))
33	(when (file-exists-p path)	33	(when (file-exists-p path)
34	(add-to-list 'exec-path path :append))))	34	(add-to-list 'exec-path path :append))))
35		35
36	;; Set $PATH	36	;; Set $PATH
37	(setenv "PATH" (mapconcat #'identity exec-path path-separator))	37	(setenv "PATH" (mapconcat #'identity exec-path path-separator))
38	(setq package-enable-at-startup nil)	38	(setq package-enable-at-startup nil)
39	(defun acdw/bootstrap-straight ()	39	(defun acdw/bootstrap-straight ()
40	"Bootstrap straight.el."	40	"Bootstrap straight.el."
41	(defvar bootstrap-version)	41	(defvar bootstrap-version)
42	(let ((bootstrap-file	42	(let ((bootstrap-file
43	(expand-file-name	43	(expand-file-name
44	"straight/repos/straight.el/bootstrap.el"	44	"straight/repos/straight.el/bootstrap.el"
45	user-emacs-directory))	45	user-emacs-directory))
46	(bootstrap-version 5))	46	(bootstrap-version 5))
47	(unless (file-exists-p bootstrap-file)	47	(unless (file-exists-p bootstrap-file)
48	(with-current-buffer	48	(with-current-buffer
49	(url-retrieve-synchronously	49	(url-retrieve-synchronously
50	(concat	50	(concat
51	"https://raw.githubusercontent.com/"	51	"https://raw.githubusercontent.com/"
52	"raxod502/straight.el/develop/install.el")	52	"raxod502/straight.el/develop/install.el")
53	'silent 'inhibit-cookies)	53	'silent 'inhibit-cookies)
54	(goto-char (point-max))	54	(goto-char (point-max))
55	(eval-print-last-sexp)))	55	(eval-print-last-sexp)))
56	(load bootstrap-file nil 'nomessage)))	56	(load bootstrap-file nil 'nomessage)))
57	(when (executable-find "git")	57	(when (executable-find "git")
58	(unless (ignore-errors (acdw/bootstrap-straight))	58	(unless (ignore-errors (acdw/bootstrap-straight))
59	(let ((msg "Straight.el didn't bootstrap correctly. Cloning directly"))	59	(let ((msg "Straight.el didn't bootstrap correctly. Cloning directly"))
60	(message "%s..." msg)	60	(message "%s..." msg)
61	(call-process "git" nil	61	(call-process "git" nil
62	(get-buffer-create "bootstrap-straight-messages") nil	62	(get-buffer-create "bootstrap-straight-messages") nil
63	"clone"	63	"clone"
64	"https://github.com/raxod502/straight.el"	64	"https://github.com/raxod502/straight.el"
65	(expand-file-name "straight/repos/straight.el"	65	(expand-file-name "straight/repos/straight.el"
66	user-emacs-directory))	66	user-emacs-directory))
67	(message "%s...Done." msg)	67	(message "%s...Done." msg)
68	(acdw/bootstrap-straight))))	68	(acdw/bootstrap-straight))))
69	;; SETUP FRAME	69	;; SETUP FRAME
70	(add-to-list 'default-frame-alist	70	(add-to-list 'default-frame-alist
71	'(tool-bar-lines . 0))	71	'(tool-bar-lines . 0))
72		72
73	(tool-bar-mode -1)	73	(tool-bar-mode -1)
74	(add-to-list 'default-frame-alist	74	(add-to-list 'default-frame-alist
75	'(menu-bar-lines . 0))	75	'(menu-bar-lines . 0))
76		76
77	(menu-bar-mode -1)	77	(menu-bar-mode -1)
78	(add-to-list 'default-frame-alist	78	(add-to-list 'default-frame-alist
79	'(vertical-scroll-bars . nil)	79	'(vertical-scroll-bars . nil)
80	'(horizontal-scroll-bars . nil))	80	'(horizontal-scroll-bars . nil))
81		81
82	(scroll-bar-mode -1)	82	(scroll-bar-mode -1)
83	(horizontal-scroll-bar-mode -1)	83	(horizontal-scroll-bar-mode -1)
84	(setq-default frame-inhibit-implied-resize t	84	(setq-default frame-inhibit-implied-resize t
85	frame-resize-pixelwise t)	85	frame-resize-pixelwise t)
86		86
87	;;; early-init.el ends here	87	;;; early-init.el ends here