branch: elpa/flymake-collection
commit 2ce9e8a6d8e3ccd91da9ad774c28c5e1f26c64bb
Author: Mohsin Kaleem <mohk...@kisara.moe>
Commit: Mohsin Kaleem <mohk...@kisara.moe>
(flymake-rest-commands): Move commands into here
Several commands require flymake to be loaded, but I'd rather not force
it to be loaded until necessary, therefore I've moved them into a
separate file whose loading can be deferred.
---
flymake-rest-commands.el | 90 ++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 90 insertions(+)
diff --git a/flymake-rest-commands.el b/flymake-rest-commands.el
new file mode 100644
index 0000000000..ad622e36c5
--- /dev/null
+++ b/flymake-rest-commands.el
@@ -0,0 +1,90 @@
+;;; flymake-rest-commands.el --- Helpful commands for working with
flymake-rest -*- lexical-binding: t -*-
+
+;; Copyright (c) 2021 Mohsin Kaleem
+
+;; Permission is hereby granted, free of charge, to any person obtaining a copy
+;; of this software and associated documentation files (the "Software"), to
deal
+;; in the Software without restriction, including without limitation the rights
+;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+;; copies of the Software, and to permit persons to whom the Software is
+;; furnished to do so, subject to the following conditions:
+
+;; The above copyright notice and this permission notice shall be included in
all
+;; copies or substantial portions of the Software.
+
+;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
FROM,
+;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
THE
+;; SOFTWARE.
+
+;;; Code:
+
+(require 'flymake)
+(require 'flymake-rest-hook)
+
+;;;###autoload
+(defun flymake-rest-change-checker (&optional arg)
+ "Interactively select and enable/disable checker for the current major-mode.
+With ARG select a checker regardless of major-mode."
+ (interactive "P")
+ (let ((cands
+ (remove-duplicates
+ (cl-loop for (mode . checkers) in
+ (if arg
+ flymake-rest-config
+ (list (assoc major-mode flymake-rest-config)))
+ append
+ (cl-loop for it in checkers
+ with checker = nil
+ do (setq checker (if (symbolp it)
+ it
+ (car it)))
+ with exists = nil
+ do (setq exists (or (member checker
flymake-diagnostic-functions)
+ (when-let ((state (gethash
checker flymake--backend-state)))
+ (not
(flymake--backend-state-disabled state)))))
+ when checker
+ collect (list (symbol-name checker)
+ mode checker exists)))
+ :test (lambda (a b) (string-equal (car a) (car b))))))
+ (unless cands
+ (user-error "No diagnostic functions configured for the current buffer"))
+ (cl-loop for (_cand _mode checker exists) in
+ (mapcar (lambda (it)
+ (assoc it cands))
+ (completing-read-multiple
+ "Diagnostic function: "
+ (lambda (str pred action)
+ (if (eq action 'metadata)
+ `(metadata
+ ;; Group by the mode this diagnostic function
was configured for.
+ (group-function . ,(lambda (cand transform)
+ (if transform
+ cand
+ (symbol-name (cadr (assoc
cand cands))))))
+ (affixation-function . ,(lambda (cands2)
+ (cl-loop
+ for cand in cands2
+ collect
+ (propertize cand
+ 'display
+ (concat
(if (cadddr (assoc cand cands)) "-" "+")
+
cand))))))
+ (complete-with-action action cands str pred)))
+ nil t))
+ ;; Flymake doesn't let us remove a backend once we've added it,
simply
+ ;; disable it.
+ do (if (member checker flymake-diagnostic-functions)
+ (if exists ;; not disabled
+ ;; WARN: For some reason disabling the backend doesn't
clear any
+ ;; existing reports for it.
+ (flymake--disable-backend checker "user chose to
disable it")
+ (flymake--run-backend checker))
+ (add-hook 'flymake-diagnostic-functions checker nil t)))
+ (when (called-interactively-p 'interactive)
+ (flymake-start))))
+
+(provide 'flymake-rest-commands)
