lsp-ui-sideline: display all code actions of the current diagnostics (#790)

* lsp-ui-sideline: display all code actions of the current diagnostics

* use LSP APIs to get diagnostics locations to account for LSP_USE_PLISTS

Author: taquangtrung

lsp-ui-sideline.el

@@ -619,13 +619,26 @@ from the language server."
                      (lsp--registered-capability "textDocument/codeAction")))
         (lsp-request-async
          "textDocument/codeAction"
-         (-let (((start . end) (if (eq lsp-ui-sideline-update-mode 'line)
-                                   (cons 0 (- eol bol))
-                                 (--> (- (point) bol) (cons it it)))))
+         (-let* ((diagnostics (lsp-ui-sideline--line-diags (1- line-widen)))
+                 ((start . end) (cond ((eq lsp-ui-sideline-update-mode 'line)
+                                       (cons 0 (- eol bol)))
+                                      (diagnostics
+                                       (let* ((start (- (point) bol))
+                                              (end start))
+                                         (mapc
+                                          (-lambda
+                                            ((&Diagnostic
+                                              :range (&Range :start (&Position :character c1)
+                                                             :end (&Position :character c2))))
+                                            (setq start (min c1 start))
+                                            (setq end (max c2 end)))
+                                          diagnostics)
+                                         (cons start end)))
+                                      (t (--> (- (point) bol) (cons it it))))))
            (list :textDocument doc-id
                  :range (list :start (list :line (1- line-widen) :character start)
                               :end (list :line (1- line-widen) :character end))
-                 :context (list :diagnostics (lsp-ui-sideline--line-diags (1- line-widen)))))
+                 :context (list :diagnostics diagnostics)))
          (lambda (actions)
            (when (eq (current-buffer) buffer)
              (lsp-ui-sideline--code-actions actions bol eol)))