Force LF

author: Case Duckworth 2021-02-23 12:17:33 -0600
committer: Case Duckworth 2021-02-23 12:17:51 -0600
commit: 89467846ab071d2644ac777d3187b3f913e62e69 (patch)
tree: 607a172b9ae68cf331b607ebda49bd358441d5ba /early-init.el
parent: Add nov.el (diff)
download: emacs-89467846ab071d2644ac777d3187b3f913e62e69.tar.gz
emacs-89467846ab071d2644ac777d3187b3f913e62e69.zip
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 @@
-;;; early-init.el -*- no-byte-compile: t; coding: utf-8 -*-
+;;; early-init.el -*- no-byte-compile: t; coding: utf-8 -*-
-;; 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 "exe/bin" win-app-dir)
+                 (expand-file-name "exe/bin" 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)
-                 (expand-file-name "Z/bin" win-app-dir)
+                 (expand-file-name "Z/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-02-23 12:17:33 -0600
committer	Case Duckworth	2021-02-23 12:17:51 -0600
commit	89467846ab071d2644ac777d3187b3f913e62e69 (patch)
tree	607a172b9ae68cf331b607ebda49bd358441d5ba /early-init.el
parent	Add nov.el (diff)
download	emacs-89467846ab071d2644ac777d3187b3f913e62e69.tar.gz emacs-89467846ab071d2644ac777d3187b3f913e62e69.zip

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