Minor refactors & comment revision

.gitignore

@@ -7,6 +7,7 @@ modules/private
 .cask/
 cask/
 elpa/
+test/.local*
 
 # emacs tempfiles that shouldn't be there
 .mc-lists.el

core/core.el

@@ -196,7 +196,8 @@ users).")
 (when IS-WINDOWS
   (setq abbreviated-home-dir "\\`'"))
 
-;; Don't litter `doom-emacs-dir'
+;; Don't litter `doom-emacs-dir'. We don't use `no-littering' because it's a
+;; mote too opinionated for our needs.
 (setq abbrev-file-name             (concat doom-local-dir "abbrev.el")
       async-byte-compile-log-file  (concat doom-etc-dir "async-bytecomp.log")
       bookmark-default-file        (concat doom-etc-dir "bookmarks")

core/packages.el

@@ -21,7 +21,7 @@
 (package! pcre2el)
 (package! smartparens)
 (package! so-long
-  :built-in 'prefer
+  :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
   ;; potato.

modules/lang/web/+css.el

@@ -36,7 +36,6 @@
 
   (use-package! counsel-css
     :when (featurep! :completion ivy)
-    :commands counsel-css
     :hook (css-mode . counsel-css-imenu-setup)
     :init
     (map! :map (css-mode-map scss-mode-map less-css-mode-map)

modules/ui/workspaces/autoload/workspaces.el

@@ -174,11 +174,12 @@ throws an error."
         (+workspace-new name)
       (error "%s is not an available workspace" name)))
   (let ((old-name (+workspace-current-name)))
-    (setq +workspace--last
-          (or (and (not (string= old-name persp-nil-name))
-                   old-name)
-              +workspaces-main))
-    (persp-frame-switch name)
+    (unless (equal old-name name)
+      (setq +workspace--last
+            (or (and (not (string= old-name persp-nil-name))
+                     old-name)
+                +workspaces-main))
+      (persp-frame-switch name))
     (equal (+workspace-current-name) name)))