-
Notifications
You must be signed in to change notification settings - Fork 107
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Separate some utility commands to new file (#330)
* Remove switch to use legacy version Remove `editorconfig--lagacy-version` variable. * Create editorconfig-tools.el and move some functions into it * Fix merge * Update commentary * Update CHANGELOG * Update text
- Loading branch information
Showing
3 changed files
with
140 additions
and
93 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,132 @@ | ||
| ;;; editorconfig-tools.el --- Editorconfig tools -*- lexical-binding: t -*- | ||
|
|
||
| ;; Copyright (C) 2011-2023 EditorConfig Team | ||
|
|
||
| ;; Author: EditorConfig Team <[email protected]> | ||
|
|
||
| ;; See | ||
| ;; https://github.com/editorconfig/editorconfig-emacs/graphs/contributors | ||
| ;; or the CONTRIBUTORS file for the list of contributors. | ||
|
|
||
| ;; This file is part of EditorConfig Emacs Plugin. | ||
|
|
||
| ;; EditorConfig Emacs Plugin is free software: you can redistribute it and/or | ||
| ;; modify it under the terms of the GNU General Public License as published by | ||
| ;; the Free Software Foundation, either version 3 of the License, or (at your | ||
| ;; option) any later version. | ||
|
|
||
| ;; EditorConfig Emacs Plugin is distributed in the hope that it will be useful, | ||
| ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | ||
| ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General | ||
| ;; Public License for more details. | ||
|
|
||
| ;; You should have received a copy of the GNU General Public License along with | ||
| ;; EditorConfig Emacs Plugin. If not, see <https://www.gnu.org/licenses/>. | ||
|
|
||
| ;;; Commentary: | ||
|
|
||
| ;; Some utility commands for users, not used from editorconfig-mode. | ||
|
|
||
| ;;; Code: | ||
|
|
||
| (require 'cl-lib) | ||
|
|
||
| (eval-when-compile | ||
| (require 'subr-x)) | ||
|
|
||
|
|
||
| (require 'editorconfig) | ||
|
|
||
| ;;;###autoload | ||
| (defun editorconfig-apply () | ||
| "Get and apply EditorConfig properties to current buffer. | ||
| This function does not respect the values of `editorconfig-exclude-modes' and | ||
| `editorconfig-exclude-regexps' and always applies available properties. | ||
| Use `editorconfig-mode-apply' instead to make use of these variables." | ||
| (interactive) | ||
| (when buffer-file-name | ||
| (condition-case err | ||
| (progn | ||
| (let ((props (editorconfig-call-get-properties-function buffer-file-name))) | ||
| (condition-case err | ||
| (run-hook-with-args 'editorconfig-hack-properties-functions props) | ||
| (error | ||
| (display-warning '(editorconfig editorconfig-hack-properties-functions) | ||
| (format "Error while running editorconfig-hack-properties-functions, abort running hook: %S" | ||
| err) | ||
| :warning))) | ||
| (setq editorconfig-properties-hash props) | ||
| (editorconfig-set-local-variables props) | ||
| (editorconfig-set-coding-system-revert | ||
| (gethash 'end_of_line props) | ||
| (gethash 'charset props)) | ||
| (condition-case err | ||
| (run-hook-with-args 'editorconfig-after-apply-functions props) | ||
| (error | ||
| (display-warning '(editorconfig editorconfig-after-apply-functions) | ||
| (format "Error while running editorconfig-after-apply-functions, abort running hook: %S" | ||
| err) | ||
| :warning))))) | ||
| (error | ||
| (display-warning '(editorconfig editorconfig-apply) | ||
| (format "Error in editorconfig-apply, styles will not be applied: %S" err) | ||
| :error))))) | ||
|
|
||
| (defun editorconfig-mode-apply () | ||
| "Get and apply EditorConfig properties to current buffer. | ||
| This function does nothing when the major mode is listed in | ||
| `editorconfig-exclude-modes', or variable `buffer-file-name' matches | ||
| any of regexps in `editorconfig-exclude-regexps'." | ||
| (interactive) | ||
| (when (and major-mode | ||
| (not (editorconfig--disabled-for-majormode major-mode)) | ||
| buffer-file-name | ||
| (not (editorconfig--disabled-for-filename buffer-file-name))) | ||
| (editorconfig-apply))) | ||
|
|
||
|
|
||
| ;;;###autoload | ||
| (defun editorconfig-find-current-editorconfig () | ||
| "Find the closest .editorconfig file for current file." | ||
| (interactive) | ||
| (eval-and-compile (require 'editorconfig-core)) | ||
| (when-let* ((file (editorconfig-core-get-nearest-editorconfig | ||
| default-directory))) | ||
| (find-file file))) | ||
|
|
||
| ;;;###autoload | ||
| (defun editorconfig-display-current-properties () | ||
| "Display EditorConfig properties extracted for current buffer." | ||
| (interactive) | ||
| (if editorconfig-properties-hash | ||
| (let ((buf (get-buffer-create "*EditorConfig Properties*")) | ||
| (file buffer-file-name) | ||
| (props editorconfig-properties-hash)) | ||
| (with-current-buffer buf | ||
| (erase-buffer) | ||
| (insert (format "# EditorConfig for %s\n" file)) | ||
| (maphash (lambda (k v) | ||
| (insert (format "%S = %s\n" k v))) | ||
| props)) | ||
| (display-buffer buf)) | ||
| (message "Properties are not applied to current buffer yet.") | ||
| nil)) | ||
| ;;;###autoload | ||
| (defalias 'describe-editorconfig-properties | ||
| 'editorconfig-display-current-properties) | ||
|
|
||
| ;;;###autoload | ||
| (defun editorconfig-format-buffer() | ||
| "Format buffer according to .editorconfig indent_style and indent_width." | ||
| (interactive) | ||
| (when (string= (gethash 'indent_style editorconfig-properties-hash) "tab") | ||
| (tabify (point-min) (point-max))) | ||
| (when (string= (gethash 'indent_style editorconfig-properties-hash) "space") | ||
| (untabify (point-min) (point-max))) | ||
| (indent-region (point-min) (point-max))) | ||
|
|
||
|
|
||
| (provide 'editorconfig-tools) | ||
| ;;; editorconfig-tools.el ends here |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters