Stumpwm, fix goroot, emacs tweaks

emacs-config.org

@@ -221,8 +221,23 @@ Setting this in the :init of evil doesn't work for some reason. It has to be ear
   (use-package solaire-mode
     :config (solaire-global-mode +1))
 
-  (use-package simple-modeline
-    :hook (after-init . simple-modeline-mode))
+  (use-package nerd-icons
+    :ensure t
+    :config
+    (unless (find-font (font-spec :name "Symbols Nerd Font"))
+      (nerd-icons-install-fonts t)))
+
+  (use-package doom-modeline
+    :hook (after-init . doom-modeline-mode)
+    :config
+    (setq doom-modeline-minor-modes t
+          doom-modeline-height 24
+          nerd-icons-font-family "Symbols Nerd Font Mono")
+    (set-face-attribute 'mode-line nil :height 0.9)
+    (set-face-attribute 'mode-line-inactive nil :height 0.9))
+
+  (use-package minions
+    :config (minions-mode 1))
 
   ;; turn off number mode in some contexts
   (dolist (mode
@@ -485,10 +500,14 @@ Setting this in the :init of evil doesn't work for some reason. It has to be ear
 ** Which-key
 #+begin_src emacs-lisp
   (use-package which-key
+    :ensure nil
     :init (which-key-mode)
     :diminish which-key-mode
     :config
-    (setq which-key-idle-delay 0.3))
+    (setq which-key-idle-delay 0.3
+          which-key-add-column-padding 1
+          which-key-max-description-length 32
+          which-key-min-column-description-width 20))
 #+end_src
 ** General
 I know these could be bound on a per-package basis, but since this is my primary interface with emacs I'd rather keep all keymaps in one place, both for reference and to discourage myself from organizing my top-level bindings on a per-plugin basis rather than keeping the focus on functionality.
@@ -1098,7 +1117,7 @@ Idk I think this came from the vertico readme
     ;; strategy, if you want to see the documentation from multiple providers.
     ;; (add-hook 'eldoc-documentation-functions #'embark-eldoc-first-target)
     (define-key evil-normal-state-map (kbd "C-.") 'embark-act)
-    (evil-define-key 'normal evil-normal-state-map (kbd "C-.") embark-act)
+    (evil-define-key 'normal evil-normal-state-map (kbd "C-.") 'embark-act)
 
 
     :config
@@ -1205,6 +1224,30 @@ Idk I think this came from the vertico readme
 All lisp-family languages
 #+begin_src emacs-lisp
                                               ; Required for some reason
+      ;; symex's deps are all countvajhula packages not in any recipe
+      ;; repo. Pre-register all recipes so straight can resolve
+      ;; transitive deps regardless of build order.
+      (dolist (recipe '((pubsub       :host github :repo "countvajhula/pubsub")
+                        (virtual-ring :host github :repo "countvajhula/virtual-ring")
+                        (mantra       :host github :repo "countvajhula/mantra")
+                        (repeat-ring  :host github :repo "countvajhula/repeat-ring")
+                        (lithium      :host github :repo "countvajhula/lithium")))
+        (straight-register-package recipe))
+
+      (use-package pubsub       :straight (pubsub       :host github :repo "countvajhula/pubsub"))
+      (use-package virtual-ring :straight (virtual-ring :host github :repo "countvajhula/virtual-ring"))
+      (use-package mantra       :straight (mantra       :host github :repo "countvajhula/mantra"))
+      (use-package repeat-ring  :straight (repeat-ring  :host github :repo "countvajhula/repeat-ring"))
+      (use-package lithium      :straight (lithium      :host github :repo "countvajhula/lithium"))
+
+      ;; rigpa and symex-rigpa disabled for now — rigpa pulls in a
+      ;; newer transient that needs cond-let which straight can't resolve
+      ;; (use-package rigpa
+      ;;   :straight
+      ;;   (rigpa
+      ;;    :host github
+      ;;    :repo "countvajhula/rigpa"))
+
       (use-package symex-core
         :straight
         (symex-core
@@ -1249,29 +1292,15 @@ All lisp-family languages
               #'geiser-edit-symbol-at-point)
         (symex-ide-mode 1))
 
-    (use-package lithium
-    :straight t
-    :config
-    (lithium-mode 1))
-
-  (use-package rigpa
-    :straight
-    (rigpa
-     :type git
-     :host github
-     :repo "countvajhula/rigpa")
-    :config
-    (rigpa-mode 1))
-
-    (use-package symex-rigpa
-      :after (symex rigpa symex-evil)
-      :straight
-      (symex-rigpa
-       :host github
-       :repo "drym-org/symex.el"
-       :files ("symex-rigpa/symex*.el"))
-      :config
-      (symex-rigpa-mode 1))
+      ;; (use-package symex-rigpa
+      ;;   :after (symex rigpa symex-evil)
+      ;;   :straight
+      ;;   (symex-rigpa
+      ;;    :host github
+      ;;    :repo "drym-org/symex.el"
+      ;;    :files ("symex-rigpa/symex*.el"))
+      ;;   :config
+      ;;   (symex-rigpa-mode 1))
 
 #+end_src
 *** Scheme