Minor adjustments

Emacs/.config/emacs/config.org

@@ -1567,6 +1567,7 @@ from the remote server.
                                  notmuch-hello-insert-alltags
                                  notmuch-hello-insert-recent-searches)
         notmuch-archive-tags '("-inbox" "-unread" "+archive")
+        notmuch-always-prompt-for-sender t
         message-auto-save-directory +mail/local-dir
         message-directory +mail/local-dir)
   :config
@@ -3645,13 +3646,7 @@ book so it's useful to have some Emacs binds for it.
     "sr" #'racket-send-region
     "sd" #'racket-send-definition))
 #+end_src
-** WAIT Haskell
-:PROPERTIES:
-:header-args:emacs-lisp: :tangle no :results none
-:END:
-2025-02-15: Haskell is a fun language so I'll leave this configuration
-for now.
-
+** Haskell
 Haskell is a static lazy functional programming language (what a
 mouthful).  It's quite a beautiful language and really learning it
 will change the way you think about programming.  However, my
@@ -4064,11 +4059,14 @@ IDE I have used is as capable in aiding development as Emacs + Sly.
    (display-buffer-at-bottom)
    (window-height . 0.25))
   ("\\*sly-mrepl"
-   (display-buffer-in-side-window)
-   (window-height . 0.25)
-   (side . bottom))
+   (display-buffer-at-bottom)
+   (window-height . 0.25))
+  ("\\*sly-description"
+   (display-buffer-at-bottom)
+   (window-height . 0.25))
   :config
   (evil-set-initial-state 'sly-db-mode 'normal)
+  (evil-set-initial-state 'sly-desc-mode 'normal)
   (with-eval-after-load "org"
     (setq-default org-babel-lisp-eval-fn #'sly-eval))
   (with-eval-after-load "company"
@@ -4674,9 +4672,13 @@ itself.  The only feature left is describing changes...
   :general
   (leader
     "u" #'undo-tree-visualize)
-  (mmap
+  (nmmap
     :keymaps 'undo-tree-visualizer-mode-map
-    "t" #'undo-tree-visualizer-toggle-timestamps)
+    "t" #'undo-tree-visualizer-toggle-timestamps
+    "j" #'undo-tree-visualize-redo
+    "k" #'undo-tree-visualize-undo
+    "l" #'undo-tree-visualize-switch-branch-right
+    "h" #'undo-tree-visualize-switch-branch-left)
   :init
   (setq undo-tree-auto-save-history t
         undo-tree-history-directory-alist backup-directory-alist)

Emacs/.config/emacs/elisp/better-mode-line.el

@@ -47,16 +47,13 @@ extreme end to CENTRE-SEGMENT."
          (width (if (null (car margins))
                     win-width
                   (+ (car margins) win-width (cdr margins)))))
-    (- (floor (/ width 2)) (floor (/ centre-size 2)) other-size)))
+    (floor (- (/ width 2) (/ centre-size 2) other-size))))
 
 (defun bml/--generate-padding (segment)
   "Make padding string to separate center segment from SEGMENT."
   (let* ((segment-size (length (format-mode-line segment)))
          (padding-size (bml/--get-padding-size segment-size)))
-    (make-string (if (< padding-size bml/--minimum-padding)
-                     bml/--minimum-padding
-                   padding-size)
-                 ?\s)))
+    (make-string (min padding-size bml/--minimum-padding) ?\s)))
 
 (defun bml/setup-mode-line ()
   "Call this to setup the mode-line when:

Emacs/.config/emacs/elisp/eshell-additions.el

@@ -77,11 +77,10 @@ Uses tramp to figure out if we're in sudo mode or not.  "
 
 ;; +eshell/open and +eshell/at-cwd
 (defun +eshell/--current-instances ()
-  (cl-loop for buffer being the buffers
+  (cl-loop for buffer in (buffer-list)
            if (with-current-buffer buffer
                 (eq major-mode 'eshell-mode))
-           collect
-           (cons (buffer-name buffer) buffer)))
+           collect (cons (buffer-name buffer) buffer)))
 
 (defun +eshell/--choose-instance ()
   (let* ((current-instances (+eshell/--current-instances))