Fix random issues

init.el

@@ -403,7 +403,8 @@
     (:option (append topsy-mode-functions)
              '(circe-channel-mode . +circe-current-topic)))
 
-  (add-hook 'modus-themes-after-load-theme-hook 'circe-nick-color-reset)
+  (with-eval-after-load 'circe-color-nicks
+    (add-hook 'modus-themes-after-load-theme-hook 'circe-nick-color-reset))
   (add-hook 'kill-emacs-hook '+circe-quit-all@kill-emacs))
 
 (setup (:straight consult)
@@ -828,14 +829,12 @@ See also `crux-reopen-as-root-mode'."
                                        simple-modeline-segment-process
                                        +modeline-text-scale
                                        +modeline-minions
-                                       +modeline-major-mode)))
+                                       +modeline-major-mode
+                                       )))
   (simple-modeline-mode +1))
 
 (setup (:straight smartscan)
-  (smartscan-mode +1))
-
-(setup (:straight smartscan)
-  (smartscan-mode +1))
+  (global-smartscan-mode +1))
 
 (setup (:straight ssh-config-mode)
   (:file-match (rx "/.ssh/config" eos)

lisp/+emacs.el

@@ -224,7 +224,7 @@ Optional ARG causes the paragraph to \"unfill.\""
 
 ;; I need to place these bindings under `+key-mode-map' so that they aren't
 ;; shadowed by other maps.  There might be a better way to do this.
-(require +key)
+(require '+key)
 
 (dolist (binding '(("C-x C-c" . +save-buffers-quit)
                    ("M-SPC" . +cycle-spacing)

lisp/+modeline.el

@@ -19,12 +19,12 @@
 
 (defun +modeline-buffer-name ()         ; gonsie
   "Display the buffer name."
-  (propertize
-   (+string-align (buffer-name) 20 :before " " :ellipsis "~ ")
-   'face 'bold
-   'help-echo (or (buffer-file-name)
-                  (buffer-name))
-   'mouse-face 'mode-line-highlight))
+  (concat " " (propertize
+               (+string-align (buffer-name) 20 :before "" :ellipsis "~ ")
+               'face 'bold
+               'help-echo (or (buffer-file-name)
+                              (buffer-name))
+               'mouse-face 'mode-line-highlight)))
 
 (defcustom +modeline-minions-icon "&"
   "The \"icon\" for `+modeline-minions' button."

lisp/acdw.el

@@ -54,7 +54,6 @@ ARGS."
       (when msg
         (message "%s" msg)))))
 
-
 (defun +sunrise-sunset (sunrise-command sunset-command)
   "Run SUNRISE-COMMAND at sunrise, and SUNSET-COMMAND at sunset."
   (let* ((times-regex (rx (* nonl)
@@ -74,7 +73,7 @@ ARGS."
          (sunset-time (match-string 2 ss)))
     (run-at-time sunrise-time (* 60 60 24) sunrise-command)
     (run-at-time sunset-time (* 60 60 24) sunset-command)
-    (run-at-time "12:00am" (* 60 60 24) sunset-command))))
+    (run-at-time "12:00am" (* 60 60 24) sunset-command)))
 
 (provide 'acdw)
 ;;; acdw.el ends here