From 1dad28285993c3aec35f6fb5f3e203896d1d2f71 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 12 Mar 2021 17:33:28 -0600
Subject: Whitespace

---
 lisp/acdw.el | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

(limited to 'lisp/acdw.el')

diff --git a/lisp/acdw.el b/lisp/acdw.el
index 002f8f6..84fcb99 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -32,7 +32,7 @@ Ready for use with `after-focus-change-function'."
 
 (defun acdw/sunrise-sunset (sunrise-command sunset-command)
   "Run commands at sunrise and sunset."
-   (let* ((times-regex (rx (* nonl)
+  (let* ((times-regex (rx (* nonl)
 			  (: (any ?s ?S) "unrise") " "
 			  (group (repeat 1 2 digit) ":"
 				 (repeat 1 2 digit)
@@ -75,14 +75,14 @@ directory."
 ASSIGNMENTS is a list where each element is of the form
 (VARIABLE VALUE [COMMENT])."
   (let (setting)			; for return value
-  (dolist (assignment assignments setting)
-    (customize-set-variable (car assignment)
-			    (cadr assignment)
-			    (if (and (caddr assignment)
-				     (stringp (caddr assignment)))
-				(caddr assignment)
-			      "Customized by `acdw/set'."))
-    (setq setting (car assignment)))))
+    (dolist (assignment assignments setting)
+      (customize-set-variable (car assignment)
+			      (cadr assignment)
+			      (if (and (caddr assignment)
+				       (stringp (caddr assignment)))
+				  (caddr assignment)
+				"Customized by `acdw/set'."))
+      (setq setting (car assignment)))))
 
 ;;; Faces
 
@@ -150,9 +150,9 @@ The following keywords are recognized:
 :map KEYMAP .. define KEY in KEYMAP instead of the
 	       default `acdw/bind-default-map'."
   (let ((after (when-let (sym (plist-get args :after))
-		    (if (not (listp sym))
-			(list sym)
-		      sym)))
+		 (if (not (listp sym))
+		     (list sym)
+		   sym)))
 	(keymap (or (plist-get args :map) acdw/bind-default-map))
 	(keycode (if (vectorp key) key (kbd key)))
 	(command-list))
@@ -180,7 +180,7 @@ KEYMAP can be nil."
 			`(:after ,file :map ,keymap)
 		      `(:after ,file))))
     (dolist (binding bindings)
-	(push `(acdw/bind ,@binding ,@extra-args) bind-list))
+      (push `(acdw/bind ,@binding ,@extra-args) bind-list))
     `(progn
        ,@bind-list)))
 
@@ -237,7 +237,7 @@ ARGS can include the following keywords:
   "A keymap for my custom bindings.")
 
 (define-minor-mode acdw/mode
-  "A mode for `acdw/map'."
+    "A mode for `acdw/map'."
   :init-value t
   :lighter " acdw"
   :keymap acdw/map)
-- 
cgit 1.4.1-21-gabe81