From 53412fc1d1ad342be0a2f2e95acf515e9da5823f Mon Sep 17 00:00:00 2001 From: Adam Niederer Date: Sun, 27 Mar 2022 17:33:28 -0400 Subject: [PATCH] Allow use of prefix-arg in lsp-treemacs-errors-list This behaves in the same way as lsp-treemacs-references et al, letting you expand the errors list to a certain depth --- lsp-treemacs.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lsp-treemacs.el b/lsp-treemacs.el index cd1c958..7634472 100644 --- a/lsp-treemacs.el +++ b/lsp-treemacs.el @@ -1259,7 +1259,7 @@ With prefix 2 show both." (defvar lsp-treemacs--current-workspaces nil) -(defun lsp-treemacs-errors-list--refresh () +(defun lsp-treemacs-errors-list--refresh (prefix-args) (lsp-treemacs-render (if (and lsp-treemacs-error-list-current-project-only lsp-treemacs--current-workspaces) @@ -1271,19 +1271,19 @@ With prefix 2 show both." (lsp-session-folders) (-keep #'lsp-treemacs--build-error-list))) "Errors List" - nil + prefix-args lsp-treemacs-errors-buffer-name `(["Cycle Severity" lsp-treemacs-cycle-severity]))) ;;;###autoload -(defun lsp-treemacs-errors-list () - (interactive) +(defun lsp-treemacs-errors-list (arg) + (interactive "P") (setq lsp-treemacs--current-workspaces (lsp-workspaces)) (-if-let (buffer (get-buffer lsp-treemacs-errors-buffer-name)) (progn (select-window (display-buffer-in-side-window buffer lsp-treemacs-errors-position-params)) - (lsp-treemacs-errors-list--refresh)) - (let* ((buffer (lsp-treemacs-errors-list--refresh)) + (lsp-treemacs-errors-list--refresh arg)) + (let* ((buffer (lsp-treemacs-errors-list--refresh arg)) (window (display-buffer-in-side-window buffer lsp-treemacs-errors-position-params))) (select-window window) (set-window-dedicated-p window t) @@ -1292,7 +1292,7 @@ With prefix 2 show both." (add-hook 'lsp-diagnostics-updated-hook #'lsp-treemacs-errors-list--refresh) (add-hook 'kill-buffer-hook 'lsp-treemacs--kill-buffer nil t))) - (let ((buf (lsp-treemacs-errors-list--refresh))) + (let ((buf (lsp-treemacs-errors-list--refresh arg))) (pop-to-buffer buf) (with-current-buffer buf (lsp-treemacs-error-list-mode 1))))