Whitespace

1 files changed, 14 insertions, 14 deletions

@@ -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)