Add elisp autoformatter

Add README

config.el

@@ -45,7 +45,9 @@
 
 ;; If you use `org' and don't want your org files in the default location below,
 ;; change `org-directory'. It must be set before org loads!
-(setq! org-directory "C:/Users/EmmaTurner/OneDrive - Exponential Technology Group, Inc/Documents/Notes/")
+(setq!
+ org-directory
+ "C:/Users/EmmaTurner/OneDrive - Exponential Technology Group, Inc/Documents/Notes/")
 
 ;; Whenever you reconfigure a package, make sure to wrap your config in an
 ;; `after!' block, otherwise Doom's defaults may override your settings. E.g.
@@ -78,51 +80,52 @@
 ;;
 ;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
 ;; they are implemented.
-(after! org
-  (setq org-hide-emphasis-markers t)
-  (setq org-log-done 'time)
+(after!
+ org (setq org-hide-emphasis-markers t) (setq org-log-done 'time)
 
-  ;; Collect all .org from my Org directory and subdirs
-  (defun load-org-agenda-files-recursively (dir) "Find all directories in DIR."
-       (unless (file-directory-p dir) (error "Not a directory '%s'" dir))
-       (unless (equal (directory-files dir nil org-agenda-file-regexp t) nil)
-        (add-to-list 'org-agenda-files dir)
-       )
-       (dolist (file (directory-files dir nil nil t))
-         (unless (member file '("." ".."))
-           (let ((file (concat dir file "/")))
-             (when (file-directory-p file)
-               (load-org-agenda-files-recursively file)
-             )
-           )
-         )
-       )
-  )
+ ;; Collect all .org from my Org directory and subdirs
+ (defun load-org-agenda-files-recursively (dir)
+   "Find all directories in DIR."
+   (unless (file-directory-p dir)
+     (error "Not a directory '%s'" dir))
+   (unless (equal (directory-files dir nil org-agenda-file-regexp t) nil)
+     (add-to-list 'org-agenda-files dir))
+   (dolist (file (directory-files dir nil nil t))
+     (unless (member file '("." ".."))
+       (let ((file (concat dir file "/")))
+         (when (file-directory-p file)
+           (load-org-agenda-files-recursively file))))))
 
-  (load-org-agenda-files-recursively org-directory) ; trailing slash required
+ (load-org-agenda-files-recursively org-directory) ; trailing slash required
 
-  (setq org-refile-targets
-      '((nil :maxlevel . 3)
-        (org-agenda-files :maxlevel . 1)))
-)
+ (setq org-refile-targets
+       '((nil :maxlevel . 3) (org-agenda-files :maxlevel . 1))))
 
 ;; TODO: Find out what _actually_ needs to be set here
 ;; i.e. shouldn't need to set both ispell-dictionary and ispell-local-dictionary
-(after! ispell
-  (setq ispell-dictionary "en_US")
-  (setq ispell-local-dictionary "en_US")
-  (setq ispell-extra-args '("-d" "en_US"))
-  (setq ispell-local-dictionary-alist
-        '(("en_US" "[A-Za-z]" "[^A-Za-z]" "[']" nil nil nil utf-8)))
-  (setq ispell-hunspell-dictionary-alist
-        '(("en_US"
-           "C:/hunspell/en_US.aff"
-           "C:/hunspell/en_US.dic"
-           nil nil nil "utf-8")))
-  ;; This is the default hunspell personal dictionary
-  ;; Hunspell won't create it, and ispell needs this file specified to work
-  (setq ispell-personal-dictionary "~/hunspell_en_US")
-)
+(after!
+ ispell
+ (setq ispell-dictionary "en_US")
+ (setq ispell-local-dictionary "en_US")
+ (setq ispell-extra-args '("-d" "en_US"))
+ (setq ispell-local-dictionary-alist
+       '(("en_US" "[A-Za-z]" "[^A-Za-z]" "[']" nil nil nil utf-8)))
+ (setq ispell-hunspell-dictionary-alist
+       '(("en_US"
+          "C:/hunspell/en_US.aff"
+          "C:/hunspell/en_US.dic"
+          nil
+          nil
+          nil
+          "utf-8")))
+ ;; This is the default hunspell personal dictionary
+ ;; Hunspell won't create it, and ispell needs this file specified to work
+ (setq ispell-personal-dictionary "~/.hunspell_en_US"))
+
+(use-package!
+ elisp-autofmt
+ :commands (elisp-autofmt-mode elisp-autofmt-buffer)
+ :hook (emacs-lisp-mode . elisp-autofmt-mode))
 
 ;; Windows path
 (when (eq system-type 'windows-nt)
@@ -135,9 +138,10 @@
   (push "C:/Program Files/Git/usr/bin/" exec-path)
 
   ;; Update PATH from exec-path
-  (let ((path (mapcar 'file-truename
-                      (append exec-path
-                              (split-string (getenv "PATH") path-separator t)))))
+  (let ((path
+         (mapcar
+          'file-truename
+          (append exec-path (split-string (getenv "PATH") path-separator t)))))
     (setenv "PATH" (mapconcat 'identity (delete-dups path) path-separator))))
 
 ;; Based off https://github.com/alphapapa/unpackaged.el#ensure-blank-lines-between-headings-and-before-contents
@@ -146,15 +150,19 @@
   "Ensure blank lines exist after each org entry (before each heading).
 With prefix, operate on whole buffer"
   (interactive "P")
-  (org-map-entries (lambda ()
-                     (let ((end (org-entry-end-position)))
-                       (goto-char end)
-                       (unless (string-equal (string (char-before)) "\n")
-                         ;; Insert blank line after entry end
-                         (insert "\n"))
-                       )
-                     )
-                   t (if prefix
-                         nil
-                       'tree))
-  )
+  (org-map-entries
+   (lambda ()
+     (let ((end (org-entry-end-position)))
+       (goto-char end)
+       (unless (string-equal (string (char-before)) "\n")
+         ;; Insert blank line after entry end
+         (insert "\n"))))
+   t
+   (if prefix
+       nil
+     'tree)))
+
+;; For elisp-autofmt
+;; Local variables:
+;; elisp-autofmt-load-packages-local: ("use-package" "use-package-core")
+;; end: