From acb3ae18dbc3daf00bc85da57fa262e394600a8a Mon Sep 17 00:00:00 2001 From: Andreas Gerler Date: Thu, 23 Nov 2023 20:15:12 +0100 Subject: [PATCH] update flycheck flymake Signed-off-by: Andreas Gerler --- bba.org | 2 +- .../flycheck-autoloads.el | 100 +++--- .../flycheck-buttercup.el | 0 .../flycheck-ert.el | 3 +- .../flycheck-pkg.el | 12 +- .../flycheck.el | 335 ++++++++++++------ .../flycheck-mmark-autoloads.el | 30 ++ .../flycheck-mmark-pkg.el | 15 + .../flycheck-mmark.el | 79 +++++ elpa/flymake-1.2.2.signed | 1 - elpa/flymake-1.2.2/flymake-pkg.el | 2 - elpa/flymake-1.3.4.signed | 1 + .../flymake-autoloads.el | 28 +- elpa/flymake-1.3.4/flymake-pkg.el | 2 + .../flymake.el | 156 ++++++-- .../flymake-easy-pkg.el | 2 - .../flymake-easy-autoloads.el | 8 +- .../flymake-easy-pkg.el | 12 + .../flymake-easy.el | 1 - 19 files changed, 576 insertions(+), 213 deletions(-) rename elpa/{flycheck-20210825.1804 => flycheck-20230813.620}/flycheck-autoloads.el (83%) rename elpa/{flycheck-20210825.1804 => flycheck-20230813.620}/flycheck-buttercup.el (100%) rename elpa/{flycheck-20210825.1804 => flycheck-20230813.620}/flycheck-ert.el (99%) rename elpa/{flycheck-20210825.1804 => flycheck-20230813.620}/flycheck-pkg.el (53%) rename elpa/{flycheck-20210825.1804 => flycheck-20230813.620}/flycheck.el (98%) create mode 100644 elpa/flycheck-mmark-20190713.1323/flycheck-mmark-autoloads.el create mode 100644 elpa/flycheck-mmark-20190713.1323/flycheck-mmark-pkg.el create mode 100644 elpa/flycheck-mmark-20190713.1323/flycheck-mmark.el delete mode 100644 elpa/flymake-1.2.2.signed delete mode 100644 elpa/flymake-1.2.2/flymake-pkg.el create mode 100644 elpa/flymake-1.3.4.signed rename elpa/{flymake-1.2.2 => flymake-1.3.4}/flymake-autoloads.el (79%) create mode 100644 elpa/flymake-1.3.4/flymake-pkg.el rename elpa/{flymake-1.2.2 => flymake-1.3.4}/flymake.el (92%) delete mode 100644 elpa/flymake-easy-20140818.755/flymake-easy-pkg.el rename elpa/{flymake-easy-20140818.755 => flymake-easy-20141022.1828}/flymake-easy-autoloads.el (74%) create mode 100644 elpa/flymake-easy-20141022.1828/flymake-easy-pkg.el rename elpa/{flymake-easy-20140818.755 => flymake-easy-20141022.1828}/flymake-easy.el (99%) diff --git a/bba.org b/bba.org index b0edddc1..15cd8484 100644 --- a/bba.org +++ b/bba.org @@ -624,7 +624,7 @@ log-format. #+BEGIN_SRC emacs-lisp (if (>= emacs-major-version 24) (progn - (add-to-list 'load-path "~/.emacs.d/elpa/flycheck-20210825.1804") + (add-to-list 'load-path "~/.emacs.d/elpa/flycheck-20230306.414") (require 'flycheck) (add-hook 'after-init-hook #'global-flycheck-mode) (flycheck-define-checker puppet-lint diff --git a/elpa/flycheck-20210825.1804/flycheck-autoloads.el b/elpa/flycheck-20230813.620/flycheck-autoloads.el similarity index 83% rename from elpa/flycheck-20210825.1804/flycheck-autoloads.el rename to elpa/flycheck-20230813.620/flycheck-autoloads.el index 4475a6f6..95975238 100644 --- a/elpa/flycheck-20210825.1804/flycheck-autoloads.el +++ b/elpa/flycheck-20230813.620/flycheck-autoloads.el @@ -1,17 +1,18 @@ -;;; flycheck-autoloads.el --- automatically extracted autoloads -;; +;;; flycheck-autoloads.el --- automatically extracted autoloads (do not edit) -*- lexical-binding: t -*- +;; Generated by the `loaddefs-generate' function. + +;; This file is part of GNU Emacs. + ;;; Code: -(add-to-list 'load-path (directory-file-name - (or (file-name-directory #$) (car load-path)))) +(add-to-list 'load-path (or (and load-file-name (directory-file-name (file-name-directory load-file-name))) (car load-path))) + -;;;### (autoloads nil "flycheck" "flycheck.el" (0 0 0 0)) ;;; Generated autoloads from flycheck.el (autoload 'flycheck-manual "flycheck" "\ -Open the Flycheck manual." t nil) - +Open the Flycheck manual." t) (autoload 'flycheck-mode "flycheck" "\ Flycheck is a minor mode for on-the-fly syntax checking. @@ -46,7 +47,7 @@ You may also see the following icons: The following keybindings are available in `flycheck-mode': \\{flycheck-mode-map} -\(you can change the prefix by customizing +(you can change the prefix by customizing `flycheck-keymap-prefix') If called interactively, enable Flycheck mode if ARG is positive, @@ -54,10 +55,8 @@ and disable it if ARG is zero or negative. If called from Lisp, also enable the mode if ARG is omitted or nil, and toggle it if ARG is ‘toggle’; disable the mode otherwise. -\(fn &optional ARG)" t nil) - +(fn &optional ARG)" t) (put 'global-flycheck-mode 'globalized-minor-mode t) - (defvar global-flycheck-mode nil "\ Non-nil if Global Flycheck mode is enabled. See the `global-flycheck-mode' command @@ -65,21 +64,22 @@ for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `global-flycheck-mode'.") - (custom-autoload 'global-flycheck-mode "flycheck" nil) - (autoload 'global-flycheck-mode "flycheck" "\ Toggle Flycheck mode in all buffers. With prefix ARG, enable Global Flycheck mode if ARG is positive; -otherwise, disable it. If called from Lisp, enable the mode if -ARG is omitted or nil. +otherwise, disable it. -Flycheck mode is enabled in all buffers where -`flycheck-mode-on-safe' would do it. -See `flycheck-mode' for more information on Flycheck mode. +If called from Lisp, toggle the mode if ARG is `toggle'. +Enable the mode if ARG is nil, omitted, or is a positive number. +Disable the mode if ARG is a negative number. -\(fn &optional ARG)" t nil) +Flycheck mode is enabled in all buffers where `flycheck-mode-on-safe' +would do it. + +See `flycheck-mode' for more information on Flycheck mode. +(fn &optional ARG)" t) (autoload 'flycheck-define-error-level "flycheck" "\ Define a new error LEVEL with PROPERTIES. @@ -137,10 +137,8 @@ The following PROPERTIES constitute an error level: A face symbol denoting the face to use for messages of this level in the error list. See `flycheck-list-errors'. -\(fn LEVEL &rest PROPERTIES)" nil nil) - -(function-put 'flycheck-define-error-level 'lisp-indent-function '1) - +(fn LEVEL &rest PROPERTIES)") +(function-put 'flycheck-define-error-level 'lisp-indent-function 1) (autoload 'flycheck-define-command-checker "flycheck" "\ Define SYMBOL as syntax checker to run a command. @@ -218,12 +216,9 @@ Note that you may not give `:start', `:interrupt', and `:verify' function, though, whose results will be appended to the default `:verify' function of command checkers. -\(fn SYMBOL DOCSTRING &rest PROPERTIES)" nil nil) - -(function-put 'flycheck-define-command-checker 'lisp-indent-function '1) - -(function-put 'flycheck-define-command-checker 'doc-string-elt '2) - +(fn SYMBOL DOCSTRING &rest PROPERTIES)") +(function-put 'flycheck-define-command-checker 'lisp-indent-function 1) +(function-put 'flycheck-define-command-checker 'doc-string-elt 2) (autoload 'flycheck-def-config-file-var "flycheck" "\ Define SYMBOL as config file variable for CHECKER, with default FILE-NAME. @@ -238,10 +233,8 @@ strings. Use this together with the `config-file' form in the `:command' argument to `flycheck-define-checker'. -\(fn SYMBOL CHECKER &optional FILE-NAME &rest CUSTOM-ARGS)" nil t) - -(function-put 'flycheck-def-config-file-var 'lisp-indent-function '3) - +(fn SYMBOL CHECKER &optional FILE-NAME &rest CUSTOM-ARGS)" nil t) +(function-put 'flycheck-def-config-file-var 'lisp-indent-function 3) (autoload 'flycheck-def-option-var "flycheck" "\ Define SYMBOL as option variable with INIT-VALUE for CHECKER. @@ -255,12 +248,9 @@ Use this together with the `option', `option-list' and `option-flag' forms in the `:command' argument to `flycheck-define-checker'. -\(fn SYMBOL INIT-VALUE CHECKERS DOCSTRING &rest CUSTOM-ARGS)" nil t) - -(function-put 'flycheck-def-option-var 'lisp-indent-function '3) - -(function-put 'flycheck-def-option-var 'doc-string-elt '4) - +(fn SYMBOL INIT-VALUE CHECKERS DOCSTRING &rest CUSTOM-ARGS)" nil t) +(function-put 'flycheck-def-option-var 'lisp-indent-function 3) +(function-put 'flycheck-def-option-var 'doc-string-elt 4) (autoload 'flycheck-define-checker "flycheck" "\ Define SYMBOL as command syntax checker with DOCSTRING and PROPERTIES. @@ -268,39 +258,31 @@ Like `flycheck-define-command-checker', but PROPERTIES must not be quoted. Also, implicitly define the executable variable for SYMBOL with `flycheck-def-executable-var'. -\(fn SYMBOL DOCSTRING &rest PROPERTIES)" nil t) +(fn SYMBOL DOCSTRING &rest PROPERTIES)" nil t) +(function-put 'flycheck-define-checker 'lisp-indent-function 1) +(function-put 'flycheck-define-checker 'doc-string-elt 2) +(register-definition-prefixes "flycheck" '("flycheck-" "help-flycheck-checker-d" "list-flycheck-errors")) -(function-put 'flycheck-define-checker 'lisp-indent-function '1) - -(function-put 'flycheck-define-checker 'doc-string-elt '2) - -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "flycheck" '("flycheck-" "help-flycheck-checker-d" "list-flycheck-errors"))) - -;;;*** -;;;### (autoloads nil "flycheck-buttercup" "flycheck-buttercup.el" -;;;;;; (0 0 0 0)) ;;; Generated autoloads from flycheck-buttercup.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "flycheck-buttercup" '("flycheck-buttercup-format-error-list"))) +(register-definition-prefixes "flycheck-buttercup" '("flycheck-buttercup-format-error-list")) -;;;*** -;;;### (autoloads nil "flycheck-ert" "flycheck-ert.el" (0 0 0 0)) ;;; Generated autoloads from flycheck-ert.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "flycheck-ert" '("flycheck-er"))) - -;;;*** +(register-definition-prefixes "flycheck-ert" '("flycheck-er")) -;;;### (autoloads nil nil ("flycheck-pkg.el") (0 0 0 0)) +;;; End of scraped data + +(provide 'flycheck-autoloads) -;;;*** - ;; Local Variables: ;; version-control: never ;; no-byte-compile: t ;; no-update-autoloads: t -;; coding: utf-8 +;; no-native-compile: t +;; coding: utf-8-emacs-unix ;; End: + ;;; flycheck-autoloads.el ends here diff --git a/elpa/flycheck-20210825.1804/flycheck-buttercup.el b/elpa/flycheck-20230813.620/flycheck-buttercup.el similarity index 100% rename from elpa/flycheck-20210825.1804/flycheck-buttercup.el rename to elpa/flycheck-20230813.620/flycheck-buttercup.el diff --git a/elpa/flycheck-20210825.1804/flycheck-ert.el b/elpa/flycheck-20230813.620/flycheck-ert.el similarity index 99% rename from elpa/flycheck-20210825.1804/flycheck-ert.el rename to elpa/flycheck-20230813.620/flycheck-ert.el index 4d64a734..1cd94f44 100644 --- a/elpa/flycheck-20210825.1804/flycheck-ert.el +++ b/elpa/flycheck-20230813.620/flycheck-ert.el @@ -352,7 +352,8 @@ ERROR is a Flycheck error object." ;; Overlays of errors from other files are on the first line (if (flycheck-relevant-error-other-file-p error) (cons (point-min) - (save-excursion (goto-char (point-min)) (point-at-eol))) + (save-excursion (goto-char (point-min)) + (line-end-position))) (flycheck-error-region-for-mode error 'symbols))) (level (flycheck-error-level error)) (category (flycheck-error-level-overlay-category level)) diff --git a/elpa/flycheck-20210825.1804/flycheck-pkg.el b/elpa/flycheck-20230813.620/flycheck-pkg.el similarity index 53% rename from elpa/flycheck-20210825.1804/flycheck-pkg.el rename to elpa/flycheck-20230813.620/flycheck-pkg.el index 5e34dc8d..df233a64 100644 --- a/elpa/flycheck-20210825.1804/flycheck-pkg.el +++ b/elpa/flycheck-20230813.620/flycheck-pkg.el @@ -1,11 +1,13 @@ -(define-package "flycheck" "20210825.1804" "On-the-fly syntax checking" - '((dash "2.12.1") +(define-package "flycheck" "20230813.620" "On-the-fly syntax checking" + '((emacs "25.1") + (dash "2.12.1") (pkg-info "0.4") (let-alist "1.0.4") - (seq "1.11") - (emacs "24.3")) - :commit "784f184cdd9f9cb4e3dbb997c09d93e954142842" :authors + (seq "1.11")) + :commit "773c3eb31ebeb6bb2f9f57d28177882ca7073df0" :authors '(("Sebastian Wiesner" . "swiesner@lunaryorn.com")) + :maintainers + '(("Clément Pit-Claudel" . "clement.pitclaudel@live.com")) :maintainer '("Clément Pit-Claudel" . "clement.pitclaudel@live.com") :keywords diff --git a/elpa/flycheck-20210825.1804/flycheck.el b/elpa/flycheck-20230813.620/flycheck.el similarity index 98% rename from elpa/flycheck-20210825.1804/flycheck.el rename to elpa/flycheck-20230813.620/flycheck.el index b88335b5..91b5e16d 100644 --- a/elpa/flycheck-20210825.1804/flycheck.el +++ b/elpa/flycheck-20230813.620/flycheck.el @@ -1,6 +1,6 @@ ;;; flycheck.el --- On-the-fly syntax checking -*- lexical-binding: t; -*- -;; Copyright (C) 2017-2020 Flycheck contributors +;; Copyright (C) 2017-2022 Flycheck contributors ;; Copyright (C) 2012-2016 Sebastian Wiesner and Flycheck contributors ;; Copyright (C) 2013, 2014 Free Software Foundation, Inc. ;; @@ -9,8 +9,8 @@ ;; fmdkdd ;; URL: http://www.flycheck.org ;; Keywords: convenience, languages, tools -;; Version: 32-cvs -;; Package-Requires: ((dash "2.12.1") (pkg-info "0.4") (let-alist "1.0.4") (seq "1.11") (emacs "24.3")) +;; Version: 33-cvs +;; Package-Requires: ((emacs "25.1") (dash "2.12.1") (pkg-info "0.4") (let-alist "1.0.4") (seq "1.11")) ;; This file is not part of GNU Emacs. @@ -171,7 +171,10 @@ attention to case differences." asciidoctor asciidoc awk-gawk - bazel-buildifier + bazel-build-buildifier + bazel-module-buildifier + bazel-starlark-buildifier + bazel-workspace-buildifier c/c++-clang c/c++-gcc c/c++-cppcheck @@ -1085,7 +1088,7 @@ is used." (defface flycheck-verify-select-checker '((t :box (:style released-button))) - "Flycheck face for the 'select' button in the verify setup buffer." + "Flycheck face for the `select' button in the verify setup buffer." :package-version '(flycheck . "32") :group 'flycheck-faces) @@ -2057,11 +2060,11 @@ are mandatory. passing the URL via text properties: ;; During the error object creation - (put-text-property 0 1 'explainer-url .url .check_id) + (put-text-property 0 1 \\='explainer-url .url .check_id) ;; In the error-explainer FUNCTION (let ((id (flycheck-error-id err))) - (and id `(url . ,(get-text-property 0 'explainer-url id)))) + (and id `(url . ,(get-text-property 0 \\='explainer-url id)))) This property is optional. @@ -3578,13 +3581,7 @@ Command `flycheck-mode' is only enabled if (define-globalized-minor-mode global-flycheck-mode flycheck-mode flycheck-mode-on-safe :init-value nil - ;; Do not expose Global Flycheck Mode on customize interface, because the - ;; interaction between package.el and customize is currently broken. See - ;; https://github.com/flycheck/flycheck/issues/595 - - ;; :require 'flycheck :group - ;; 'flycheck - ) + :group 'flycheck) (defun flycheck-global-teardown (&optional ignore-local) "Teardown Flycheck in all buffers. @@ -4327,7 +4324,17 @@ show the indicator." #b00110110 #b01101100 #b11011000] - "Bitmaps used to indicate errors in the fringes.") + "Bitmaps used to indicate errors in the left fringes.") + +(defconst flycheck-fringe-bitmap-double-left-arrow + [#b00011011 + #b00110110 + #b01101100 + #b11011000 + #b01101100 + #b00110110 + #b00011011] + "Bitmaps used to indicate errors in the right fringes.") (defconst flycheck-fringe-bitmap-double-arrow-hi-res [#b1111001111000000 @@ -4342,7 +4349,22 @@ show the indicator." #b0011110011110000 #b0111100111100000 #b1111001111000000] - "High-resolution bitmap used to indicate errors in the fringes.") + "High-resolution bitmap used to indicate errors in the left fringes.") + +(defconst flycheck-fringe-bitmap-double-left-arrow-hi-res + [#b0000001111001111 + #b0000011110011110 + #b0000111100111100 + #b0001111001111000 + #b0011110011110000 + #b0111100111100000 + #b0111100111100000 + #b0011110011110000 + #b0001111001111000 + #b0000111100111100 + #b0000011110011110 + #b0000001111001111] + "High-resolution bitmap used to indicate errors in the right fringes.") (defconst flycheck-fringe-bitmap-continuation [#b1000000010000000 @@ -4359,6 +4381,13 @@ show the indicator." 'flycheck-fringe-bitmap-double-arrow-hi-res flycheck-fringe-bitmap-double-arrow-hi-res nil 16) + (define-fringe-bitmap + 'flycheck-fringe-bitmap-double-left-arrow + flycheck-fringe-bitmap-double-left-arrow) + (define-fringe-bitmap + 'flycheck-fringe-bitmap-double-left-arrow-hi-res + flycheck-fringe-bitmap-double-left-arrow-hi-res + nil 16) (define-fringe-bitmap 'flycheck-fringe-bitmap-continuation flycheck-fringe-bitmap-continuation @@ -4738,7 +4767,7 @@ Return the created overlay." ;; Display overlays for other-file errors on the first line (cons (point-min) (save-excursion (goto-char (point-min)) - (point-at-eol))) + (line-end-position))) (flycheck-error-region-for-mode err (or flycheck-highlighting-mode 'lines)))) (overlay (make-overlay beg end)) @@ -4762,7 +4791,7 @@ Most of the actual work is done by calling `flycheck-help-echo-function' with the appropriate list of errors. Arguments WINDOW, OBJECT and POS are as described in info node `(elisp)Special properties', as this function is -intended to be used as the 'help-echo property of flycheck error +intended to be used as the \\='help-echo property of flycheck error overlays." (-when-let (buf (cond ((bufferp object) object) ((overlayp object) (overlay-buffer object)))) @@ -7282,7 +7311,7 @@ Split the output into error tokens, using all regular expressions from the error PATTERNS. An error token is simply a string containing a single error from OUTPUT. Such a token can then be parsed into a structured error by applying the PATTERNS again, -see `flycheck-parse-errors-with-patterns'. +see `flycheck-parse-error-with-patterns'. Return a list of error tokens." (let ((regexp (flycheck-get-regexp patterns)) @@ -7550,11 +7579,56 @@ See URL `http://asciidoctor.org'." :error-filter flycheck-awk-gawk-error-filter :modes awk-mode) -(flycheck-define-checker bazel-buildifier - "An Bazel checker using the buildifier. +(flycheck-define-checker bazel-build-buildifier + "A checker for Bazel BUILD and BUILD.bazel files using buildifier. + +See URL `https://github.com/bazelbuild/buildtools/blob/master/buildifier'." + :command ("buildifier" "-lint=warn" "--type=build") + :standard-input t + :error-patterns + ((error line-start + ":" line ":" column ": " (message) + line-end) + (warning line-start + ":" line ": " (id (one-or-more (in word "-"))) ": " (message) + line-end)) + :modes bazel-build-mode) + +(flycheck-define-checker bazel-module-buildifier + "A checker for Bazel MODULE.bazel files using buildifier. + +See URL `https://github.com/bazelbuild/buildtools/blob/master/buildifier'." + :command ("buildifier" "-lint=warn" "--type=default") + :standard-input t + :error-patterns + ((error line-start + ":" line ":" column ": " (message) + line-end) + (warning line-start + ":" line ": " (id (one-or-more (in word "-"))) ": " (message) + line-end)) + :modes bazel-module-mode) + +(flycheck-define-checker bazel-starlark-buildifier + "A checker for Starlark bzl files using buildifier. + +See URL `https://github.com/bazelbuild/buildtools/blob/master/buildifier'." + :command ("buildifier" "-lint=warn" "--type=bzl") + :standard-input t + :error-patterns + ((error line-start + ":" line ":" column ": " (message) + line-end) + (warning line-start + ":" line ": " (id (one-or-more (in word "-"))) ": " (message) + line-end)) + :modes bazel-starlark-mode) + +(flycheck-define-checker bazel-workspace-buildifier + "A checker for Bazel WORKSPACE and WORKSPACE.bazel files using buildifier. See URL `https://github.com/bazelbuild/buildtools/blob/master/buildifier'." - :command ("buildifier" "-lint=warn") + :command ("buildifier" "-lint=warn" "--type=workspace") :standard-input t :error-patterns ((error line-start @@ -7563,7 +7637,7 @@ See URL `https://github.com/bazelbuild/buildtools/blob/master/buildifier'." (warning line-start ":" line ": " (id (one-or-more (in word "-"))) ": " (message) line-end)) - :modes bazel-mode) + :modes bazel-workspace-mode) (flycheck-def-args-var flycheck-clang-args c/c++-clang :package-version '(flycheck . "0.22")) @@ -7741,8 +7815,8 @@ See URL `http://clang.llvm.org/'." (eval flycheck-clang-args) "-x" (eval (pcase major-mode - (`c++-mode "c++") - (`c-mode "c"))) + ((or `c++-mode `c++-ts-mode) "c++") + ((or `c-mode `c-ts-mode) "c"))) ;; Read from standard input "-") :standard-input t @@ -7763,7 +7837,7 @@ See URL `http://clang.llvm.org/'." (setf (flycheck-error-message err) (or (flycheck-error-message err) "no message"))) errors)) - :modes (c-mode c++-mode) + :modes (c-mode c++-mode c-ts-mode c++-ts-mode) :next-checkers ((warning . c/c++-cppcheck))) (flycheck-def-args-var flycheck-gcc-args c/c++-gcc @@ -7894,8 +7968,8 @@ Requires GCC 4.4 or newer. See URL `https://gcc.gnu.org/'." (eval flycheck-gcc-args) "-x" (eval (pcase major-mode - (`c++-mode "c++") - (`c-mode "c"))) + ((or `c++-mode `c++-ts-mode) "c++") + ((or `c-mode `c-ts-mode) "c"))) ;; GCC performs full checking only when actually compiling, so ;; `-fsyntax-only' is not enough. Just let it generate assembly ;; code. @@ -7914,7 +7988,7 @@ Requires GCC 4.4 or newer. See URL `https://gcc.gnu.org/'." (error line-start (or "" (file-name)) ":" line (optional ":" column) ": " (or "fatal error" "error") ": " (message) line-end)) - :modes (c-mode c++-mode) + :modes (c-mode c++-mode c-ts-mode c++-ts-mode) :next-checkers ((warning . c/c++-cppcheck))) (flycheck-def-option-var flycheck-cppcheck-checks '("style") c/c++-cppcheck @@ -8007,11 +8081,11 @@ See URL `http://cppcheck.sourceforge.net/'." flycheck-cppcheck-suppressions-file concat) "-x" (eval (pcase major-mode - (`c++-mode "c++") - (`c-mode "c"))) + ((or `c++-mode `c++-ts-mode) "c++") + ((or `c-mode `c-ts-mode) "c"))) source) :error-parser flycheck-parse-cppcheck - :modes (c-mode c++-mode)) + :modes (c-mode c++-mode c-ts-mode c++-ts-mode)) (flycheck-define-checker cfengine "A CFEngine syntax checker using cf-promises. @@ -8052,7 +8126,7 @@ See URL `http://www.foodcritic.io'." :error-patterns ((error line-start (id (one-or-more alnum)) ": " (message) ": " (file-name) ":" line line-end)) - :modes (enh-ruby-mode ruby-mode) + :modes (enh-ruby-mode ruby-mode ruby-ts-mode) :predicate (lambda () (let ((parent-dir (file-name-directory @@ -8142,7 +8216,7 @@ See URL `https://github.com/CSSLint/csslint'." :command ("csslint" "--format=checkstyle-xml" source) :error-parser flycheck-parse-checkstyle :error-filter flycheck-dequalify-error-ids - :modes css-mode) + :modes (css-mode css-ts-mode)) (defconst flycheck-stylelint-args '("--formatter" "json") "Common arguments to stylelint invocations.") @@ -8260,7 +8334,7 @@ See URL `http://stylelint.io/'." :standard-input t :error-parser flycheck-parse-stylelint :predicate flycheck-buffer-nonempty-p - :modes (css-mode)) + :modes (css-mode css-ts-mode)) (flycheck-def-option-var flycheck-cuda-language-standard nil cuda-nvcc "Our CUDA Language Standard." @@ -8270,6 +8344,12 @@ See URL `http://stylelint.io/'." :package-version '(flycheck . "32")) (make-variable-buffer-local 'flycheck-cuda-language-standard) +(flycheck-def-option-var flycheck-cuda-gencodes nil cuda-nvcc + "Our real and virtual GPU architectures to pass to nvcc." + :type '(repeat (file :tag "GPU architecture")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "32")) + (flycheck-def-option-var flycheck-cuda-includes nil cuda-nvcc "Our include directories to pass to nvcc." :type '(repeat (file :tag "Include file")) @@ -8297,8 +8377,10 @@ See URL `https://developer.nvidia.com/cuda-llvm-compiler'." "-c" ;; Compile Only "--output-file" "/dev/null" ;; avoid creating output .o "--x=cu" ;; explicitly specify it's a CUDA language file + "-rdc=true" ;; Allow linking with external cuda funcions (option "-std=" flycheck-cuda-language-standard concat) (option-list "-include" flycheck-cuda-includes) + (option-list "-gencode" flycheck-cuda-gencodes) (option-list "-D" flycheck-cuda-definitions concat) (option-list "-I" flycheck-cuda-include-path) source) @@ -8420,8 +8502,8 @@ See URL `http://github.com/hadolint/hadolint/'." :error-filter (lambda (errors) (flycheck-sanitize-errors - (flycheck-remove-error-file-names "/dev/stdin" errors))) - :modes dockerfile-mode) + (flycheck-remove-error-file-names "-" errors))) + :modes (dockerfile-mode dockerfile-ts-mode)) (defun flycheck-credo--working-directory (&rest _ignored) "Check if `credo' is installed as dependency in the application." @@ -8722,7 +8804,7 @@ See Info Node `(elisp)Byte Compilation'." (kill-buffer))))))) (defconst flycheck-emacs-lisp-checkdoc-variables - '(checkdoc-symbol-words + `(checkdoc-symbol-words checkdoc-arguments-in-order-flag checkdoc-force-history-flag checkdoc-permit-comma-termination-flag @@ -8731,7 +8813,9 @@ See Info Node `(elisp)Byte Compilation'." checkdoc-spellcheck-documentation-flag checkdoc-verb-check-experimental-flag checkdoc-max-keyref-before-warn - sentence-end-double-space) + sentence-end-double-space + ,@(and (>= emacs-major-version 28) + '(checkdoc-column-zero-backslash-before-paren))) "Variables inherited by the checkdoc subprocess.") (defun flycheck-emacs-lisp-checkdoc-variables-form () @@ -8794,7 +8878,7 @@ the BUFFER that was checked respectively." :command ("ember-template-lint" (config-file "--config-path" flycheck-ember-template-lintrc) "--filename" source-original - "--json") + "--format=json") :standard-input t :error-parser flycheck-ember-template--parse-error :modes web-mode @@ -8832,8 +8916,10 @@ See URL `http://www.erlang.org/'." "-Wall" source) :error-patterns - ((warning line-start (file-name) ":" line ": Warning:" (message) line-end) - (error line-start (file-name) ":" line ": " (message) line-end)) + ((warning line-start (file-name) ":" line ":" (optional column ":") + " Warning:" (message) line-end) + (error line-start (file-name) ":" line ":" (optional column ":") " " + (message) line-end)) :modes erlang-mode :enabled (lambda () (string-suffix-p ".erl" (buffer-file-name)))) @@ -8903,10 +8989,10 @@ directory name is \"test\" or \"eqc\", or else \"default\"." :command ("rebar3" "as" (eval (flycheck-erlang-rebar3-get-profile)) "compile") :error-parser flycheck-parse-with-patterns-without-color :error-patterns - ((warning line-start - (file-name) ":" line ": Warning:" (message) line-end) - (error line-start - (file-name) ":" line ": " (message) line-end)) + ((warning line-start (file-name) ":" line ":" (optional column ":") + " Warning:" (message) line-end) + (error line-start (file-name) ":" line ":" (optional column ":") " " + (message) line-end)) :modes erlang-mode :enabled flycheck-rebar3-project-root :predicate flycheck-buffer-saved-p @@ -9074,7 +9160,7 @@ See URL `https://golang.org/cmd/gofmt/'." :error-patterns ((error line-start ":" line ":" column ": " (message) line-end)) - :modes go-mode + :modes (go-mode go-ts-mode) :next-checkers ((warning . go-golint) ;; Fall back, if go-golint doesn't exist (warning . go-vet) @@ -9091,7 +9177,7 @@ See URL `https://github.com/golang/lint'." :command ("golint" source) :error-patterns ((warning line-start (file-name) ":" line ":" column ": " (message) line-end)) - :modes go-mode + :modes (go-mode go-ts-mode) :next-checkers (go-vet ;; Fall back, if go-vet doesn't exist go-build go-test go-errcheck go-unconvert)) @@ -9124,7 +9210,7 @@ See URL `https://golang.org/cmd/go/' and URL (source ".go")) :error-patterns ((warning line-start (file-name) ":" line ": " (message) line-end)) - :modes go-mode + :modes (go-mode go-ts-mode) :next-checkers (go-build go-test ;; Fall back if `go build' or `go test' can be used @@ -9203,7 +9289,7 @@ Requires Go 1.6 or newer. See URL `https://golang.org/cmd/go'." ;; line number, so inject a fake one. (setf (flycheck-error-line error) 1))) errors) - :modes go-mode + :modes (go-mode go-ts-mode) :predicate (lambda () (and (flycheck-buffer-saved-p) (not (string-suffix-p "_test.go" (buffer-file-name))))) @@ -9225,7 +9311,7 @@ Requires Go 1.6 or newer. See URL `https://golang.org/cmd/go'." (message (one-or-more not-newline) (zero-or-more "\n\t" (one-or-more not-newline))) line-end)) - :modes go-mode + :modes (go-mode go-ts-mode) :predicate (lambda () (and (flycheck-buffer-saved-p) (string-suffix-p "_test.go" (buffer-file-name)))) @@ -9257,7 +9343,7 @@ See URL `https://github.com/kisielk/errcheck'." (setf (flycheck-error-message err) (format "Ignored `error` returned from `%s`" message))))) errors) - :modes go-mode + :modes (go-mode go-ts-mode) :predicate (lambda () (flycheck-buffer-saved-p)) :next-checkers ((warning . go-unconvert) (warning . go-staticcheck))) @@ -9269,7 +9355,7 @@ See URL `https://github.com/mdempsky/unconvert'." :command ("unconvert" ".") :error-patterns ((warning line-start (file-name) ":" line ":" column ": " (message) line-end)) - :modes go-mode + :modes (go-mode go-ts-mode) :predicate (lambda () (flycheck-buffer-saved-p))) (flycheck-define-checker go-staticcheck @@ -9285,7 +9371,7 @@ limited features) if `flycheck-go-version' is set. See URL (option "-go" flycheck-go-version)) :error-parser flycheck-parse-go-staticcheck - :modes go-mode) + :modes (go-mode go-ts-mode)) (flycheck-define-checker groovy "A groovy syntax checker using groovy compiler API. @@ -9617,17 +9703,23 @@ See URL `https://github.com/ndmitchell/hlint'." source-inplace) :error-patterns ((info line-start - (file-name) ":" line ":" column (optional "-" end-column) + (file-name) ":" + (or (seq line ":" column (optional "-" end-column)) + (seq "(" line "," column ")-(" end-line "," end-column ")")) ": Suggestion: " (message (one-or-more (and (one-or-more (not (any ?\n))) ?\n))) line-end) (warning line-start - (file-name) ":" line ":" column (optional "-" end-column) + (file-name) ":" + (or (seq line ":" column (optional "-" end-column)) + (seq "(" line "," column ")-(" end-line "," end-column ")")) ": Warning: " (message (one-or-more (and (one-or-more (not (any ?\n))) ?\n))) line-end) (error line-start - (file-name) ":" line ":" column (optional "-" end-column) + (file-name) ":" + (or (seq line ":" column (optional "-" end-column)) + (seq "(" line "," column ")-(" end-line "," end-column ")")) ": Error: " (message (one-or-more (and (one-or-more (not (any ?\n))) ?\n))) line-end)) @@ -9691,7 +9783,7 @@ See URL `http://www.jshint.com'." (lambda (errors) (flycheck-remove-error-file-names "stdin" (flycheck-dequalify-error-ids errors))) - :modes (js-mode js2-mode js3-mode rjsx-mode)) + :modes (js-mode js2-mode js3-mode rjsx-mode js-ts-mode)) (flycheck-def-args-var flycheck-eslint-args javascript-eslint :package-version '(flycheck . "32")) @@ -9770,7 +9862,7 @@ See URL `https://eslint.org/'." :error-parser flycheck-parse-eslint :enabled (lambda () (flycheck-eslint-config-exists-p)) :modes (js-mode js-jsx-mode js2-mode js2-jsx-mode js3-mode rjsx-mode - typescript-mode) + typescript-mode js-ts-mode typescript-ts-mode tsx-ts-mode) :working-directory flycheck-eslint--find-working-directory :verify (lambda (_) @@ -9805,7 +9897,8 @@ See URL `https://github.com/standard/standard' and URL :standard-input t :error-patterns ((error line-start " :" line ":" column ":" (message) line-end)) - :modes (js-mode js-jsx-mode js2-mode js2-jsx-mode js3-mode rjsx-mode)) + :modes (js-mode js-jsx-mode js2-mode js2-jsx-mode js3-mode rjsx-mode + js-ts-mode)) (flycheck-define-checker json-jsonlint "A JSON syntax and style checker using jsonlint. @@ -9823,7 +9916,7 @@ See URL `https://github.com/zaach/jsonlint'." :error-filter (lambda (errors) (flycheck-sanitize-errors (flycheck-increment-error-columns errors))) - :modes json-mode) + :modes (json-mode js-json-mode json-ts-mode)) (flycheck-define-checker json-python-json "A JSON syntax checker using Python json.tool module. @@ -9838,7 +9931,7 @@ See URL `https://docs.python.org/3.5/library/json.html#command-line-interface'." ;; Ignore the rest of the line which shows the char position. (one-or-more not-newline) line-end)) - :modes json-mode + :modes (json-mode js-json-mode json-ts-mode) ;; The JSON parser chokes if the buffer is empty and has no JSON inside :predicate flycheck-buffer-nonempty-p) @@ -9857,7 +9950,7 @@ See URL `https://stedolan.github.io/jq/'." (optional "parse error: ") (message) "at line " line ", column " column (zero-or-more not-newline) line-end)) - :modes json-mode) + :modes (json-mode js-json-mode json-ts-mode)) (flycheck-define-checker jsonnet "A Jsonnet syntax checker using the jsonnet binary. @@ -10036,7 +10129,7 @@ Relative paths are relative to the file being checked." "A list of modules to use for Perl. The value of this variable is a list of strings, where each -string is a module to 'use' in Perl." +string is a module to `use' in Perl." :type '(repeat :tag "Module") :safe #'flycheck-string-list-p :package-version '(flycheck . "32")) @@ -10416,7 +10509,7 @@ CHECKER's executable is assumed to be a Python REPL." (format "import %s; print(%s.__file__)" module module)))) (defun flycheck-python-needs-module-p (checker) - "Determines whether CHECKER needs to be invoked through Python. + "Determine whether CHECKER needs to be invoked through Python. Previous versions of Flycheck called pylint and flake8 directly, while new version call them through `python -c'. This check @@ -10449,7 +10542,7 @@ Otherwise, return a list starting with -c (-m is not enough because it adds the current directory to Python's path)." (when (flycheck-python-needs-module-p checker) `("-c" ,(concat "import sys;sys.path.pop(0);import runpy;" - (format "runpy.run_module(%S)" module-name))))) + (format "runpy.run_module(%S, run_name='__main__')" module-name ))))) (defcustom flycheck-python-project-files '("pyproject.toml" "setup.cfg" "mypy.ini" "pyrightconfig.json") @@ -10480,7 +10573,8 @@ parent directory that doesn't have a __init__.py file." start (lambda (dir) (not (file-exists-p (expand-file-name "__init__.py" dir)))))))) -(flycheck-def-config-file-var flycheck-flake8rc python-flake8 ".flake8rc") +(flycheck-def-config-file-var flycheck-flake8rc python-flake8 + '(".flake8" "setup.cfg" "tox.ini")) (flycheck-def-option-var flycheck-flake8-error-level-alist '(("^E9.*$" . error) ; Syntax errors from pep8 @@ -10590,7 +10684,7 @@ Requires Flake8 3.0 or newer. See URL (or (not (flycheck-python-needs-module-p 'python-flake8)) (flycheck-python-find-module 'python-flake8 "flake8"))) :verify (lambda (_) (flycheck-python-verify-module 'python-flake8 "flake8")) - :modes python-mode + :modes (python-mode python-ts-mode) :next-checkers ((warning . python-pylint) (warning . python-mypy))) @@ -10662,7 +10756,7 @@ See URL `https://www.pylint.org/'." (append (flycheck-python-module-args 'python-pylint "pylint") (list (format "--help-msg=%s" id)))))) - :modes python-mode + :modes (python-mode python-ts-mode) :next-checkers ((warning . python-mypy))) (flycheck-define-checker python-pycompile @@ -10683,7 +10777,7 @@ See URL `https://docs.python.org/3.4/library/py_compile.html'." "', ('" (file-name (one-or-more (not (any "'")))) "', " line ", " column ", " (one-or-more not-newline) line-end)) :working-directory flycheck-python-find-project-root - :modes python-mode + :modes (python-mode python-ts-mode) :next-checkers ((warning . python-mypy))) (defun flycheck-pyright--parse-error (output checker buffer) @@ -10717,7 +10811,7 @@ See URL https://github.com/microsoft/pyright." source-inplace) :working-directory flycheck-python-find-project-root :error-parser flycheck-pyright--parse-error - :modes python-mode) + :modes (python-mode python-ts-mode)) (define-obsolete-variable-alias 'flycheck-python-mypy-ini 'flycheck-python-mypy-config "32") @@ -10734,14 +10828,23 @@ See URL https://github.com/microsoft/pyright." :safe #'flycheck-string-or-nil-p :package-version '(flycheck . "32")) +(flycheck-def-option-var flycheck-python-mypy-python-executable nil python-mypy + "Python executable to find the installed PEP 561 packages." + :type '(choice (const :tag "Same as mypy's" nil) + (string :tag "Path")) + :safe #'flycheck-string-or-nil-p + :package-version '(flycheck . "33")) + (flycheck-define-checker python-mypy - "Mypy syntax and type checker. Requires mypy>=0.580. + "Mypy syntax and type checker. Requires mypy>=0.730. See URL `http://mypy-lang.org/'." :command ("mypy" "--show-column-numbers" + "--no-pretty" (config-file "--config-file" flycheck-python-mypy-config) (option "--cache-dir" flycheck-python-mypy-cache-dir) + (option "--python-executable" flycheck-python-mypy-python-executable) source-original) :error-patterns ((error line-start (file-name) ":" line (optional ":" column) @@ -10751,7 +10854,7 @@ See URL `http://mypy-lang.org/'." (info line-start (file-name) ":" line (optional ":" column) ": note:" (message) line-end)) :working-directory flycheck-python-find-project-root - :modes python-mode + :modes (python-mode python-ts-mode) ;; Ensure the file is saved, to work around ;; https://github.com/python/mypy/issues/4746. :predicate flycheck-buffer-saved-p) @@ -10779,14 +10882,14 @@ expression, which selects linters for lintr." "Whether CHECKER (R) has installed the `lintr' library." (eql 0 (flycheck-call-checker-process checker nil nil nil - "--slave" "--restore" "--no-save" "-e" + "--slave" "--no-restore" "--no-save" "-e" "library('lintr')"))) (flycheck-define-checker r-lintr "An R style and syntax checker using the lintr package. See URL `https://github.com/jimhester/lintr'." - :command ("R" "--slave" "--restore" "--no-save" "-e" + :command ("R" "--slave" "--no-restore" "--no-save" "-e" (eval (concat "library(lintr);" "try(lint(commandArgs(TRUE)" @@ -10908,15 +11011,35 @@ See URL `https://github.com/rpm-software-management/rpmlint'." (eq sh-shell 'rpm)))) (flycheck-def-config-file-var flycheck-markdown-markdownlint-cli-config - markdown-markdownlint-cli nil - :package-version '(flycheck . "32")) + markdown-markdownlint-cli + '(".markdownlint.json" ".markdownlint.jsonc" ".markdownlint.yaml") + :package-version '(flycheck . "33")) + +(flycheck-def-option-var flycheck-markdown-markdownlint-cli-disable-rules + nil markdown-markdownlint-cli + "Rules to disable for markdownlint-cli." + :type '(repeat :tag "Disabled rule" + (string :tag "Rule name")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "33")) + +(flycheck-def-option-var flycheck-markdown-markdownlint-cli-enable-rules + nil markdown-markdownlint-cli + "Rules to enable for markdownlint-cli." + :type '(repeat :tag "Enabled rule" + (string :tag "Rule name")) + :safe #'flycheck-string-list-p + :package-version '(flycheck . "33")) (flycheck-define-checker markdown-markdownlint-cli "Markdown checker using markdownlint-cli. -See URL `https://github.com/igorshubovych/markdownlint-cli'." +See URL `https://github.com/DavidAnson/markdownlint-cli'." :command ("markdownlint" (config-file "--config" flycheck-markdown-markdownlint-cli-config) + (option-list "--disable" flycheck-markdown-markdownlint-cli-disable-rules) + (option-list "--enable" flycheck-markdown-markdownlint-cli-enable-rules) + "--" source) :error-patterns ((error line-start @@ -11154,7 +11277,7 @@ See URL `https://rubocop.org/'." :standard-input t :working-directory #'flycheck-ruby--find-project-root :error-patterns flycheck-ruby-rubocop-error-patterns - :modes '(enh-ruby-mode ruby-mode) + :modes '(enh-ruby-mode ruby-mode ruby-ts-mode) :next-checkers '((warning . ruby-reek) (warning . ruby-rubylint))) @@ -11178,7 +11301,7 @@ See URL `https://github.com/testdouble/standard' for more information." :standard-input t :working-directory #'flycheck-ruby--find-project-root :error-patterns flycheck-ruby-rubocop-error-patterns - :modes '(enh-ruby-mode ruby-mode) + :modes '(enh-ruby-mode ruby-mode ruby-ts-mode) :next-checkers '((warning . ruby-reek) (warning . ruby-rubylint))) @@ -11194,7 +11317,7 @@ See URL `https://github.com/troessner/reek'." (config-file "--config" flycheck-reekrc) source) :error-parser flycheck-parse-reek - :modes (enh-ruby-mode ruby-mode) + :modes (enh-ruby-mode ruby-mode ruby-ts-mode) :next-checkers ((warning . ruby-rubylint))) ;; Default to `nil' to let Rubylint find its configuration file by itself, and @@ -11217,7 +11340,7 @@ Requires ruby-lint 2.0.2 or newer. See URL (file-name) ":W:" line ":" column ": " (message) line-end) (error line-start (file-name) ":E:" line ":" column ": " (message) line-end)) - :modes (enh-ruby-mode ruby-mode)) + :modes (enh-ruby-mode ruby-mode ruby-ts-mode)) (flycheck-define-checker ruby "A Ruby syntax checker using the standard Ruby interpreter. @@ -11239,7 +11362,7 @@ See URL `https://www.ruby-lang.org/'." (warning line-start "-:" line ":" (optional column ":") " warning: " (message) line-end) (error line-start "-:" line ": " (message) line-end)) - :modes (enh-ruby-mode ruby-mode) + :modes (enh-ruby-mode ruby-mode ruby-ts-mode) :next-checkers ((warning . ruby-rubylint))) (flycheck-define-checker ruby-jruby @@ -11257,7 +11380,7 @@ See URL `http://jruby.org/'." ((error line-start "SyntaxError in -:" line ": " (message) line-end) (warning line-start "-:" line ": warning: " (message) line-end) (error line-start "-:" line ": " (message) line-end)) - :modes (enh-ruby-mode ruby-mode) + :modes (enh-ruby-mode ruby-mode ruby-ts-mode) :next-checkers ((warning . ruby-rubylint))) (flycheck-def-args-var flycheck-cargo-check-args (rust-cargo) @@ -11412,7 +11535,7 @@ or if the current buffer has no file name." (locate-dominating-file buffer-file-name "Cargo.toml"))) (defun flycheck-rust-cargo-metadata () - "Run 'cargo metadata' and return the result as parsed JSON object." + "Run `cargo metadata' and return the result as parsed JSON object." (car (flycheck-parse-json (flycheck-call-checker-process-for-output 'rust-cargo nil t @@ -11431,8 +11554,10 @@ versions inferior to 1.25)." Execute `cargo --list' to find out whether COMMAND is present." (let ((cargo (funcall flycheck-executable-find "cargo"))) - (member command (mapcar #'string-trim-left - (ignore-errors (process-lines cargo "--list")))))) + (member command + (mapcar (lambda (line) + (replace-regexp-in-string "\\s-*\\(\\S-+\\).*\\'" "\\1" line)) + (ignore-errors (process-lines cargo "--list")))))) (defun flycheck-rust-valid-crate-type-p (crate-type) "Whether CRATE-TYPE is a valid target type for Cargo. @@ -11476,7 +11601,7 @@ This syntax checker requires Rust 1.17 or newer. See URL (flycheck-error-filename err) root)))) (flycheck-rust-error-filter errors)))) :error-explainer flycheck-rust-error-explainer - :modes rust-mode + :modes (rust-mode rust-ts-mode) :predicate flycheck-buffer-saved-p :enabled flycheck-rust-manifest-directory :working-directory (lambda (_) (flycheck-rust-manifest-directory)) @@ -11530,7 +11655,7 @@ This syntax checker needs Rust 1.18 or newer. See URL :error-parser flycheck-parse-rustc :error-filter flycheck-rust-error-filter :error-explainer flycheck-rust-error-explainer - :modes rust-mode + :modes (rust-mode rust-ts-mode) :predicate flycheck-buffer-saved-p) (flycheck-define-checker rust-clippy @@ -11541,7 +11666,7 @@ See URL `https://github.com/rust-lang-nursery/rust-clippy'." :error-parser flycheck-parse-cargo-rustc :error-filter flycheck-rust-error-filter :error-explainer flycheck-rust-error-explainer - :modes rust-mode + :modes (rust-mode rust-ts-mode) :predicate flycheck-buffer-saved-p :enabled (lambda () (and (flycheck-rust-cargo-has-command-p "clippy") @@ -11890,7 +12015,7 @@ See URL `http://www.gnu.org/software/bash/'." (one-or-more (not (any digit))) line (zero-or-more " ") ":" (zero-or-more " ") (message) line-end)) - :modes sh-mode + :modes (sh-mode bash-ts-mode) :predicate (lambda () (eq sh-shell 'bash)) :next-checkers ((warning . sh-shellcheck))) @@ -11980,7 +12105,7 @@ See URL `https://github.com/koalaman/shellcheck/'." (lambda (errors) (flycheck-remove-error-file-names "-" (flycheck-dequalify-error-ids errors))) - :modes sh-mode + :modes (sh-mode bash-ts-mode) :predicate (lambda () (memq sh-shell flycheck-shellcheck-supported-shells)) :verify (lambda (_) (let ((supports-shell (memq sh-shell @@ -12104,7 +12229,7 @@ Relative files are relative to the file being checked." CHECKER and BUFFER denote the CHECKER that returned OUTPUT and the BUFFER that was checked respectively. -See URL `https://github.com/wata727/tflint' for more +See URL `https://github.com/terraform-linters/tflint' for more information about tflint." (mapcar (lambda (err) (let-alist err @@ -12127,7 +12252,7 @@ information about tflint." (flycheck-define-checker terraform-tflint "A Terraform checker using tflint. -See URL `https://github.com/wata727/tflint'." +See URL `https://github.com/terraform-linters/tflint'." :command ("tflint" "--format=json" (option-list "--var-file=" flycheck-tflint-variable-files concat) source-original) @@ -12280,7 +12405,7 @@ See URL `https://github.com/palantir/tslint'." (eval flycheck-tslint-args) source-inplace) :error-parser flycheck-parse-tslint - :modes (typescript-mode)) + :modes (typescript-mode typescript-ts-mode tsx-ts-mode)) (flycheck-def-option-var flycheck-verilator-include-path nil verilog-verilator "A list of include directories for Verilator. @@ -12296,14 +12421,18 @@ Relative paths are relative to the file being checked." "A Verilog syntax checker using the Verilator Verilog HDL simulator. See URL `https://www.veripool.org/wiki/verilator'." - :command ("verilator" "--lint-only" "-Wall" + :command ("verilator" "--lint-only" "-Wall" "--quiet-exit" (option-list "-I" flycheck-verilator-include-path concat) source) :error-patterns - ((warning line-start "%Warning-" (zero-or-more not-newline) ": " - (file-name) ":" line ": " (message) line-end) - (error line-start "%Error: " (file-name) ":" - line ": " (message) line-end)) + ((warning line-start "%Warning" + (? "-" (id (+ (any "0-9A-Z_")))) ": " + (? (file-name) ":" line ":" (? column ":") " ") + (message) line-end) + (error line-start "%Error" + (? "-" (id (+ (any "0-9A-Z_")))) ": " + (? (file-name) ":" line ":" (? column ":") " ") + (message) line-end)) :modes verilog-mode) (flycheck-def-option-var flycheck-ghdl-language-standard nil vhdl-ghdl @@ -12415,7 +12544,7 @@ See URL `https://github.com/nodeca/js-yaml'." (or "JS-YAML" "YAMLException") ": " (message) " (" line ":" column ")" line-end)) - :modes yaml-mode + :modes (yaml-mode yaml-ts-mode) :next-checkers ((warning . yaml-yamllint) (warning . cwl))) @@ -12435,7 +12564,7 @@ See URL `http://www.ruby-doc.org/stdlib-2.0.0/libdoc/yaml/rdoc/YAML.html'." :error-patterns ((error line-start "stdin:" (zero-or-more not-newline) ":" (message) "at line " line " column " column line-end)) - :modes yaml-mode + :modes (yaml-mode yaml-ts-mode) :next-checkers ((warning . yaml-yamllint) (warning . cwl))) @@ -12452,7 +12581,7 @@ See URL `https://github.com/adrienverge/yamllint'." "stdin:" line ":" column ": [error] " (message) line-end) (warning line-start "stdin:" line ":" column ": [warning] " (message) line-end)) - :modes yaml-mode + :modes (yaml-mode yaml-ts-mode) :next-checkers ((warning . cwl))) (provide 'flycheck) diff --git a/elpa/flycheck-mmark-20190713.1323/flycheck-mmark-autoloads.el b/elpa/flycheck-mmark-20190713.1323/flycheck-mmark-autoloads.el new file mode 100644 index 00000000..fcba126d --- /dev/null +++ b/elpa/flycheck-mmark-20190713.1323/flycheck-mmark-autoloads.el @@ -0,0 +1,30 @@ +;;; flycheck-mmark-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- +;; +;;; Code: + +(add-to-list 'load-path (directory-file-name + (or (file-name-directory #$) (car load-path)))) + + +;;;### (autoloads nil "flycheck-mmark" "flycheck-mmark.el" (0 0 0 +;;;;;; 0)) +;;; Generated autoloads from flycheck-mmark.el + +(autoload 'flycheck-mmark-setup "flycheck-mmark" "\ +Setup Flycheck for MMark." t nil) + +(register-definition-prefixes "flycheck-mmark" '("flycheck-mmark-parse-errors")) + +;;;*** + +;;;### (autoloads nil nil ("flycheck-mmark-pkg.el") (0 0 0 0)) + +;;;*** + +;; Local Variables: +;; version-control: never +;; no-byte-compile: t +;; no-update-autoloads: t +;; coding: utf-8 +;; End: +;;; flycheck-mmark-autoloads.el ends here diff --git a/elpa/flycheck-mmark-20190713.1323/flycheck-mmark-pkg.el b/elpa/flycheck-mmark-20190713.1323/flycheck-mmark-pkg.el new file mode 100644 index 00000000..a263def3 --- /dev/null +++ b/elpa/flycheck-mmark-20190713.1323/flycheck-mmark-pkg.el @@ -0,0 +1,15 @@ +(define-package "flycheck-mmark" "20190713.1323" "Flycheck checker for the MMark markdown processor" + '((emacs "24.4") + (flycheck "0.29")) + :commit "c796a2f18884bfc2afeec1fb2060da0f4044ddee" :authors + '(("Mark Karpov" . "markkarpov92@gmail.com")) + :maintainers + '(("Mark Karpov" . "markkarpov92@gmail.com")) + :maintainer + '("Mark Karpov" . "markkarpov92@gmail.com") + :keywords + '("convenience" "text") + :url "https://github.com/mmark-md/flycheck-mmark") +;; Local Variables: +;; no-byte-compile: t +;; End: diff --git a/elpa/flycheck-mmark-20190713.1323/flycheck-mmark.el b/elpa/flycheck-mmark-20190713.1323/flycheck-mmark.el new file mode 100644 index 00000000..b2d06891 --- /dev/null +++ b/elpa/flycheck-mmark-20190713.1323/flycheck-mmark.el @@ -0,0 +1,79 @@ +;;; flycheck-mmark.el --- Flycheck checker for the MMark markdown processor -*- lexical-binding: t; -*- +;; +;; Copyright © 2018–present Mark Karpov +;; +;; Author: Mark Karpov +;; URL: https://github.com/mmark-md/flycheck-mmark +;; Version: 0.1.0 +;; Package-Requires: ((emacs "24.4") (flycheck "0.29")) +;; Keywords: convenience, text +;; +;; 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 . + +;;; Commentary: + +;; This package provides a Flycheck checker for the MMark markdown +;; processor. + +;;; Code: + +(require 'flycheck) +(require 'json) + +(defgroup flycheck-mmark nil + "Flycheck checker for the MMark markdown processor." + :group 'flycheck + :tag "Flycheck MMark" + :prefix "flycheck-mmark-" + :link '(url-link :tag "GitHub" + "https://github.com/mmark-md/flycheck-mmark")) + +(defun flycheck-mmark-parse-errors (output checker buffer) + "Decode MMark parse errors in JSON format decoding OUTPUT. + +CHECKER is the checker used, BUFFER is the buffer that is being +checked." + (let ((json-array-type 'list)) + (unless (string-empty-p output) + (mapcar + (lambda (err) + (flycheck-error-new + :checker checker + :buffer buffer + :line (cdr (assoc 'line err)) + :column (cdr (assoc 'column err)) + :message (cdr (assoc 'text err)) + :level 'error)) + (json-read-from-string output))))) + +(flycheck-define-checker mmark + "A syntax checker for the MMark markdown processor using ‘mmark’ CLI tool. + +See: https://github.com/mmark-md/mmark-cli" + :command ("mmark" "--json" "--ofile" null-device) + :standard-input t + :error-parser flycheck-mmark-parse-errors + :modes markdown-mode) + +;;;###autoload +(defun flycheck-mmark-setup () + "Setup Flycheck for MMark." + (interactive) + (add-to-list 'flycheck-checkers 'mmark)) + +(provide 'flycheck-mmark) + +;;; flycheck-mmark.el ends here diff --git a/elpa/flymake-1.2.2.signed b/elpa/flymake-1.2.2.signed deleted file mode 100644 index a98afea3..00000000 --- a/elpa/flymake-1.2.2.signed +++ /dev/null @@ -1 +0,0 @@ -Good signature from 066DAFCB81E42C40 GNU ELPA Signing Agent (2019) (trust undefined) created at 2022-02-10T11:05:02+0100 using RSA \ No newline at end of file diff --git a/elpa/flymake-1.2.2/flymake-pkg.el b/elpa/flymake-1.2.2/flymake-pkg.el deleted file mode 100644 index 48e4ec67..00000000 --- a/elpa/flymake-1.2.2/flymake-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;; Generated package description from flymake.el -*- no-byte-compile: t -*- -(define-package "flymake" "1.2.2" "A universal on-the-fly syntax checker" '((emacs "26.1") (eldoc "1.1.0") (project "0.7.1")) :commit "31af9bca99fa88350271e1a905c9b435eaec28cf" :url "https://elpa.gnu.org/packages/flymake.html" :authors '(("Pavel Kobyakov" . "pk_at_work@yahoo.com")) :maintainer '("João Távora" . "joaotavora@gmail.com") :keywords '("c" "languages" "tools")) diff --git a/elpa/flymake-1.3.4.signed b/elpa/flymake-1.3.4.signed new file mode 100644 index 00000000..0137ef31 --- /dev/null +++ b/elpa/flymake-1.3.4.signed @@ -0,0 +1 @@ +Good signature from 066DAFCB81E42C40 GNU ELPA Signing Agent (2019) (trust undefined) created at 2023-04-13T23:05:02+0200 using RSA \ No newline at end of file diff --git a/elpa/flymake-1.2.2/flymake-autoloads.el b/elpa/flymake-1.3.4/flymake-autoloads.el similarity index 79% rename from elpa/flymake-1.2.2/flymake-autoloads.el rename to elpa/flymake-1.3.4/flymake-autoloads.el index 25e1ad41..dae2499a 100644 --- a/elpa/flymake-1.2.2/flymake-autoloads.el +++ b/elpa/flymake-1.3.4/flymake-autoloads.el @@ -1,4 +1,4 @@ -;;; flymake-autoloads.el --- automatically extracted autoloads +;;; flymake-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- ;; ;;; Code: @@ -60,10 +60,19 @@ region is invalid. This function saves match data. (autoload 'flymake-mode "flymake" "\ Toggle Flymake mode on or off. -If called interactively, enable Flymake mode if ARG is positive, -and disable it if ARG is zero or negative. If called from Lisp, -also enable the mode if ARG is omitted or nil, and toggle it if -ARG is `toggle'; disable the mode otherwise. +This is a minor mode. If called interactively, toggle the +`Flymake mode' mode. If the prefix argument is positive, enable +the mode, and if it is zero or negative, disable the mode. + +If called from Lisp, toggle the mode if ARG is `toggle'. Enable +the mode if ARG is nil, omitted, or is a positive number. +Disable the mode if ARG is a negative number. + +To check whether the minor mode is enabled in the current buffer, +evaluate `flymake-mode'. + +The mode's hook is called both when the mode is enabled and when +it is disabled. Flymake is an Emacs minor mode for on-the-fly syntax checking. Flymake collects diagnostic information from multiple sources, @@ -79,6 +88,13 @@ The commands `flymake-goto-next-error' and `flymake-goto-prev-error' can be used to navigate among Flymake diagnostics annotated in the buffer. +By default, `flymake-mode' doesn't override the \\[next-error] command, but +if you're using Flymake a lot (and don't use the regular compilation +mechanisms that often), it can be useful to put something like +the following in your init file: + + (setq next-error-function \\='flymake-goto-next-error) + The visual appearance of each type of diagnostic can be changed by setting properties `flymake-overlay-control', `flymake-bitmap' and `flymake-severity' on the symbols of diagnostic types (like @@ -103,7 +119,7 @@ Turn Flymake mode on." nil nil) (autoload 'flymake-mode-off "flymake" "\ Turn Flymake mode off." nil nil) -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "flymake" '("flymake-"))) +(register-definition-prefixes "flymake" '("flymake-")) ;;;*** diff --git a/elpa/flymake-1.3.4/flymake-pkg.el b/elpa/flymake-1.3.4/flymake-pkg.el new file mode 100644 index 00000000..255f3225 --- /dev/null +++ b/elpa/flymake-1.3.4/flymake-pkg.el @@ -0,0 +1,2 @@ +;; Generated package description from flymake.el -*- no-byte-compile: t -*- +(define-package "flymake" "1.3.4" "A universal on-the-fly syntax checker" '((emacs "26.1") (eldoc "1.14.0") (project "0.7.1")) :commit "d45f450cff757ed520a7ee36c632ab62387c7bc9" :url "https://elpa.gnu.org/packages/flymake.html" :authors '(("Pavel Kobyakov" . "pk_at_work@yahoo.com")) :maintainer '("João Távora" . "joaotavora@gmail.com") :keywords '("c" "languages" "tools")) diff --git a/elpa/flymake-1.2.2/flymake.el b/elpa/flymake-1.3.4/flymake.el similarity index 92% rename from elpa/flymake-1.2.2/flymake.el rename to elpa/flymake-1.3.4/flymake.el index 83d7bc86..f2fe97cb 100644 --- a/elpa/flymake-1.2.2/flymake.el +++ b/elpa/flymake-1.3.4/flymake.el @@ -1,12 +1,12 @@ ;;; flymake.el --- A universal on-the-fly syntax checker -*- lexical-binding: t; -*- -;; Copyright (C) 2003-2022 Free Software Foundation, Inc. +;; Copyright (C) 2003-2023 Free Software Foundation, Inc. ;; Author: Pavel Kobyakov ;; Maintainer: João Távora -;; Version: 1.2.2 +;; Version: 1.3.4 ;; Keywords: c languages tools -;; Package-Requires: ((emacs "26.1") (eldoc "1.1.0") (project "0.7.1")) +;; Package-Requires: ((emacs "26.1") (eldoc "1.14.0") (project "0.7.1")) ;; This is a GNU ELPA :core package. Avoid functionality that is not ;; compatible with the version of Emacs recorded above. @@ -54,9 +54,8 @@ ;; (question mark) if no backends were even configured. ;; ;; For programmers interested in writing a new Flymake backend, the -;; docstring of `flymake-diagnostic-functions', the Flymake manual, -;; and the code of existing backends are probably a good starting -;; point. +;; docstring of `flymake-diagnostic-functions', the Flymake manual, and the +;; code of existing backends are probably good starting points. ;; ;; The user wishing to customize the appearance of error types should ;; set properties on the symbols associated with each diagnostic type. @@ -303,7 +302,7 @@ generated it." (defun flymake-error (text &rest args) "Format TEXT with ARGS and signal an error for Flymake." (let ((msg (apply #'format-message text args))) - (flymake-log :error msg) + (flymake-log :error "%s" msg) (error (concat "[Flymake] " msg)))) (cl-defstruct (flymake--diag @@ -372,6 +371,20 @@ diagnostics at BEG." (flymake--diag-accessor flymake-diagnostic-end flymake--diag-end end) (flymake--diag-accessor flymake-diagnostic-buffer flymake--diag-locus locus) +(defun flymake-diagnostic-oneliner (diag &optional nopaintp) + "Get truncated one-line text string for diagnostic DIAG. +This is useful for displaying the DIAG's text to the user in +confined spaces, such as the echo are. Unless NOPAINTP is t, +propertize returned text with the `echo-face' property of DIAG's +type." + (let* ((txt (flymake-diagnostic-text diag)) + (txt (substring txt 0 (cl-loop for i from 0 for a across txt + when (eq a ?\n) return i)))) + (if nopaintp txt + (propertize txt 'face + (flymake--lookup-type-property + (flymake-diagnostic-type diag) 'echo-face 'flymake-error))))) + (cl-defun flymake--overlays (&key beg end filter compare key) "Get flymake-related overlays. If BEG is non-nil and END is nil, consider only `overlays-at' @@ -418,6 +431,26 @@ verify FILTER, a function, and sort them by COMPARE (using KEY)." "Face used for marking note regions." :version "26.1") +(defface flymake-error-echo + '((t :inherit compilation-error)) + "Face used for showing summarized descriptions of errors." + :package-version '("Flymake" . "1.3.4")) + +(defface flymake-warning-echo + '((t :inherit compilation-warning)) + "Face used for showing summarized descriptions of warnings." + :package-version '("Flymake" . "1.3.4")) + +(defface flymake-note-echo + '((t :inherit flymake-note)) + "Face used for showing summarized descriptions of notes." + :package-version '("Flymake" . "1.3.4")) + +(defcustom flymake-show-diagnostics-at-end-of-line nil + "If non-nil, add diagnostic summary messages at end-of-line." + :type 'boolean + :package-version '("Flymake" . "1.3.4")) + (define-obsolete-face-alias 'flymake-warnline 'flymake-warning "26.1") (define-obsolete-face-alias 'flymake-errline 'flymake-error "26.1") @@ -571,19 +604,25 @@ Node `(Flymake)Flymake error types'" (put 'flymake-error 'face 'flymake-error) (put 'flymake-error 'flymake-bitmap 'flymake-error-bitmap) (put 'flymake-error 'severity (warning-numeric-level :error)) -(put 'flymake-error 'mode-line-face 'compilation-error) +(put 'flymake-error 'mode-line-face 'flymake-error-echo) +(put 'flymake-error 'echo-face 'flymake-error-echo) +(put 'flymake-error 'eol-face 'flymake-error-echo) (put 'flymake-error 'flymake-type-name "error") (put 'flymake-warning 'face 'flymake-warning) (put 'flymake-warning 'flymake-bitmap 'flymake-warning-bitmap) (put 'flymake-warning 'severity (warning-numeric-level :warning)) -(put 'flymake-warning 'mode-line-face 'compilation-warning) +(put 'flymake-warning 'mode-line-face 'flymake-warning-echo) +(put 'flymake-warning 'echo-face 'flymake-warning-echo) +(put 'flymake-warning 'eol-face 'flymake-warning-echo) (put 'flymake-warning 'flymake-type-name "warning") (put 'flymake-note 'face 'flymake-note) (put 'flymake-note 'flymake-bitmap 'flymake-note-bitmap) (put 'flymake-note 'severity (warning-numeric-level :debug)) -(put 'flymake-note 'mode-line-face 'compilation-info) +(put 'flymake-note 'mode-line-face 'flymake-note-echo) +(put 'flymake-note 'echo-face 'flymake-note-echo) +(put 'flymake-note 'eol-face 'flymake-note-echo) (put 'flymake-note 'flymake-type-name "note") (defun flymake--lookup-type-property (type prop &optional default) @@ -640,6 +679,12 @@ associated `flymake-category' return DEFAULT." flymake-diagnostic-text) always (equal (funcall comp a) (funcall comp b))))) +(defun flymake--delete-overlay (ov) + "Like `delete-overlay', delete OV, but do some more stuff." + (let ((eolov (overlay-get ov 'eol-ov))) + (when eolov (delete-overlay eolov)) + (delete-overlay ov))) + (cl-defun flymake--highlight-line (diagnostic &optional foreign) "Attempt to overlay DIAGNOSTIC in current buffer. @@ -679,6 +724,7 @@ Return nil or the overlay created." ;; diagnostic is already registered in the same place, which only ;; happens for clashes between domestic and foreign diagnostics (cl-loop for e in (flymake-diagnostics beg end) + for eov = (flymake--diag-overlay e) when (flymake--equal-diagnostic-p e diagnostic) ;; FIXME. This is an imperfect heuristic. Ideally, we'd ;; want to delete no overlays and keep annotating the @@ -694,7 +740,7 @@ Return nil or the overlay created." (flymake--diag-orig-beg e) (flymake--diag-end e) (flymake--diag-orig-end e)) - (delete-overlay (flymake--diag-overlay e)))) + (flymake--delete-overlay eov))) (setq ov (make-overlay end beg)) (setf (flymake--diag-beg diagnostic) (overlay-start ov) (flymake--diag-end diagnostic) (overlay-end ov)) @@ -712,6 +758,37 @@ Return nil or the overlay created." (flymake--lookup-type-property type 'flymake-overlay-control)) (alist-get type flymake-diagnostic-types-alist)) do (overlay-put ov ov-prop value)) + ;; Handle `flymake-show-diagnostics-at-end-of-line' + ;; + (when-let ((eol-face (and flymake-show-diagnostics-at-end-of-line + (flymake--lookup-type-property type 'eol-face)))) + (save-excursion + (goto-char (overlay-start ov)) + (let* ((start (line-end-position)) + (end (min (1+ start) (point-max))) + (eolov (car + (cl-remove-if-not + (lambda (o) (overlay-get o 'flymake-source-ovs)) + (overlays-at start)))) + (bs (flymake-diagnostic-oneliner diagnostic t))) + (setq bs (propertize bs 'face eol-face)) + ;; FIXME: 1. no checking if there are unexpectedly more than + ;; one eolov at point. 2. The first regular source ov to + ;; die also kills the eolov (very rare this matters, but + ;; could be improved). + (cond (eolov + (overlay-put eolov 'before-string + (concat (overlay-get eolov 'before-string) " " bs)) + (overlay-put eolov 'flymake-source-ovs + (cons ov (overlay-get eolov 'flymake-source-ovs)))) + (t + (setq eolov (make-overlay start end nil t nil)) + (setq bs (concat " " bs)) + (put-text-property 0 1 'cursor t bs) + (overlay-put eolov 'before-string bs) + (overlay-put eolov 'evaporate (not (= start end))) + (overlay-put eolov 'flymake-source-ovs (list ov)) + (overlay-put ov 'eol-ov eolov)))))) ;; Now ensure some essential defaults are set ;; (cl-flet ((default-maybe @@ -727,11 +804,13 @@ Return nil or the overlay created." 'flymake-bitmap (alist-get 'bitmap (alist-get type ; backward compat flymake-diagnostic-types-alist))))) + ;; (default-maybe 'after-string + ;; (flymake--diag-text diagnostic)) (default-maybe 'help-echo (lambda (window _ov pos) (with-selected-window window (mapconcat - #'flymake-diagnostic-text + #'flymake-diagnostic-oneliner (flymake-diagnostics pos) "\n")))) (default-maybe 'severity (warning-numeric-level :error)) @@ -857,7 +936,7 @@ report applies to that region." (maphash (lambda (_buffer diags) (cl-loop for d in diags when (flymake--diag-overlay d) - do (delete-overlay it))) + do (flymake--delete-overlay it))) (flymake--state-foreign-diags state)) (clrhash (flymake--state-foreign-diags state))) @@ -884,7 +963,7 @@ and other buffers." (flymake--intersects-p (overlay-start ov) (overlay-end ov) (car region) (cdr region))) - do (delete-overlay ov) + do (flymake--delete-overlay ov) else collect diag into surviving finally (setf (flymake--state-diags state) surviving))) @@ -893,7 +972,7 @@ and other buffers." (not (flymake--state-reported-p state)) (cl-loop for diag in (flymake--state-diags state) for ov = (flymake--diag-overlay diag) - when ov do (delete-overlay ov)) + when ov do (flymake--delete-overlay ov)) (setf (flymake--state-diags state) nil) ;; Also clear all overlays for `foreign-diags' in all other ;; buffers. @@ -1102,6 +1181,13 @@ The commands `flymake-goto-next-error' and `flymake-goto-prev-error' can be used to navigate among Flymake diagnostics annotated in the buffer. +By default, `flymake-mode' doesn't override the \\[next-error] command, but +if you're using Flymake a lot (and don't use the regular compilation +mechanisms that often), it can be useful to put something like +the following in your init file: + + (setq next-error-function \\='flymake-goto-next-error) + The visual appearance of each type of diagnostic can be changed by setting properties `flymake-overlay-control', `flymake-bitmap' and `flymake-severity' on the symbols of diagnostic types (like @@ -1126,11 +1212,11 @@ special *Flymake log* buffer." :group 'flymake :lighter (add-hook 'kill-buffer-hook 'flymake-kill-buffer-hook nil t) (add-hook 'eldoc-documentation-functions 'flymake-eldoc-function t t) - ;; If Flymake happened to be already already ON, we must cleanup + ;; If Flymake happened to be already ON, we must cleanup ;; existing diagnostic overlays, lest we forget them by blindly ;; reinitializing `flymake--state' in the next line. ;; See https://github.com/joaotavora/eglot/issues/223. - (mapc #'delete-overlay (flymake--overlays)) + (mapc #'flymake--delete-overlay (flymake--overlays)) (setq flymake--state (make-hash-table)) (setq flymake--recent-changes nil) @@ -1177,7 +1263,7 @@ special *Flymake log* buffer." :group 'flymake :lighter (when flymake-timer (cancel-timer flymake-timer) (setq flymake-timer nil)) - (mapc #'delete-overlay (flymake--overlays)) + (mapc #'flymake--delete-overlay (flymake--overlays)) (when flymake--state (maphash (lambda (_backend state) (flymake--clear-foreign-diags state)) @@ -1248,10 +1334,11 @@ START and STOP and LEN are as in `after-change-functions'." (defun flymake-eldoc-function (report-doc &rest _) "Document diagnostics at point. Intended for `eldoc-documentation-functions' (which see)." - (let ((diags (flymake-diagnostics (point)))) - (when diags - (funcall report-doc - (mapconcat #'flymake-diagnostic-text diags "\n"))))) + (when-let ((diags (flymake-diagnostics (point)))) + (funcall report-doc + (mapconcat #'flymake-diagnostic-text diags "\n") + :echo (mapconcat #'flymake-diagnostic-oneliner + diags "\n")))) (defun flymake-goto-next-error (&optional n filter interactive) "Go to Nth next Flymake diagnostic that matches FILTER. @@ -1353,11 +1440,17 @@ default) no filter is applied." flymake-mode-line-warning-counter flymake-mode-line-note-counter "]") "Mode-line construct for formatting Flymake diagnostic counters. -This is a suitable place for placing the `flymake-error-counter', -`flymake-warning-counter' and `flymake-note-counter' constructs. +This is a suitable place for placing the `flymake-mode-line-error-counter', +`flymake-mode-line-warning-counter' and `flymake-mode-line-note-counter' +constructs. Separating each of these with space is not necessary." :type '(repeat (choice string symbol))) +(defcustom flymake-mode-line-lighter "Flymake" + "The string to use in the Flymake mode line." + :type 'string + :version "29.1") + (defvar flymake-mode-line-title '(:eval (flymake--mode-line-title)) "Mode-line construct to show Flymake's mode name and menu.") @@ -1386,7 +1479,7 @@ correctly.") (defun flymake--mode-line-title () `(:propertize - "Flymake" + ,flymake-mode-line-lighter mouse-face mode-line-highlight help-echo ,(lambda (&rest _) @@ -1526,7 +1619,7 @@ POS can be a buffer position or a button" (flymake-show-diagnostic (if (button-type pos) (button-start pos) pos)))) (defun flymake--tabulated-entries-1 (diags project-root) - "Helper for `flymake--diagnostic-buffer-entries'. + "Helper for `flymake--diagnostics-buffer-entries'. PROJECT-ROOT indicates that each entry should be preceded by the filename of the diagnostic relative to that directory." (cl-loop @@ -1570,8 +1663,7 @@ filename of the diagnostic relative to that directory." "\\1\\2" bname) "(anon)") 'help-echo (format "From `%s' backend" backend)) - (,(replace-regexp-in-string "\n.*" "" - (flymake-diagnostic-text diag)) + (,(flymake-diagnostic-oneliner diag t) mouse-face highlight help-echo "mouse-2: visit this diagnostic" face nil @@ -1623,6 +1715,7 @@ buffer." (define-derived-mode flymake-diagnostics-buffer-mode tabulated-list-mode "Flymake diagnostics" "A mode for listing Flymake diagnostics." + :interactive nil (setq tabulated-list-format flymake--diagnostics-base-tabulated-list-format) (setq tabulated-list-entries 'flymake--diagnostics-buffer-entries) @@ -1637,6 +1730,8 @@ buffer." (defun flymake-show-buffer-diagnostics () "Show a list of Flymake diagnostics for current buffer." (interactive) + (unless flymake-mode + (user-error "Flymake mode is not enabled in the current buffer")) (let* ((name (flymake--diagnostics-buffer-name)) (source (current-buffer)) (target (or (get-buffer name) @@ -1664,9 +1759,9 @@ the file they refer to is visited and `flymake-mode' is turned on in the resulting buffer. Flymake backends that somehow gain sporadic information about -diagnostics in neighbouring files may freely modify this variable +diagnostics in neighboring files may freely modify this variable by adding or removing entries to for those files. If the -information about those neighbouring files is acquired repeatedly +information about those neighboring files is acquired repeatedly and reliably, it may be more sensible to report them as \"foreign\" diagnostics instead. @@ -1678,6 +1773,7 @@ some of this variable's contents the diagnostic listings.") (define-derived-mode flymake-project-diagnostics-mode tabulated-list-mode "Flymake diagnostics" "A mode for listing Flymake diagnostics." + :interactive nil (setq tabulated-list-format (vconcat [("File" 25 t)] flymake--diagnostics-base-tabulated-list-format)) diff --git a/elpa/flymake-easy-20140818.755/flymake-easy-pkg.el b/elpa/flymake-easy-20140818.755/flymake-easy-pkg.el deleted file mode 100644 index a2f59d5f..00000000 --- a/elpa/flymake-easy-20140818.755/flymake-easy-pkg.el +++ /dev/null @@ -1,2 +0,0 @@ -;;; -*- no-byte-compile: t -*- -(define-package "flymake-easy" "20140818.755" "Helpers for easily building flymake checkers" 'nil :commit "de41ea49503f71f997e5c359a2ad08df696c0147" :keywords '("convenience" "internal") :authors '(("Steve Purcell" . "steve@sanityinc.com")) :maintainer '("Steve Purcell" . "steve@sanityinc.com") :url "https://github.com/purcell/flymake-easy") diff --git a/elpa/flymake-easy-20140818.755/flymake-easy-autoloads.el b/elpa/flymake-easy-20141022.1828/flymake-easy-autoloads.el similarity index 74% rename from elpa/flymake-easy-20140818.755/flymake-easy-autoloads.el rename to elpa/flymake-easy-20141022.1828/flymake-easy-autoloads.el index f7377712..1a2e0203 100644 --- a/elpa/flymake-easy-20140818.755/flymake-easy-autoloads.el +++ b/elpa/flymake-easy-20141022.1828/flymake-easy-autoloads.el @@ -1,4 +1,4 @@ -;;; flymake-easy-autoloads.el --- automatically extracted autoloads +;;; flymake-easy-autoloads.el --- automatically extracted autoloads -*- lexical-binding: t -*- ;; ;;; Code: @@ -9,7 +9,11 @@ ;;;### (autoloads nil "flymake-easy" "flymake-easy.el" (0 0 0 0)) ;;; Generated autoloads from flymake-easy.el -(if (fboundp 'register-definition-prefixes) (register-definition-prefixes "flymake-easy" '("flymake-easy-"))) +(register-definition-prefixes "flymake-easy" '("flymake-easy-")) + +;;;*** + +;;;### (autoloads nil nil ("flymake-easy-pkg.el") (0 0 0 0)) ;;;*** diff --git a/elpa/flymake-easy-20141022.1828/flymake-easy-pkg.el b/elpa/flymake-easy-20141022.1828/flymake-easy-pkg.el new file mode 100644 index 00000000..40493bbf --- /dev/null +++ b/elpa/flymake-easy-20141022.1828/flymake-easy-pkg.el @@ -0,0 +1,12 @@ +(define-package "flymake-easy" "20141022.1828" "Helpers for easily building flymake checkers" 'nil :commit "2a24f260cdc3b9c8f9263b653a475d90efa1d392" :authors + '(("Steve Purcell" . "steve@sanityinc.com")) + :maintainers + '(("Steve Purcell" . "steve@sanityinc.com")) + :maintainer + '("Steve Purcell" . "steve@sanityinc.com") + :keywords + '("convenience" "internal") + :url "https://github.com/purcell/flymake-easy") +;; Local Variables: +;; no-byte-compile: t +;; End: diff --git a/elpa/flymake-easy-20140818.755/flymake-easy.el b/elpa/flymake-easy-20141022.1828/flymake-easy.el similarity index 99% rename from elpa/flymake-easy-20140818.755/flymake-easy.el rename to elpa/flymake-easy-20141022.1828/flymake-easy.el index f5820f77..6c452705 100644 --- a/elpa/flymake-easy-20140818.755/flymake-easy.el +++ b/elpa/flymake-easy-20141022.1828/flymake-easy.el @@ -4,7 +4,6 @@ ;; Author: Steve Purcell ;; URL: https://github.com/purcell/flymake-easy -;; Package-Version: 20140818.755 ;; Version: DEV ;; Keywords: convenience, internal -- 2.47.3