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

editor/format: preserve indentation for regions

Browse source
This commit is contained in:
Henrik Lissner 2018-09-02 20:46:13 +02:00
parent c885cd2b9d
commit 75b39a9396
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

18
modules/editor/format/autoload/format.el
View file

@ -155,7 +155,23 @@ snippets or single lines."
(interactive "r") (interactive "r")
(save-restriction (save-restriction
(narrow-to-region beg end) (narrow-to-region beg end)
(+format/buffer))) ;; Since we're piping a region of text to the formatter, remove any leading
;; indentation to make it look like a file.
(let ((indent (save-excursion
(goto-char beg)
(skip-chars-forward " \t\n")
(current-indentation))))
(with-silent-modifications
(indent-rigidly (point-min) (point-max) (- indent)))
(+format/buffer)
(with-silent-modifications
;; Then restore it afterwards, without affecting new indentation
(indent-rigidly (point-min) (point-max)
(max 0 (- indent
(save-excursion
(goto-char beg)
(skip-chars-forward " \t\n")
(current-column)))))))))
;;;###autoload ;;;###autoload
(defun +format/region-or-buffer (beg end) (defun +format/region-or-buffer (beg end)