branch: elpa/flycheck
commit 0c8de6de03bb1639552007f70a9c66ebdd382496
Author: Justin Barclay <g...@justinbarclay.ca>
Commit: Bozhidar Batsov <bozhi...@batsov.dev>
Reorganize flycheck--stylelints to be above all stylelint checkers
---
flycheck.el | 58 +++++++++++++++++++++++++++++-----------------------------
1 file changed, 29 insertions(+), 29 deletions(-)
diff --git a/flycheck.el b/flycheck.el
index 51ff3876d7..9f5d1eaa82 100644
--- a/flycheck.el
+++ b/flycheck.el
@@ -8225,6 +8225,35 @@ about the JSON format of stylelint."
;; Return the combined errors (deprecations, invalid options, warnings)
(append deprecations invalid-options warnings))))
+(defun flycheck--stylelint-config-exists-p (checker)
+ "Whether there is a valid stylelint CHECKER config for the current buffer."
+ (eql 0 (flycheck-call-checker-process
+ checker nil nil nil
+ "--print-config" (or buffer-file-name "index.js"))))
+
+(defun flycheck--stylelint-get-major-version (checker)
+ "Return major version of stylelint CHECKER."
+ (let ((cb (current-buffer)))
+ (with-temp-buffer
+ (let ((temp-buffer (current-buffer)))
+ (with-current-buffer cb
+ (flycheck-call-checker-process
+ checker nil temp-buffer nil "--version"))
+ (string-to-number (car (split-string (buffer-string) "\\.")))))))
+
+(defun flycheck--stylelint-verify (checker)
+ "Verify stylelint setup for CHECKER."
+ (let ((have-config (flycheck--stylelint-config-exists-p checker)))
+ (list
+ (flycheck-verification-result-new
+ :label "configuration available"
+ :message (if have-config "yes" "no config file found")
+ :face (if have-config 'success '(bold error)))
+ (flycheck-verification-result-new
+ :label "stylecheck version"
+ :message (number-to-string (flycheck--stylelint-get-major-version
checker))
+ :face 'success))))
+
(flycheck-define-checker css-stylelint
"A CSS syntax and style checker using stylelint.
@@ -12022,35 +12051,6 @@ See URL `https://github.com/brigade/scss-lint'."
'(bold error)
'success)))))))
-(defun flycheck--stylelint-config-exists-p (checker)
- "Whether there is a valid stylelint config for the current buffer."
- (eql 0 (flycheck-call-checker-process
- checker nil nil nil
- "--print-config" (or buffer-file-name "index.js"))))
-
-(defun flycheck--stylelint-verify (checker)
- "Verify stylelint setup for CHECKER."
- (let ((have-config (flycheck--stylelint-config-exists-p checker)))
- (list
- (flycheck-verification-result-new
- :label "configuration available"
- :message (if have-config "yes" "no config file found")
- :face (if have-config 'success '(bold error)))
- (flycheck-verification-result-new
- :label "stylecheck version"
- :message (number-to-string (flycheck--stylelint-get-major-version
checker))
- :face 'success))))
-
-(defun flycheck--stylelint-get-major-version (checker)
- "Return major version of stylelint."
- (let ((cb (current-buffer)))
- (with-temp-buffer
- (let ((temp-buffer (current-buffer)))
- (with-current-buffer cb
- (flycheck-call-checker-process
- checker nil temp-buffer nil "--version"))
- (string-to-number (car (split-string (buffer-string) "\\.")))))))
-
(flycheck-define-checker scss-stylelint
"A SCSS syntax and style checker using stylelint.
