Compare commits

..

No commits in common. "2aaac9da66808a9a0159463f3ce9b2f2831c59ae" and "43107ed47b5206808cb2179c31e5f0bdf1f3d9a7" have entirely different histories.

3 changed files with 12 additions and 8 deletions

View File

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

View File

@ -246,16 +246,14 @@
:command-line "mvn exec:java" :command-line "mvn exec:java"
:working-dir project-dir) :working-dir project-dir)
(when-let ((test-class (and (buffer-file-name) (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) (fboundp 'dap-java-test-class)
(dap-java-test-class)))) (dap-java-test-class))))
(list :command-name "test this class" (list :command-name "test this class"
:command-line (format "mvn test -Dtest=%s" test-class) :command-line (format "mvn test -Dtest=%s" test-class)
:working-dir project-dir)) :working-dir project-dir))
(when-let ((test-method (and (buffer-file-name) (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) (fboundp 'dap-java-test-method-at-point)
(dap-java-test-method-at-point t)))) (dap-java-test-method-at-point t))))
(list :command-name "test this method" (list :command-name "test this method"

View File

@ -1,7 +1,13 @@
;; -*- lexical-binding: t; -*- ;; -*- lexical-binding: t; -*-
(use-package undo-fu) ;; Tree-shaped undos
(use-package undohist (use-package undo-tree
:hook (after-init . undohist-initialize)) :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) (provide 'init-undo)