awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

fix(format): eglot format scratch buffer

Browse Source
This commit is contained in:
Fabian Schweinfurth
2025-05-24 12:05:15 +02:00
committed by Henrik Lissner
parent 4ca742a281
commit 50a2ba0586
1 changed files with 28 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
modules/editor/format/autoload/lsp.el
View File

@ -72,14 +72,36 @@ Won't forward the buffer to chained formatters if successful."
(lsp--apply-text-edits edits 'format)))
t)))
(cl-defun +format--with-eglot (beg end &key buffer callback &allow-other-keys)
(cl-defun +format--with-eglot (beg end &key scratch buffer callback &allow-other-keys)
"Format the current buffer or region with any available eglot formatter.
Won't forward the buffer to chained formatters if successful."
(with-current-buffer buffer
(or (with-demoted-errors "%s"
(always (eglot-format beg end)))
;; try next chained formatter(s)
(ignore (funcall callback)))))
(let ((edits
(with-current-buffer buffer
(pcase-let
((`(,method ,args)
(cond ((and (not beg) (eglot-server-capable :documentFormattingProvider))
'(:textDocument/formatting nil))
((eglot-server-capable :documentRangeFormattingProvider)
`(:textDocument/rangeFormatting
(:range ,(list :start (eglot--pos-to-lsp-position (or beg (point-min)))
:end (eglot--pos-to-lsp-position (or end (point-max)))))))
;; try next chained formatter(s)
((cl-return (ignore (funcall callback)))))))
(eglot--request
(eglot--current-server-or-lose)
method
(cl-list*
:textDocument (eglot--TextDocumentIdentifier)
:options (list :tabSize tab-width
:insertSpaces (if indent-tabs-mode :json-false t)
:insertFinalNewline (if require-final-newline t :json-false)
:trimFinalNewlines (if delete-trailing-lines t :json-false))
args))))))
(unless (seq-empty-p edits)
(with-current-buffer scratch
(with-demoted-errors "%s"
(eglot--apply-text-edits edits))))
t))
;;; lsp.el ends here