Support capabilities event

Also change the shape of current-capabilities to remove the body key
and keep only the capabilities value.

Author: leungbk

dap-mode.el

@@ -18,7 +18,7 @@
 ;; Author: Ivan Yonchovski <[email protected]>
 ;; Keywords: languages, debug
 ;; URL: https://github.com/emacs-lsp/dap-mode
-;; Package-Requires: ((emacs "26.1") (dash "2.18.0") (lsp-mode "6.0") (bui "1.1.0") (f "0.20.0") (s "1.12.0") (lsp-treemacs "0.1") (posframe "0.7.0"))
+;; Package-Requires: ((emacs "26.1") (dash "2.18.0") (lsp-mode "6.0") (bui "1.1.0") (f "0.20.0") (s "1.12.0") (lsp-treemacs "0.1") (posframe "0.7.0") (ht "2.3"))
 ;; Version: 0.6
 
 ;;; Commentary:
@@ -34,6 +34,7 @@
 (require 'cl-lib)
 (require 'ansi-color)
 (require 'posframe)
+(require 'ht)
 
 (require 'dap-launch)
 
@@ -279,7 +280,7 @@ locations."
   ;; the arguments that were used to start the debug session.
   (launch-args nil)
   ;; Currently-available server capabilities
-  (current-capabilities nil)
+  (current-capabilities (make-hash-table :test 'equal))
   (error-message nil)
   (loaded-sources nil)
   (program-proc)
@@ -961,6 +962,9 @@ PARAMS are the event params.")
        (-let [(&hash "body" (&hash "source")) event]
          (cl-pushnew source (dap--debug-session-loaded-sources debug-session))
          (run-hook-with-args 'dap-loaded-sources-changed-hook debug-session)))
+      ("capabilities"
+       (-let [(&hash "body" (&hash "capabilities")) event]
+         (ht-update! (dap--debug-session-current-capabilities debug-session) capabilities)))
       (_ (dap-handle-event (intern event-type) debug-session body)))))
 
 (defcustom dap-default-terminal-kind "integrated"
@@ -1236,7 +1240,6 @@ DEBUG-SESSION is the active debug session."
      (dap--make-request "setExceptionBreakpoints"
                         (list :filters
                               (or (-some->> current-capabilities
-                                    (gethash "body")
                                     (gethash "exceptionBreakpointFilters")
                                     (-keep (-lambda ((&hash "default" "filter"))
                                              (when (dap--breakpoint-filter-enabled filter type default)
@@ -1618,10 +1621,10 @@ before starting the debug process."
          (dap--initialize-message type)
          (dap--session-init-resp-handler
           debug-session
-          (lambda (current-capabilities )
+          (-lambda ((&hash "body" capabilities))
             (-let [debug-sessions (dap--get-sessions)]
 
-              (setf (dap--debug-session-current-capabilities debug-session) current-capabilities)
+              (ht-update! (dap--debug-session-current-capabilities debug-session) capabilities)
 
               (dap--set-sessions (cons debug-session debug-sessions)))
             (dap--send-message

dap-ui.el

@@ -1094,7 +1094,6 @@ request."
      (append
       (when (dap--session-running debug-session)
         (-some->> current-capabilities
-          (gethash "body")
           (gethash "exceptionBreakpointFilters")
           (-map (-lambda ((&hash "label" "filter" "default"))
                   (list :label (propertize