emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

tools/debugger: refactor dap lib loader

Browse source
This commit is contained in:
Henrik Lissner 2020-08-01 15:15:59 -04:00
parent bfb04102ef
commit 318b3ef238
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 19 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

38
modules/tools/debugger/config.el
View file

@ -16,6 +16,19 @@
(realgud:trepanpl :modes (perl-mode perl6-mode)) (realgud:trepanpl :modes (perl-mode perl6-mode))
(realgud:zshdb :modes (sh-mode)))) (realgud:zshdb :modes (sh-mode))))
(defvar +debugger--dap-alist
`(((:lang cc +lsp) :after ccls :require (dap-lldb dap-gdb-lldb))
((:lang elixir +lsp) :after elixir-mode :require dap-elixir)
((:lang go +lsp) :after go-mode :require dap-go)
((:lang php +lsp) :after php-mode :require dap-php)
((:lang python +lsp) :after python :require dap-python)
((:lang ruby +lsp) :after ruby-mode :require dap-ruby)
((:lang rust +lsp) :after rust-mode :require dap-lldb)
((:lang javascript +lsp)
:after (js2-mode typescript-mode)
:require (dap-node dap-chrome dap-firefox ,@(if IS-WINDOWS '(dap-edge)))))
"TODO")
;; ;;
;;; Packages ;;; Packages
@ -97,25 +110,12 @@
(setq dap-breakpoints-file (concat doom-etc-dir "dap-breakpoints") (setq dap-breakpoints-file (concat doom-etc-dir "dap-breakpoints")
dap-utils-extension-path (concat doom-etc-dir "dap-extension/")) dap-utils-extension-path (concat doom-etc-dir "dap-extension/"))
:config :config
(dolist (module '(((:lang . cc) ccls dap-lldb dap-gdb-lldb) (pcase-dolist (`((,category . ,modules) :after ,after :require ,libs)
((:lang . elixir) elixir-mode dap-elixir) +debugger--dap-alist)
((:lang . go) go-mode dap-go) (when (doom-module-p category (car modules) (cadr modules))
((:lang . java) lsp-java) (dolist (lib (doom-enlist after))
((:lang . php) php-mode dap-php) (with-eval-after-load lib
((:lang . python) python dap-python) (mapc #'require libs)))))
((:lang . ruby) ruby-mode dap-ruby)
((:lang . rust) rust-mode dap-lldb)))
(when (doom-module-p (caar module) (cdar module) '+lsp)
(with-eval-after-load (nth 1 module)
(mapc #'require (cddr module)))))
(when (featurep! :lang javascript +lsp)
(after! (:or js2-mode typescript-mode)
(require 'dap-node)
(require 'dap-chrome)
(require 'dap-firefox)
(when IS-WINDOWS
(require 'dap-edge))))
(dap-mode 1)) (dap-mode 1))