Add elisp autoformatter

Add README

README.org

@@ -0,0 +1,13 @@
+* Prerequisites
+
+- Git (Required on windows so Emacs can use the included Linux tools)
+- hunspell
+- ~en_US.aff~ and ~en_US.dic~ files from [[https://cgit.freedesktop.org/libreoffice/dictionaries/tree/en][LibreOffice Dictionaries]] (required for hunspell)
+- Python 3.10 or newer (required for ~elisp-autofmt~)
+
+#+begin_src powershell
+winget install Git.Git FSFhu.Hunspell Python.Python.3.14
+#+end_src
+
+Additionally the personal dictionary file for hunspell must be created before it can be written to.
+The default path is ~$HOME/.hunspell_en_US~

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,37 +80,31 @@
 ;;
 ;; You can also try 'gd' (or 'C-c c d') to jump to their definition and see how
 ;; they are implemented.
-(after! org
+(after!
-  (setq org-hide-emphasis-markers t)
+ org (setq org-hide-emphasis-markers t) (setq org-log-done 'time)
-  (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."
+ (defun load-org-agenda-files-recursively (dir)
-       (unless (file-directory-p dir) (error "Not a directory '%s'" 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)
+     (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 file))))))
-             )
-           )
-         )
-       )
-  )
 
  (load-org-agenda-files-recursively org-directory) ; trailing slash required
 
  (setq org-refile-targets
-      '((nil :maxlevel . 3)
+       '((nil :maxlevel . 3) (org-agenda-files :maxlevel . 1))))
-        (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
+(after!
+ ispell
  (setq ispell-dictionary "en_US")
  (setq ispell-local-dictionary "en_US")
  (setq ispell-extra-args '("-d" "en_US"))
@@ -118,11 +114,18 @@
        '(("en_US"
           "C:/hunspell/en_US.aff"
           "C:/hunspell/en_US.dic"
-           nil nil nil "utf-8")))
+          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")
+ (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
+  (let ((path
-                      (append exec-path
+         (mapcar
-                              (split-string (getenv "PATH") path-separator t)))))
+          '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 ()
+  (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"))
+         (insert "\n"))))
-                       )
+   t
-                     )
+   (if prefix
-                   t (if prefix
        nil
-                       'tree))
+     'tree)))
-  )
+
+;; For elisp-autofmt
+;; Local variables:
+;; elisp-autofmt-load-packages-local: ("use-package" "use-package-core")
+;; end:

init.el

@@ -13,6 +13,7 @@
 ;;
 ;;      Alternatively, press 'gd' (or 'C-c c d') on a module to browse its
 ;;      directory (for easy access to its source code).
+;;      format: off
 
 (doom! :input
        ;;bidi              ; (tfel ot) thgir etirw uoy gnipleh
@@ -54,7 +55,7 @@
        ;;zen               ; distraction-free coding or writing
 
        :editor
-       (evil +everywhere); come to the dark side, we have cookies
+       (evil +everywhere) ; come to the dark side, we have cookies
        file-templates ; auto-snippets for empty files
        fold ; (nigh) universal code folding
        ;;(format +onsave)  ; automated prettiness
@@ -143,7 +144,7 @@
        ;;(haskell +lsp)    ; a language that's lazier than I am
        ;;hy                ; readability of scheme w/ speed of python
        ;;idris             ; a language you can depend on
-       json              ; At least it ain't XML
+       (json +tree-sitter) ; At least it ain't XML
        ;;janet             ; Fun fact: Janet is me!
        ;;(java +lsp)       ; the poster child for carpal tunnel syndrome
        (javascript +tree-sitter) ; all(hope(abandon(ye(who(enter(here))))))

packages.el

@@ -52,3 +52,5 @@
 ;; (unpin! pinned-package another-pinned-package)
 ;; ...Or *all* packages (NOT RECOMMENDED; will likely break things)
 ;; (unpin! t)
+
+(package! elisp-autofmt)