1 files changed, 65 insertions, 65 deletions

@@ -37,20 +37,20 @@ 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)
-                          (: (any ?s ?S) "unrise") " "
-                          (group (repeat 1 2 digit) ":"
-                                 (repeat 1 2 digit)
-                                 (: (any ?a ?A ?p ?P) (any ?m ?M)))
-                          (* nonl)
-                          (: (any ?s ?S) "unset") " "
-                          (group (repeat 1 2 digit) ":"
-                                 (repeat 1 2 digit)
-                                 (: (any ?a ?A ?p ?P) (any ?m ?M)))
-                          (* nonl)))
-         (ss (sunrise-sunset))
-         (_m (string-match times-regex ss))
-         (sunrise-time (match-string 1 ss))
-         (sunset-time (match-string 2 ss)))
+              (: (any ?s ?S) "unrise") " "
+              (group (repeat 1 2 digit) ":"
+                 (repeat 1 2 digit)
+                 (: (any ?a ?A ?p ?P) (any ?m ?M)))
+              (* nonl)
+              (: (any ?s ?S) "unset") " "
+              (group (repeat 1 2 digit) ":"
+                 (repeat 1 2 digit)
+                 (: (any ?a ?A ?p ?P) (any ?m ?M)))
+              (* nonl)))
+     (ss (sunrise-sunset))
+     (_m (string-match times-regex ss))
+     (sunrise-time (match-string 1 ss))
+     (sunset-time (match-string 2 ss)))
     (run-at-time sunrise-time (* 60 60 24) sunrise-command)
     (run-at-time sunset-time (* 60 60 24) sunset-command)
     (run-at-time "12:00am" (* 60 60 24) sunset-command)))
@@ -58,15 +58,15 @@ Ready for use with `after-focus-change-function'."
 ;;; Directories (think `no-littering')
 
 (defvar acdw/dir (expand-file-name
-                  (convert-standard-filename "var/")
-                  user-emacs-directory)
+          (convert-standard-filename "var/")
+          user-emacs-directory)
   "A directory to hold extra configuration and emacs data.")
 
 (defun acdw/in-dir (file &optional make-directory)
   "Expand FILE relative to `acdw/dir', optionally creating its
 directory."
   (let ((f (expand-file-name (convert-standard-filename file)
-                             acdw/dir)))
+                 acdw/dir)))
     (when make-directory
       (make-directory (file-name-directory f) 'parents))
     f))
@@ -81,11 +81,11 @@ ASSIGNMENTS is a list where each element is of the form
   (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'."))
+                  (cadr assignment)
+                  (if (and (caddr assignment)
+                       (stringp (caddr assignment)))
+                  (caddr assignment)
+                "Customized by `acdw/set'."))
       (setq setting (car assignment)))))
 
 ;;; Faces
@@ -118,19 +118,19 @@ ARGS accept the following keywords:
 
 :after FEATURE .. `autoload' all functions after FEATURE."
   (let ((after (plist-get args :after))
-        (command-list))
+    (command-list))
     (dolist (spec hook-specs)
       (let* ((hooks (car spec))
-             (funcs (cadr spec))
-             (depth (or (caddr spec) 0))
-             (local (cadddr spec)))
-        (when (not (listp hooks)) (setq hooks (list hooks)))
-        (when (not (listp funcs)) (setq funcs (list funcs)))
-        (dolist (hook hooks)
-          (dolist (func funcs)
-            (push `(add-hook ',hook #',func ,depth ,local) command-list)
-            (when after
-              (push `(autoload #',func ,after) command-list))))))
+         (funcs (cadr spec))
+         (depth (or (caddr spec) 0))
+         (local (cadddr spec)))
+    (when (not (listp hooks)) (setq hooks (list hooks)))
+    (when (not (listp funcs)) (setq funcs (list funcs)))
+    (dolist (hook hooks)
+      (dolist (func funcs)
+        (push `(add-hook ',hook #',func ,depth ,local) command-list)
+        (when after
+          (push `(autoload #',func ,after) command-list))))))
     `(progn
        ,@command-list)))
 
@@ -161,25 +161,25 @@ The following keywords are recognized:
   defined in a different file than the command it binds (looking
   at you, `org-mode')."
   (let ((after (when-let (sym (plist-get args :after))
-                 (if (not (listp sym))
-                     (list sym)
-                   sym)))
-        (map-after (plist-get args :map-after))
-        (keymap (or (plist-get args :map) acdw/bind-default-map))
-        (keycode (if (vectorp key) key (kbd key)))
-        (command-list))
+         (if (not (listp sym))
+             (list sym)
+           sym)))
+    (map-after (plist-get args :map-after))
+    (keymap (or (plist-get args :map) acdw/bind-default-map))
+    (keycode (if (vectorp key) key (kbd key)))
+    (command-list))
     (let ((define-key-command `(define-key ,keymap ,keycode ',command)))
       (if map-after
-          (push `(with-eval-after-load ,map-after
-                   ,define-key-command)
-                command-list)
-        (push define-key-command command-list)))
+      (push `(with-eval-after-load ,map-after
+           ,define-key-command)
+        command-list)
+    (push define-key-command command-list)))
     (when after
       (unless (fboundp command)
-        (push `(autoload ',command ,@after) command-list))
+    (push `(autoload ',command ,@after) command-list))
       (unless (or map-after
-                  (eq keymap acdw/bind-default-map))
-        (push `(autoload ',keymap ,(car after) nil nil 'keymap) command-list)))
+          (eq keymap acdw/bind-default-map))
+    (push `(autoload ',keymap ,(car after) nil nil 'keymap) command-list)))
     `(progn
        ,@command-list)))
 
@@ -197,9 +197,9 @@ The following keywords are recognized:
 KEYMAP can be nil."
   (declare (indent 2))
   (let ((bind-list)
-        (extra-args (if keymap
-                        `(:after ,file :map ,keymap)
-                      `(:after ,file))))
+    (extra-args (if keymap
+            `(:after ,file :map ,keymap)
+              `(:after ,file))))
     (dolist (binding bindings)
       (push `(acdw/bind ,@binding ,@extra-args) bind-list))
     `(progn
@@ -213,34 +213,34 @@ KEYMAP can be nil."
 ARGS can include the following keywords:
 
 :local BOOL   .. if BOOL is non-nil, don't run `straight-use-package' on
-                 PACKAGE.  Good for using `acdw/pkg' on local features.
+         PACKAGE.  Good for using `acdw/pkg' on local features.
 :require BOOL .. if BOOL is non-nil, run `require' on PACKAGE before anything.
 :now FORMS    .. run FORMS immediately.
 :then FORMS   .. run FORMS after loading PACKAGE, using `with-eval-after-load'.
 :set SETTINGS .. pass SETTINGS to `acdw/set', right after `:now' forms.
-                 SETTINGS should be properly quoted, just like they'd be passed
-                 to the function.
+         SETTINGS should be properly quoted, just like they'd be passed
+         to the function.
 :binds BINDS  .. run `acdw/bind-after-map' on BINDS.
 :hooks HOOKS  .. run `acdw/hooks' on HOOKS."
   (declare (indent 1))
   (let ((local-pkg (plist-get args :local))
-        (require-pkg (plist-get args :require))
-        (now-forms (plist-get args :now))
-        (settings (plist-get args :set))
-        (binds (plist-get args :binds))
-        (hooks (plist-get args :hooks))
-        (then-forms (plist-get args :then))
-        (requirement (if (listp package)
-                         (car package)
-                       package))
-        (final-form))
+    (require-pkg (plist-get args :require))
+    (now-forms (plist-get args :now))
+    (settings (plist-get args :set))
+    (binds (plist-get args :binds))
+    (hooks (plist-get args :hooks))
+    (then-forms (plist-get args :then))
+    (requirement (if (listp package)
+             (car package)
+               package))
+    (final-form))
     (when then-forms
       (push `(with-eval-after-load ',requirement ,@then-forms) final-form))
     (when hooks
       (push `(acdw/hooks ,hooks :after ,(symbol-name requirement)) final-form))
     (when binds
       (push `(acdw/bind-after-map ,(symbol-name requirement) nil ,binds)
-            final-form))
+        final-form))
     (when settings
       (push `(acdw/set ,settings) final-form))
     (when now-forms
@@ -273,7 +273,7 @@ ARGS can include the following keywords:
 ;; Set up a leader key for `acdw/mode'
 (defvar acdw/leader
   (let ((map (make-sparse-keymap))
-        (c-z (global-key-binding "\C-z")))
+    (c-z (global-key-binding "\C-z")))
     (define-key acdw/map "\C-z" map)
     (define-key map "\C-z" c-z)
     map))