Minor refactors & comment revision

core/autoload/packages.el

@@ -155,6 +155,7 @@ was installed with."
       ((debug error)
        (signal 'doom-package-error
                (list (doom-module-from-path file)
+                     file
                      e))))))
 
 ;;;###autoload

core/cli/packages.el

@@ -91,7 +91,7 @@ declaration) or dependency thereof that hasn't already been."
                     (cl-incf n))
              (error
               (signal 'doom-package-error
-                      (list e (straight--process-get-output))))))))
+                      (list package e (straight--process-get-output))))))))
      (if (= n 0)
          (ignore (print! (success "No packages need to be installed")))
        (print! (success "Installed & built %d packages") n)

core/packages.el

@@ -24,8 +24,8 @@
 (package! so-long
   :built-in 'prefer ; included in Emacs 27+
   ;; REVIEW so-long is slated to be published to ELPA eventually, but until then
-  ;; I've created my own mirror for it because git.savannah.gnu.org runs on a
+  ;;        I've created my own mirror for it because git.savannah.gnu.org runs
-  ;; potato.
+  ;;        on a potato.
   :recipe (:host github :repo "hlissner/emacs-so-long"))
 (package! undo-tree)
 (package! ws-butler

modules/editor/file-templates/config.el

@@ -9,7 +9,7 @@
 don't have a :trigger property in `+file-templates-alist'.")
 
 (defvar +file-templates-alist
-  `(;; General
+  '(;; General
     (gitignore-mode)
     (dockerfile-mode)
     ("/docker-compose\\.yml$" :mode yaml-mode)

modules/lang/org/config.el

@@ -220,6 +220,7 @@ path too.")
     (or (cdr (assoc lang org-src-lang-modes))
         (+org--babel-lazy-load lang)))
 
+  ;; This also works for tangling and exporting
   (defadvice! +org--babel-lazy-load-library-a (info)
     "Load babel libraries lazily when babel blocks are executed."
     :after-while #'org-babel-confirm-evaluate

modules/ui/modeline/autoload.el

@@ -22,11 +22,11 @@ Meant for `doom-change-font-size-hook'."
   (let ((default-height +modeline--old-bar-height)
         (scale (or (frame-parameter nil 'font-scale) 0)))
     (if (> scale 0)
-        (let* ((font-size (string-to-number
+        (let ((font-size (string-to-number
-                           (aref (doom--font-name (frame-parameter nil 'font)
+                          (aref (doom--font-name (frame-parameter nil 'font)
-                                                  (selected-frame))
+                                                 (selected-frame))
-                                 xlfd-regexp-pixelsize-subnum)))
+                                xlfd-regexp-pixelsize-subnum)))
-               (scale (frame-parameter nil 'font-scale)))
+              (scale (frame-parameter nil 'font-scale)))
           (setq doom-modeline-height (+ default-height (* scale doom-font-increment))))
       (setq doom-modeline-height default-height))))