1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
|
;;; flycheck-format.el --- Flycheck: Source code formatter -*- lexical-binding: t; -*-
;; Copyright (C) 2016 Sebastian Wiesner and Flycheck contributors
;; Author: Sebastian Wiesner <swiesner@lunaryorn.com>
;; This file is not part of GNU Emacs.
;; This program 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.
;; This program 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 this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; This file provides source code formatting for Flycheck. It's mainly intended
;; for non-interactive use, see "make format".
;;; Code:
(unless (version<= "25" emacs-version)
(user-error "Emacs 25 required for formatting"))
(require 'seq)
(require 'rx)
(require 'f)
(require 'whitespace)
(require 'elisp-mode)
(require 'flycheck-maint
(expand-file-name "flycheck-maint"
(file-name-directory (f-this-file))))
(defun flycheck/eval-and-format-buffer (filename)
"Format the current buffer for FILENAME.
THIS FUNCTION HAS GLOBAL AND LOCAL SIDE EFFECTS.
Evaluate the buffer to make all special indentation rules of
local definitions available before formatting.
Switch the buffer to Emacs Lisp mode."
(let (delayed-mode-hooks)
(delay-mode-hooks (emacs-lisp-mode)))
;; Load the file to make indentation rules from local definitions available.
;; We load files instead of evaluating them because some files in our code
;; rely on `load-file-name' and similar stuff. Don't load files which are
;; already loaded, though, to prevent a recursive load of this file.
(unless (flycheck/already-loaded-p filename)
(let ((load-prefer-newer t)) ; Silence "newer" messages
(load filename 'noerror 'nomessage 'nosuffix)))
(widen)
(let ((indent-tabs-mode nil)
(whitespace-style
'(empty ; Cleanup empty lines at end
indentation::space ; Replace tabs with spaces
space-before-tab::space ; Replace tabs with spaces
trailing ; Remove trailing spaces
)))
(cl-letf (((symbol-function 'message) #'ignore))
;; Silence "Indenting region..." progress reporter
(indent-region (point-min) (point-max)))
(whitespace-cleanup-region (point-min) (point-max))))
(defun flycheck/file-formatted-p (filename)
"Check whether FILENAME is properly formatted.
Return a non-nil value in this case, otherwise return nil."
(with-temp-buffer
(insert-file-contents filename)
(set-buffer-modified-p nil)
(flycheck/eval-and-format-buffer filename)
(not (buffer-modified-p))))
(defun flycheck/batch-check-format ()
"Check formatting of all sources."
(let ((bad-files (seq-remove #'flycheck/file-formatted-p
(flycheck/all-source-files))))
(if (null bad-files)
(kill-emacs 0)
(seq-do (lambda (filename) (message "%s: misformatted!" filename))
bad-files)
(kill-emacs 1))))
(defun flycheck/format-file (filename)
"Format FILENAME.
Return a non-nil value if the file was formatted, and nil
otherwise."
(with-temp-file filename
(insert-file-contents filename)
(set-buffer-modified-p nil)
(flycheck/eval-and-format-buffer filename)
(buffer-modified-p)))
(defun flycheck/batch-format ()
"Format all Flycheck source files."
(let ((formatted-files (seq-filter #'flycheck/format-file
(flycheck/all-source-files))))
(seq-do (lambda (filename) (message "Formatted %s" filename))
formatted-files)
(kill-emacs 0)))
;;; flycheck-format.el ends here
|
