lisp: add general commentary

6 files changed, 35 insertions, 25 deletions

diff --git a/init.el b/init.el
index ae96934..93aeaa7 100644
--- a/init.el
+++ b/init.el
@@ -1,4 +1,6 @@
-;;; -*- lexical-binding: t; -*-
+;;; init.el --- emacs init file -*- lexical-binding: t; -*-
+
+;;; Code:
 
 ;; Setup package.el and `use-package'.
 (require 'package)
@@ -18,7 +20,7 @@
 (require 'use-package)
 (setq use-package-always-ensure t)
 
-;;; ----- Package Imports -----
+;;; Package Imports
 
 ;; Load custom modules.
 (add-to-list 'load-path '"~/.emacs.d/lisp")
@@ -33,7 +35,7 @@
 (require 'td-programming)
 (require 'td-writing)
 
-;;; ----- Sane Defaults -----
+;;; Sane Defaults
 
 (column-number-mode)                                ; Display columns in our modeline.
 (global-display-line-numbers-mode t)                ; Display line numbers in the buffer/modeline.
@@ -57,7 +59,7 @@
 (setq save-place-forget-unreadable-files nil)       ; Always save our place in the file.
 (setq display-line-numbers-type 'relative)          ; Show relative line numbers.
 
-;;; ----- Keybinds -----
+;;; Keybinds
 
 ;; Make escape quit prompts.
 (global-set-key (kbd "<escape>") 'keyboard-escape-quit)
@@ -66,7 +68,7 @@
 (global-set-key (kbd "C-x n a") 'td/increment-number-at-point)
 (global-set-key (kbd "C-x n x") 'td/decrement-number-at-point)
 
-;;; ----- Hooks -----
+;;; Hooks
 
 ;; Display startup stats.
 (add-hook 'emacs-startup-hook #'td/display-startup-time)
@@ -82,7 +84,8 @@
   (td/set-font))
 
 ;; Disable line numbers for some modes.
-(dolist (mode '(eshell-mode-hook
+(dolist (mode '(eat-mode-hook
+                eshell-mode-hook
                 dired-mode-hook
                 olivetti-mode-hook
                 org-mode-hook
@@ -97,3 +100,5 @@
                 lisp-mode-hook
                 scheme-mode-hook))
   (add-hook mode 'prettify-symbols-mode))
+
+;;; init.el ends here
diff --git a/lisp/td-dired.el b/lisp/td-dired.el
index d1a6b72..562c550 100644
--- a/lisp/td-dired.el
+++ b/lisp/td-dired.el
@@ -1,4 +1,6 @@
-;;; -*- lexical-binding: t; -*-
+;;; td-dired.el --- dired configuration -*- lexical-binding: t; -*-
+
+;;; Code:
 
 (use-package dired
   :ensure nil
@@ -25,3 +27,4 @@
     "H" 'dired-hide-dotfiles-mode))
 
 (provide 'td-dired)
+;;; td-dired.el ends here
diff --git a/lisp/td-functions.el b/lisp/td-functions.el
index 4475037..c7230d0 100644
--- a/lisp/td-functions.el
+++ b/lisp/td-functions.el
@@ -1,4 +1,6 @@
-;;; -*- lexical-binding: t; -*-
+;;; td-functions --- custom elisp functions -*- lexical-binding: t; -*-
+
+;;; Code:
 
 (defun td/display-startup-time ()
   (message (if (daemonp)
@@ -13,15 +15,15 @@
   (when (display-graphic-p)
     (message "Setting font...")
     (set-face-attribute 'default nil
-                        :font "Iosevka Comfy Motion Fixed"
+                        :font "Iosevka Comfy"
                         :weight 'normal
                         :height 200)
     (set-face-attribute 'fixed-pitch nil
-                        :font "Iosevka Comfy Motion Fixed"
+                        :font "Iosevka Comfy"
                         :weight 'normal
                         :height 200)
     (set-face-attribute 'variable-pitch nil
-                        :font "Iosevka Comfy Motion Fixed"
+                        :font "Iosevka Comfy"
                         :weight 'normal
                         :height 200)))
 
@@ -62,3 +64,4 @@
     (load-theme theme t)))
 
 (provide 'td-functions)
+;;; td-functions.el ends here
diff --git a/lisp/td-mu4e.el b/lisp/td-mu4e.el
index 6e45fbb..6423507 100644
--- a/lisp/td-mu4e.el
+++ b/lisp/td-mu4e.el
@@ -1,4 +1,6 @@
-;;; -*- lexical-binding: t; -*-
+;;; td-mu4e.el --- the superior email client -*- lexical-binding: t; -*-
+
+;;; Code:
 
 (use-package mu4e
   :ensure nil
@@ -61,3 +63,4 @@
   (add-hook 'message-send-hook 'org-mime-confirm-when-no-multipart))
 
 (provide 'td-mu4e)
+;;; td-mu4e.el ends here
diff --git a/lisp/td-org.el b/lisp/td-org.el
index d9ca50e..c70f661 100644
--- a/lisp/td-org.el
+++ b/lisp/td-org.el
@@ -1,6 +1,6 @@
-;;; -*- lexical-binding: t; -*-
+;;; td-org.el --- org-mode configuration -*- lexical-binding: t; -*-
 
-;;; ----- Bootstrapping Functions -----
+;;; Code:
 
 (defun td/org-font-setup ()
   (font-lock-add-keywords 'org-mode
@@ -15,32 +15,26 @@
                   (org-level-4 . 1.0)))
     (set-face-attribute (car face)
                         nil
-                        :font "Iosevka Comfy Motion Fixed"
+                        :font "Iosevka Comfy"
                         :weight 'regular
                         :height (cdr face)))
   (set-face-attribute 'org-block
                       nil
-                      :foreground nil
                       :inherit 'fixed-pitch)
   (set-face-attribute 'org-code
                       nil
-                      :foreground nil
                       :inherit '(shadow fixed-pitch))
   (set-face-attribute 'org-table
                       nil
-                      :foreground nil
                       :inherit '(shadow fixed-pitch))
   (set-face-attribute 'org-verbatim
                       nil
-                      :foreground nil
                       :inherit '(shadow fixed-pitch))
   (set-face-attribute 'org-special-keyword
                       nil
-                      :foreground nil
                       :inherit '(font-lock-comment-face fixed-pitch))
   (set-face-attribute 'org-meta-line
                       nil
-                      :foreground nil
                       :inherit '(font-lock-comment-face fixed-pitch))
   (set-face-attribute 'org-checkbox
                       nil
@@ -52,10 +46,8 @@
   (visual-line-mode 1)
   (setq evil-auto-indent nil))
 
-;;; ----- Package Declaration -----
-
 (use-package org
-  :ensure t
+  :ensure nil
   :hook (org-mode . td/org-mode-setup)
   :bind (("C-c c" . org-capture)
          ("C-c a" . org-agenda))
@@ -170,3 +162,4 @@
   (add-to-list 'org-structure-template-alist '("sq" . "src sqlite")))
 
 (provide 'td-org)
+;;; td-org.el ends here
diff --git a/lisp/td-present.el b/lisp/td-present.el
index 72cd901..fc5513d 100644
--- a/lisp/td-present.el
+++ b/lisp/td-present.el
@@ -1,4 +1,6 @@
-;;; -*- lexical-binding: t; -*-
+;;; td-present.el --- org-powered presentations -*- lexical-binding: t; -*-
+
+;;; Code:
 
 (use-package org-present
   :ensure t
@@ -25,3 +27,4 @@
   (org-show-children))
 
 (provide 'td-present)
+;;; td-present.el ends here