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

@@ -62,13 +62,6 @@
   :custom
   (lsp-ui-doc-show-with-cursor t))
 
-;; Integrated debugger
-(use-package dap-mode
-  :commands (dap-debug dap-debug-edit-template dap-mode)
-  :config
-  (add-hook 'dap-stopped-hook
-            (lambda (arg) (call-interactively #'dap-hydra))))
-
 ;; Some compilation-mode conveniences
 (use-package compile
   :straight (:type built-in)

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

@@ -7,23 +7,6 @@
 (use-package lsp-java
   :hook (java-mode . lsp-deferred))
 
-(defvar java-debug-map (make-sparse-keymap))
-(general-def java-mode-map
-  "C-c d" '(:keymap java-debug-map :which-key "debug"))
-(general-def java-debug-map
-  "d" 'dap-java-debug
-  "t" 'dap-java-debug-test-method
-  "c" 'dap-java-debug-test-class)
-
-(with-eval-after-load 'dap-java
-  (setq dap-java-test-additional-args '("-n" "\".*(Test|IT).*\"")))
-
-(defun jdormit-java-setup ()
-  (require 'dap-java)
-  (dap-mode))
-
-(add-hook 'java-mode-hook 'jdormit-java-setup)
-
 (use-package protobuf-mode)
 
 (provide 'init-java)

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

@@ -216,8 +216,7 @@
              :command-line (format "pip install -r %s" (buffer-file-name))))))
 
   (defun run-command-recipe-maven ()
-    (when-let* ((root-dir (or (projectile-project-root) default-directory))
-                (project-dir (locate-dominating-file root-dir "pom.xml")))
+    (when-let ((project-dir (locate-dominating-file default-directory "pom.xml")))
       (list
        (list :command-name "validate"
              :command-line "mvn validate"
@@ -225,11 +224,8 @@
        (list :command-name "compile"
              :command-line "mvn compile"
              :working-dir project-dir)
-       (list :command-name "clean compile"
-             :command-line "mvn clean compile"
-             :working-dir project-dir)
        (list :command-name "test"
-             :command-line "mvn test -DfailIfNoTests=false"
+             :command-line "mvn test"
              :working-dir project-dir)
        (list :command-name "package"
              :command-line "mvn package"
@@ -255,7 +251,7 @@
                                    (fboundp 'dap-java-test-class)
                                    (dap-java-test-class))))
          (list :command-name "test this class"
-               :command-line (format "mvn test -DfailIfNoTests=false -Dtest=%s" test-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))
@@ -263,7 +259,7 @@
                                     (fboundp 'dap-java-test-method-at-point)
                                     (dap-java-test-method-at-point t))))
          (list :command-name "test this method"
-               :command-line (format "mvn test -DfailIfNoTests=false -Dtest=%s" test-method)
+               :command-line (format "mvn test -Dtest=%s" test-method)
                :working-dir project-dir)))))
 
   (defun get-cargo-commands (dir)