update packages and (fix) eaf settings

2022-01-04 17:55:01 +01:00
parent 2e35b2ef92
commit 1d5275c946
8 changed files with 398 additions and 132 deletions
--- a/lisp/flycheck/flycheck-pkg.el
+++ b/lisp/flycheck/flycheck-pkg.el
@@ -1,10 +1,10 @@
-(define-package "flycheck" "20201228.2104" "On-the-fly syntax checking"
+(define-package "flycheck" "20210825.1804" "On-the-fly syntax checking"
  '((dash "2.12.1")
    (pkg-info "0.4")
    (let-alist "1.0.4")
    (seq "1.11")
    (emacs "24.3"))
-  :commit "01396a5eff9fa494285e0d3139838231c05e3948" :authors
+  :commit "784f184cdd9f9cb4e3dbb997c09d93e954142842" :authors
  '(("Sebastian Wiesner" . "swiesner@lunaryorn.com"))
  :maintainer
  '("Clément Pit-Claudel" . "clement.pitclaudel@live.com")
--- a/lisp/flycheck/flycheck.el
+++ b/lisp/flycheck/flycheck.el
@@ -360,7 +360,7 @@ A syntax checker assigned to this variable must be defined with
 Use the command `flycheck-select-checker' to select a syntax
 checker for the current buffer, or set this variable as file
 local variable to always use a specific syntax checker for a
-file.  See Info Node `(emacs)Specifying File Variables' for more
+file.  See Info Node `(Emacs)Specifying File Variables' for more
 information about file variables.")
 (put 'flycheck-checker 'safe-local-variable 'flycheck-registered-checker-p)

@@ -2052,6 +2052,17 @@ are mandatory.
       be found online at URL.
     - nil if there is no explanation for this error.

+     If URL is provided by the checker, and cannot be composed
+     from other elements in the `flycheck-error' object, consider
+     passing the URL via text properties:
+
+       ;; During the error object creation
+       (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))))
+
     This property is optional.

 `:next-checkers NEXT-CHECKERS'
@@ -3806,7 +3817,7 @@ the THING at the column, and END the end of the THING."
            (`symbols
             ;; Ensure that we're on a word or symbol.  See
             ;; https://github.com/flycheck/flycheck/issues/1519
-             (and (< beg (point-max))
+             (and (<= (point-min) beg) (< beg (point-max))
                  (memq (char-syntax (char-after beg)) '(?w ?_))
                  (flycheck-bounds-of-thing-at-point 'symbol beg)))
            (`sexps
@@ -8391,15 +8402,21 @@ Requires DMD 2.066 or newer.  See URL `https://dlang.org/'."
  "A Dockerfile syntax checker using the hadolint.

 See URL `http://github.com/hadolint/hadolint/'."
-  :command ("hadolint" "-")
+  :command ("hadolint" "--no-color" "-")
  :standard-input t
  :error-patterns
  ((error line-start
-          (file-name) ":" line ":" column " " (message)
+          (file-name) ":" line " " (id (one-or-more alnum)) " error: " (message)
          line-end)
   (warning line-start
-            (file-name) ":" line " " (id (one-or-more alnum)) " " (message)
-            line-end))
+            (file-name) ":" line " " (id (one-or-more alnum))
+            " warning: " (message) line-end)
+   (info line-start
+         (file-name) ":" line " " (id (one-or-more alnum)) " info: " (message)
+         line-end)
+   (error line-start
+          (file-name) ":" line ":" column " " (message)
+          line-end))
  :error-filter
  (lambda (errors)
    (flycheck-sanitize-errors
@@ -8595,7 +8612,7 @@ This variable has no effect, if
        (setq flycheck-emacs-lisp-check-declare ,value)))))

 (defun flycheck--emacs-lisp-enabled-p ()
-  "Check whether to enable Emacs Lisp checkers in the current buffer."
+  "Check whether to enable Emacs Lisp checker in the current buffer."
  (not
   (or
    ;; Do not check buffers used for autoloads generation during package
@@ -8612,6 +8629,12 @@ This variable has no effect, if
         (member (file-name-nondirectory (buffer-file-name))
                 '("Cask" "Carton" ".dir-locals.el" ".dir-locals-2.el"))))))

+(defun flycheck--emacs-lisp-checkdoc-enabled-p ()
+  "Check whether to enable Emacs Lisp Checkdoc in the current buffer."
+  (and (flycheck--emacs-lisp-enabled-p)
+       ;; These files are valid Lisp, but don't contain "standard" comments.
+       (not (member (buffer-file-name) '("Eldev" "Eldev-local")))))
+
 (flycheck-define-checker emacs-lisp
  "An Emacs Lisp syntax checker using the Emacs Lisp Byte compiler.

@@ -8731,7 +8754,7 @@ The checker runs `checkdoc-current-buffer'."
  :error-patterns
  ((info line-start (file-name) ":" line ": " (message) line-end))
  :modes (emacs-lisp-mode)
-  :enabled flycheck--emacs-lisp-enabled-p)
+  :enabled flycheck--emacs-lisp-checkdoc-enabled-p)

 (dolist (checker '(emacs-lisp emacs-lisp-checkdoc))
  (setf (car (flycheck-checker-get checker 'command))
@@ -10428,6 +10451,35 @@ because it adds the current directory to Python's path)."
    `("-c" ,(concat "import sys;sys.path.pop(0);import runpy;"
                    (format "runpy.run_module(%S)" module-name)))))

+(defcustom flycheck-python-project-files
+  '("pyproject.toml" "setup.cfg" "mypy.ini" "pyrightconfig.json")
+  "Files used to find where to run Python checkers from.
+Currently used for pylint, flake8, and pyright.
+
+The presence of one in these files indicates the root of the
+current project; `.pylintrc' is not part of the list because it
+is commonly found in ~/."
+  :group 'flycheck
+  :type '(repeat (string :tag "File name"))
+  :package-version '(flycheck . "0.33")
+  :safe #'flycheck-string-list-p)
+
+(defun flycheck-python-find-project-root (_checker)
+  "Find the root directory of a Python project.
+
+The root directory is assumed to be the nearest parent directory
+that contains one of `flycheck-python-project-files'.  If no such
+file is found, we use the same heuristic as epylint: the nearest
+parent directory that doesn't have a __init__.py file."
+  (let ((start (if buffer-file-name
+                   (file-name-directory buffer-file-name)
+                 default-directory)))
+    (or (flycheck--locate-dominating-file-matching
+         start (regexp-opt flycheck-python-project-files))
+        (locate-dominating-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-option-var flycheck-flake8-error-level-alist
@@ -10524,7 +10576,7 @@ Requires Flake8 3.0 or newer. See URL
                    (concat "--stdin-display-name=" buffer-file-name)))
            "-")
  :standard-input t
-  :working-directory flycheck-flake8--find-project-root
+  :working-directory flycheck-python-find-project-root
  :error-filter (lambda (errors)
                  (let ((errors (flycheck-sanitize-errors errors)))
                    (seq-map #'flycheck-flake8-fix-error-level errors)))
@@ -10542,7 +10594,9 @@ Requires Flake8 3.0 or newer. See URL
  :next-checkers ((warning . python-pylint)
                  (warning . python-mypy)))

-(flycheck-def-config-file-var flycheck-pylintrc python-pylint ".pylintrc")
+(flycheck-def-config-file-var
+    flycheck-pylintrc python-pylint
+    '("pylintrc" ".pylintrc" "pyproject.toml" "setup.cfg"))

 (flycheck-def-option-var flycheck-pylint-use-symbolic-id t python-pylint
  "Whether to use pylint message symbols or message codes.
@@ -10595,6 +10649,7 @@ See URL `https://www.pylint.org/'."
            ;; import bar'), see https://github.com/flycheck/flycheck/issues/280
            source-inplace)
  :error-parser flycheck-parse-pylint
+  :working-directory flycheck-python-find-project-root
  :enabled (lambda ()
             (or (not (flycheck-python-needs-module-p 'python-pylint))
                 (flycheck-python-find-module 'python-pylint "pylint")))
@@ -10627,6 +10682,7 @@ See URL `https://docs.python.org/3.4/library/py_compile.html'."
   (error line-start "SyntaxError: ('" (message (one-or-more (not (any "'"))))
          "', ('" (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
  :next-checkers ((warning . python-mypy)))

@@ -10652,11 +10708,6 @@ the BUFFER that was checked respectively."
        :filename (buffer-file-name buffer))))
   (cdr (nth 2 (car (flycheck-parse-json output))))))

-(defun flycheck-pyright--find-project-root (_checker)
-  "Find project root by searching for pyright config file."
-  (locate-dominating-file
-   (or buffer-file-name default-directory) "pyrightconfig.json"))
-
 (flycheck-define-checker python-pyright
  "Static type checker for Python

@@ -10664,7 +10715,7 @@ See URL https://github.com/microsoft/pyright."
  :command ("pyright"
            "--outputjson"
            source-inplace)
-  :working-directory flycheck-pyright--find-project-root
+  :working-directory flycheck-python-find-project-root
  :error-parser flycheck-pyright--parse-error
  :modes python-mode)

@@ -10672,7 +10723,7 @@ See URL https://github.com/microsoft/pyright."
  'flycheck-python-mypy-config "32")

 (flycheck-def-config-file-var flycheck-python-mypy-config python-mypy
-                              '("mypy.ini" "setup.cfg"))
+                              '("mypy.ini" "pyproject.toml" "setup.cfg"))

 (flycheck-def-option-var flycheck-python-mypy-cache-dir nil python-mypy
  "Directory used to write .mypy_cache directories."
@@ -10699,6 +10750,7 @@ See URL `http://mypy-lang.org/'."
            ": warning:" (message) line-end)
   (info line-start (file-name) ":" line (optional ":" column)
         ": note:" (message) line-end))
+  :working-directory flycheck-python-find-project-root
  :modes python-mode
  ;; Ensure the file is saved, to work around
  ;; https://github.com/python/mypy/issues/4746.
@@ -10914,7 +10966,7 @@ See URL `https://git.io/vhi2t'."
 See URL `https://github.com/markdownlint/markdownlint'."
  :command ("mdl"
            (config-file "--style" flycheck-markdown-mdl-style)
-            (option "--tags=" flycheck-markdown-mdl-rules concat
+            (option "--tags=" flycheck-markdown-mdl-tags concat
                    flycheck-option-comma-separated-list)
            (option "--rules=" flycheck-markdown-mdl-rules concat
                    flycheck-option-comma-separated-list))
@@ -10937,6 +10989,10 @@ See URL `https://nixos.org/nix/manual/#sec-nix-instantiate'."
  :standard-input t
  :error-patterns
  ((error line-start
+          "error: " (message)
+          (one-or-more "\n")
+          (zero-or-more space) "at «stdin»:" line ":" column ":" line-end)
+   (error line-start
          "at: (" line ":" column ") from stdin"
          (one-or-more "\n" (zero-or-more space (one-or-more not-newline)))
          (message) line-end)
@@ -12354,9 +12410,14 @@ See URL `https://github.com/nodeca/js-yaml'."
  ((error line-start
          (or "JS-YAML" "YAMLException") ": "
          (message) " at line " line ", column " column ":"
+          line-end)
+   (error line-start
+          (or "JS-YAML" "YAMLException") ": "
+          (message) " (" line ":" column ")"
          line-end))
  :modes yaml-mode
-  :next-checkers ((warning . cwl)))
+  :next-checkers ((warning . yaml-yamllint)
+                  (warning . cwl)))

 (flycheck-define-checker yaml-ruby
  "A YAML syntax checker using Ruby's YAML parser.
@@ -12375,7 +12436,8 @@ See URL `http://www.ruby-doc.org/stdlib-2.0.0/libdoc/yaml/rdoc/YAML.html'."
  ((error line-start "stdin:" (zero-or-more not-newline) ":" (message)
          "at line " line " column " column line-end))
  :modes yaml-mode
-  :next-checkers ((warning . cwl)))
+  :next-checkers ((warning . yaml-yamllint)
+                  (warning . cwl)))

 (flycheck-def-config-file-var flycheck-yamllintrc yaml-yamllint ".yamllint")

@@ -12390,7 +12452,8 @@ 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
+  :next-checkers ((warning . cwl)))

 (provide 'flycheck)