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

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
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")
(save-restriction
(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
(defun +format/region-or-buffer (beg end)