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

Minor refactor & use doom-store-* API

Browse source 
+ Fixes a shallow comparison error (eq cannot compare strings).
+ Uses the doom-store-* API rather than pull in a new dependency to
  manage project-local variables.
This commit is contained in:
Henrik Lissner 2021-03-05 18:58:18 -05:00
parent 44803038b2
commit cf086d08fa
2 changed files with 33 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

66
modules/tools/debugger/autoload/debugger.el
View file

@ -1,37 +1,39 @@
;;; tools/debugger/autoload/debugger.el -*- lexical-binding: t; -*-
(defvar +debugger-last-configuration nil
(defvar-local +debugger--last-config nil
"Configuration of the last debugging session of buffer.")
(make-variable-buffer-local '+debugger-last-configuration)
(put '+debugger--last-config 'permanent-local t) ; don't kill on mode change
(defun +debugger-get-configuration ()
(defun +debugger--get-last-config ()
"Get last debugging configuration.
If in a project, returns the configuration of the last debugging session in the
project, if any. Else, returns the last debugging configuration of the current
buffer, if any."
(if (projectile-project-p)
(projectile-variable-get '+debugger-last-configuration)
+debugger-last-configuration))
(if (doom-project-p)
(doom-store-get (doom-project-root) "+debugger")
+debugger--last-config))
(defun +debugger-set-configuration (configuration)
"Set the debugging configuration.
(defun +debugger--set-config (config)
"Remember this debugging configuration for `+debugger/start-last'.
If in a project, sets the project's debugging session configuration. Else, sets
the debugging configuration of the current buffer."
(if (projectile-project-p)
(projectile-variable-put '+debugger-last-configuration configuration)
(setq-local +debugger-last-configuration configuration)))
(if (doom-project-p)
(doom-store-put (doom-project-root) config
(lambda (key _cfg) (file-directory-p key))
"+debugger")
(setq +debugger--last-config config)))
(defun +debugger-list-for-dap ()
(when (and (bound-and-true-p lsp-mode)
(bound-and-true-p lsp--buffer-deferred)
(require 'dap-mode nil t)
dap-mode)
(mapcar (lambda (c) (cons 'dap c))
(apply 'append (mapcar #'funcall dap-launch-configuration-providers)))))
(defun +debugger--list-for-dap ()
(and (or (bound-and-true-p lsp-mode)
(bound-and-true-p lsp--buffer-deferred))
(require 'dap-mode nil t)
dap-mode
(mapcar (lambda (c) (cons 'dap c))
(apply #'append (mapcar #'funcall dap-launch-configuration-providers)))))
(defun +debugger-list-for-realgud ()
(defun +debugger--list-for-realgud ()
(mapcar (lambda (c) (cons 'realgud (list (symbol-name c))))
(cl-loop for (sym . plist) in +debugger--realgud-alist
for sym-name = (symbol-name sym)
@ -44,21 +46,19 @@ the debugging configuration of the current buffer."
"Completing read for debug configuration.
Presents both dap and realgud configurations, and returns a list of the form
('dap ...) or ('realgud ...) containing the corresponding debug configuration
\('dap ...) or ('realgud ...) containing the corresponding debug configuration
infromation."
(let* ((configurations (append
(+debugger-list-for-dap)
(+debugger-list-for-realgud)))
(result (mapcar (lambda (c) (cons (cadr c) c)) configurations))
(completion (completing-read "Start debugger: " (mapcar 'car result) nil t)))
(if (or (null completion) (eq completion ""))
(let ((result (mapcar (lambda (c) (cons (cadr c) c))
(append (+debugger--list-for-dap)
(+debugger--list-for-realgud))))
(completion (completing-read "Start debugger: " (mapcar #'car result) nil t)))
(if (or (null completion) (string-empty-p completion))
(user-error "No debugging configuration specified.")
(let ((configuration (cdr (assoc completion result))))
(if (eq (car configuration) 'dap)
;; get dap debugging arguments
(let* ((debug-args (dap-variables-expand-in-launch-configuration (copy-tree
(cl-rest
(cdr configuration)))))
(let* ((debug-args (dap-variables-expand-in-launch-configuration
(copy-tree (cddr configuration))))
(launch-args (or (catch 'is-nil
(funcall (or (gethash
(or (plist-get debug-args :type)
@ -77,10 +77,10 @@ infromation."
(defun +debugger/start-last ()
"Relaunch the last debugger session."
(interactive)
(let ((configuration (+debugger-get-configuration)))
(let ((configuration (+debugger--get-last-config)))
(unless configuration
(user-error "No last debugger%s to invoke"
(if (projectile-project-p)
(if (doom-project-p)
" of this project"
"")))
(let ((launch-args (cdr configuration)))
@ -99,8 +99,8 @@ infromation."
Launches the last used debugger, if one exists. Otherwise, you will be prompted
for what debugger to use. If the prefix ARG is set, prompt anyway."
(interactive "P")
(if (or arg (null (+debugger-get-configuration)))
(+debugger-set-configuration (+debugger-completing-read)))
(when (or arg (null (+debugger--get-last-config)))
(+debugger--set-config (+debugger-completing-read)))
(+debugger/start-last))
;;;###autoload