From 870d1595e4137b84481df678cf41871dfde1fbbd Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 25 Mar 2021 12:03:59 -0500
Subject: White space

---
 early-init.el | 78 +++++++++++++++++++++++++++++------------------------------
 1 file changed, 39 insertions(+), 39 deletions(-)

(limited to 'early-init.el')

diff --git a/early-init.el b/early-init.el
index d803c89..4037ef8 100644
--- a/early-init.el
+++ b/early-init.el
@@ -47,7 +47,7 @@
   "Reset `gc-cons-threshold', `gc-cons-percentage', and
   `file-name-handler-alist' to their defaults after init."
   (setq gc-cons-threshold gc-cons-threshold-basis
-	gc-cons-percentage gc-cons-percentage-basis)
+    gc-cons-percentage gc-cons-percentage-basis)
   (dolist (handler file-name-handler-alist)
     (add-to-list 'orig-file-name-handler-alist handler))
   (setq file-name-handler-alist orig-file-name-handler-alist))
@@ -58,33 +58,33 @@
 
 (setq default-frame-alist		; Remove most UI
       `((tool-bar-lines . 0)		; No tool bar
-	(menu-bar-lines . 0)		; No menu bar
-	(vertical-scroll-bars)		; No scroll bars
-	(horizontal-scroll-bars)	; ... at all
-	(width . 84)			; A /little/ wider than
-					; `fill-column' (set later)
-	(height . 30)
-	(left-fringe . 8)		; Width of fringes
-	(right-fringe . 8)		; (8 is default)
-	(font . ,(pcase acdw/system
-		   (:home "DejaVu Sans Mono 10")
-		   (:work "Consolas 10"))))
-	frame-inhibit-implied-resize t	; Don't resize randomly
-	frame-resize-pixelwise t	; Resize by pixels, not chars
-	)
+    (menu-bar-lines . 0)		; No menu bar
+    (vertical-scroll-bars)		; No scroll bars
+    (horizontal-scroll-bars)	; ... at all
+    (width . 84)			; A /little/ wider than
+                    ; `fill-column' (set later)
+    (height . 30)
+    (left-fringe . 8)		; Width of fringes
+    (right-fringe . 8)		; (8 is default)
+    (font . ,(pcase acdw/system
+           (:home "DejaVu Sans Mono 10")
+           (:work "Consolas 10"))))
+    frame-inhibit-implied-resize t	; Don't resize randomly
+    frame-resize-pixelwise t	; Resize by pixels, not chars
+    )
 
 (defun hook--disable-ui-modes ()
   "Disable frame UI using modes, for toggling later."
   (dolist (mode ;; each mode is of the form (MODE . FRAME-ALIST-VAR)
-	   '((tool-bar-mode . tool-bar-lines)
-	     (menu-bar-mode . menu-bar-lines)
-	     (scroll-bar-mode . vertical-scroll-bars)
-	     (horizontal-scroll-bar-mode . horizontal-scroll-bars)
-	     ))
+       '((tool-bar-mode . tool-bar-lines)
+         (menu-bar-mode . menu-bar-lines)
+         (scroll-bar-mode . vertical-scroll-bars)
+         (horizontal-scroll-bar-mode . horizontal-scroll-bars)
+         ))
     (let ((setting (alist-get (cdr mode) default-frame-alist)))
       (when (or (not setting)
-		(= 0 setting))
-	(funcall (car mode) -1)))))
+        (= 0 setting))
+    (funcall (car mode) -1)))))
 
 (add-hook 'after-init-hook #'hook--disable-ui-modes)
 
@@ -92,11 +92,11 @@
 
 ;; 1. Update `exec-path'.
 (dolist (path (list (expand-file-name "bin" user-emacs-directory)
-		    (expand-file-name "~/bin")
-		    (expand-file-name "~/.local/bin")
-		    (expand-file-name "~/usr/bin")
-		    (expand-file-name "~/cmd")
-		    (expand-file-name "~/mingw64/bin")))
+            (expand-file-name "~/bin")
+            (expand-file-name "~/.local/bin")
+            (expand-file-name "~/usr/bin")
+            (expand-file-name "~/cmd")
+            (expand-file-name "~/mingw64/bin")))
   (when (file-exists-p path)
     (add-to-list 'exec-path path :append)))
 
@@ -105,10 +105,10 @@
 
 ;; 2. Set `package' and `straight' variables.
 (setq package-enable-at-startup nil	; not sure if strictly
-					; necessary
+                    ; necessary
       package-quickstart nil		; ditto
       straight-host-usernames '((github . "duckwork")
-				(gitlab . "acdw"))
+                (gitlab . "acdw"))
       straight-base-dir acdw/dir	; don't clutter ~/.emacs.d
       )
 
@@ -116,15 +116,15 @@
 (defvar bootstrap-version)
 (let ((bootstrap-file
        (expand-file-name
-	"straight/repos/straight.el/bootstrap.el"
-	straight-base-dir))
+    "straight/repos/straight.el/bootstrap.el"
+    straight-base-dir))
       (bootstrap-version 5))
   (unless (file-exists-p bootstrap-file)
     (with-current-buffer
-	(url-retrieve-synchronously
-	 (concat "https://raw.githubusercontent.com/"
-		 "raxod502/straight.el/develop/install.el")
-	 'silent 'inhibit-cookies)
+    (url-retrieve-synchronously
+     (concat "https://raw.githubusercontent.com/"
+         "raxod502/straight.el/develop/install.el")
+     'silent 'inhibit-cookies)
       (goto-char (point-max))
       (eval-print-last-sexp)))
   (load bootstrap-file nil 'nomessage))
@@ -134,10 +134,10 @@
 (defun hook--message-startup-time ()
   "Show Emacs's startup time in the message buffer.  For profiling."
   (message "Emacs ready in %s with %d garbage collections."
-	   (format "%.2f seconds"
-		   (float-time (time-subtract after-init-time
-					      before-init-time)))
-	   gcs-done))
+       (format "%.2f seconds"
+           (float-time (time-subtract after-init-time
+                          before-init-time)))
+       gcs-done))
 
 (add-hook 'emacs-startup-hook #'hook--message-startup-time)
 
-- 
cgit 1.4.1-21-gabe81