emacs/.emacs.d/config/init-evil.el

@@ -11,7 +11,7 @@
     "j" #'evil-next-visual-line
     "k" #'evil-previous-visual-line)
   :custom
-  (evil-undo-system 'undo-fu)
+  (evil-undo-system 'undo-tree)
   (evil-split-window-below t)
   (evil-vsplit-window-right t))
 

emacs/.emacs.d/config/init-run-command.el

@@ -246,16 +246,14 @@
              :command-line "mvn exec:java"
              :working-dir project-dir)
        (when-let ((test-class (and (buffer-file-name)
-                                   (let ((case-fold-search nil))
-                                     (string-match-p ".*\\(Test\\|IT\\).*\\.java$" (buffer-file-name)))
+                                   (string-match-p ".*\\(Test\\|IT\\).*\\.java$" (buffer-file-name))
                                    (fboundp 'dap-java-test-class)
                                    (dap-java-test-class))))
          (list :command-name "test this class"
                :command-line (format "mvn test -Dtest=%s" test-class)
                :working-dir project-dir))
        (when-let ((test-method (and (buffer-file-name)
-                                    (let ((case-fold-search nil))
-                                      (string-match-p ".*\\(Test\\|IT\\).*\\.java$" (buffer-file-name)))
+                                    (string-match-p ".*\\(Test\\|IT\\).*\\.java$" (buffer-file-name))
                                     (fboundp 'dap-java-test-method-at-point)
                                     (dap-java-test-method-at-point t))))
          (list :command-name "test this method"

emacs/.emacs.d/config/init-undo.el

@@ -1,7 +1,13 @@
 ;; -*- lexical-binding: t; -*-
 
-(use-package undo-fu)
-(use-package undohist
-  :hook (after-init . undohist-initialize))
+;; Tree-shaped undos
+(use-package undo-tree
+  :demand t
+  :config
+  (global-undo-tree-mode)
+  :bind ("C-c C-r" . undo-tree-visualize)
+  :custom
+  (undo-tree-history-directory-alist
+   `(("." . ,(expand-file-name (concat user-emacs-directory "undo-history"))))))
 
 (provide 'init-undo)