From 7e496beee9a90c86446de5e1f59537b64a7196a5 Mon Sep 17 00:00:00 2001
From: Howard Abrams <howard.abrams@workday.com>
Date: Thu, 3 Nov 2022 09:28:29 -0700
Subject: [PATCH] Make flycheck functions easier to call

Since I call the functions, why hold down the Shift key for everything?
---
 ha-programming.org | 45 ++++++++++++++++++++++++++-------------------
 1 file changed, 26 insertions(+), 19 deletions(-)

diff --git a/ha-programming.org b/ha-programming.org
index 30a9ba4..2d54d4a 100644
--- a/ha-programming.org
+++ b/ha-programming.org
@@ -66,6 +66,11 @@ Why use [[https://www.flycheck.org/][flycheck]] over the built-in =flymake=? Spe
                 ("j"   . 'flycheck-error-list-next-error)
                 ("k"   . 'flycheck-error-list-previous-error))
     :config
+    (defun flycheck-enable-checker ()
+      "Not sure why flycheck disables working checkers."
+      (interactive)
+      (call-interactively 'flycheck-disable-checker 4))
+
     (flymake-mode -1)
     (global-flycheck-mode)
     (ha-leader "t c" 'flycheck-mode)
@@ -74,25 +79,27 @@ Why use [[https://www.flycheck.org/][flycheck]] over the built-in =flymake=? Spe
       ">" '("next problem" . flycheck-next-error)
       "<" '("previous problem" . flycheck-previous-error)
 
-      "P" '(:ignore t :which-key "problems")
-      "P b" '("error buffer" . flycheck-buffer)
-      "P c" '("clear" . flycheck-clear)
-      "P n" '("next" . flycheck-next-error)
-      "P N" '("next" . flycheck-next-error)
-      "P p" '("previous" . flycheck-previous-error)
-      "P P" '("previous" . flycheck-previous-error)
-      "P l" '("list all" . flycheck-list-errors)
-      "P y" '("copy errors" . flycheck-copy-errors-as-kill)
-      "P s" '("select checker" . flycheck-select-checker)
-      "P ?" '("describe checker" . flycheck-describe-checker)
-      "P h" '("display error" . flycheck-display-error-at-point)
-      "P e" '("explain error" . flycheck-explain-error-at-point)
-      "P H" '("help" . display-local-help)
-      "P i" '("manual" . flycheck-manual)
-      "P V" '("version" . flycheck-version)
-      "P v" '("verify-setup" . flycheck-verify-setup)
-      "P x" '("disable-checker" . flycheck-disable-checker)
-      "P t" '("toggle flycheck" . flycheck-mode)))
+      "e" '(:ignore t :which-key "errors")
+      "e b" '("error buffer"     . flycheck-buffer)
+      "e c" '("clear"            . flycheck-clear)
+      "e n" '("next"             . flycheck-next-error)
+      "e N" '("next"             . flycheck-next-error)
+      "e p" '("previous"         . flycheck-previous-error)
+      "e P" '("previous"         . flycheck-previous-error)
+      "e l" '("list all"         . flycheck-list-errors)
+      "e g" '("goto error"       . counsel-flycheck)
+      "e y" '("copy errors"      . flycheck-copy-errors-as-kill)
+      "e s" '("select checker"   . flycheck-select-checker)
+      "e ?" '("describe checker" . flycheck-describe-checker)
+      "e h" '("display error"    . flycheck-display-error-at-point)
+      "e e" '("explain error"    . flycheck-explain-error-at-point)
+      "e H" '("help"             . flycheck-info)
+      "e i" '("manual"           . flycheck-manual)
+      "e V" '("verify-setup"     . flycheck-verify-setup)
+      "e v" '("version"          . flycheck-verify-checker)
+      "e E" '("enable checker"   . flycheck-enable-checker)
+      "e x" '("disable checker"  . flycheck-disable-checker)
+      "e t" '("toggle flycheck"  . flycheck-mode)))
 #+end_src
 ** Documentation
 I’m interested in using [[https://devdocs.io/][devdocs]] instead, which is similar, but keeps it all /inside/ Emacs (and works on my Linux system). Two Emacs projects compete for this position. The Emacs [[https://github.com/astoff/devdocs.el][devdocs]] project is active, and seems to work well. Its advantage is a special mode for moving around the documentation.