dap-kotlin.el

;; Commentary:
;; Adapter for https://github.com/fwcd/kotlin-debug-adapter

(require 'lsp-kotlin)
(require 'dap-mode)

(defun dap-kotlin-populate-launch-args (conf)
  ;; we require mainClass and projectRoot to be filled in in the launch configuration.
  ;; dap-kotlin does currently not support a fallback if not defined
  (-> conf
	  (dap--put-if-absent :request "launch")
	  (dap--put-if-absent :name "Kotlin Launch")))

(defun dap-kotlin-populate-default-args (conf)
  (setq conf (pcase (plist-get conf :request)
			   ("launch" (dap-kotlin-populate-launch-args conf))
			   (_ (error "Unsupported dap-request. Only launch is currently supported"))))
  
  (-> conf
	  (dap--put-if-absent :type "kotlin")
	  (plist-put :dap-server-path (list lsp-kotlin-debug-adapter-path))))

(dap-register-debug-provider "kotlin" #'dap-kotlin-populate-default-args)

(provide 'dap-kotlin)