[elpa] externals/dape 725c50b692 10/13: Use lambda functions instead of named functions in dape-configs

[ELPA Syncer]

branch: externals/dape
commit 725c50b692a1f5eb97704caf89540aa1e886b31f
Author: Daniel Pettersson <daniel@dpettersson.net>
Commit: Daniel Pettersson <daniel@dpettersson.net>

    Use lambda functions instead of named functions in dape-configs
---
 dape.el | 44 ++++++++++++++++++++++----------------------
 1 file changed, 22 insertions(+), 22 deletions(-)

diff --git a/dape.el b/dape.el
index 5ca020ec09..b90cb189ec 100644
--- a/dape.el
+++ b/dape.el
@@ -107,13 +107,13 @@
            command-args ("--port" :autoport
                          "--settings" "{\"sourceLanguages\":[\"rust\"]}")
            ,@codelldb
-           :program ,(defun dape--rust-program ()
-                       (file-name-concat "target" "debug"
-                                         (thread-first (dape-cwd)
-                                                       (directory-file-name)
-                                                       (file-name-split)
-                                                       (last)
-                                                       (car))))
+           :program (lambda ()
+                      (file-name-concat "target" "debug"
+                                        (thread-first (dape-cwd)
+                                                      (directory-file-name)
+                                                      (file-name-split)
+                                                      (last)
+                                                      (car))))
            ,@common)))
     (cpptools
      modes (c-mode c-ts-mode c++-mode c++-ts-mode)
@@ -237,15 +237,15 @@
      command-args ["--interpreter=vscode"]
      :request "launch"
      :cwd dape-cwd
-     :program ,(defun dape--netcoredbg-program ()
-                 (let ((dlls
-                        (file-expand-wildcards
-                         (file-name-concat "bin" "Debug" "*" "*.dll"))))
-                   (if dlls
-                       (file-relative-name
-                        (file-relative-name (car dlls)))
-                     ".dll"
-                     (dape-cwd))))
+     :program (lambda ()
+                (let ((dlls
+                       (file-expand-wildcards
+                        (file-name-concat "bin" "Debug" "*" "*.dll"))))
+                  (if dlls
+                      (file-relative-name
+                       (file-relative-name (car dlls)))
+                    ".dll"
+                    (dape-cwd))))
      :stopAtEntry nil)
     (rdbg
      modes (ruby-mode ruby-ts-mode)
@@ -266,9 +266,9 @@
      ;; rails server
      ;; bundle exec ruby foo.rb
      ;; bundle exec rake test
-     -c ,(defun dape--rdbg-c ()
-           (format "ruby %s"
-                   (or (dape-buffer-default) ""))))
+     -c (lambda ()
+          (format "ruby %s"
+                  (or (dape-buffer-default) ""))))
     (jdtls
      modes (java-mode java-ts-mode)
      ensure (lambda (config)
@@ -316,14 +316,14 @@
                                  (aref main-classes 0))))
                        (plist-get main-class key)))))
          `(:filePath
-           ,(defun dape--jdtls-file-path ()
+           ,(lambda ()
               (or (resolve-main-class :filePath)
                   (expand-file-name (dape-buffer-default) (dape-cwd))))
            :mainClass
-           ,(defun dape--jdtls-main-class ()
+           ,(lambda ()
               (or (resolve-main-class :mainClass) ""))
            :projectName
-           ,(defun dape--jdtls-project-name ()
+           ,(lambda ()
               (or (resolve-main-class :projectName) ""))))
      :args ""
      :stopOnEntry nil