chore(emacs): remove lean-flycheck-use option

src/emacs/lean-flycheck.el

@@ -46,27 +46,8 @@
   (add-to-list 'flycheck-checkers 'lean-checker))
 
 (defun lean-flycheck-turn-on ()
-  (interactive)
-  (unless lean-flycheck-use
-    (when (called-interactively-p 'any)
-      (message "use flycheck in lean-mode"))
-    (setq lean-flycheck-use t))
   (flycheck-mode t))
 
-(defun lean-flycheck-turn-off ()
-  (interactive)
-  (when lean-flycheck-use
-    (when (called-interactively-p 'any)
-      (message "no flycheck in lean-mode")))
-  (flycheck-mode 0)
-  (setq lean-flycheck-use nil))
-
-(defun lean-flycheck-toggle-use ()
-  (interactive)
-  (if lean-flycheck-use
-      (lean-flycheck-turn-off)
-    (lean-flycheck-turn-on)))
-
 (defun lean-flycheck-error-list-buffer-width ()
   "Return the width of flycheck-error list buffer"
   (interactive)

src/emacs/lean-mode.el

@@ -19,6 +19,7 @@
 (require 'pcase)
 (require 'lean-require)
 (require 'eri)
+(require 'flycheck)
 (require 'lean-util)
 (require 'lean-settings)
 (require 'lean-input)
@@ -110,7 +111,7 @@
     ["Toggle next error display" lean-toggle-next-error       t]
     ["Find definition at point" lean-find-definition          t]
     "-----------------"
-    ["List of errors"       flycheck-list-errors              (and lean-flycheck-use flycheck-mode)]
+    ["List of errors"       flycheck-list-errors              flycheck-mode]
     "-----------------"
     ["Restart lean process" lean-server-restart               t]
     "-----------------"
@@ -147,9 +148,8 @@ enabled and disabled respectively.")
   (lean-server-ensure-alive)
   (setq mode-name '("Lean" (:eval (lean-server-status-string))))
   ;; Flycheck
-  (when lean-flycheck-use
-    (lean-flycheck-turn-on)
-    (setq-local flycheck-disabled-checkers '()))
+  (lean-flycheck-turn-on)
+  (setq-local flycheck-disabled-checkers '())
   ;; company-mode
   (when lean-company-use
     (company-lean-hook))
@@ -200,10 +200,8 @@ Invokes `lean-mode-hook'.
 (modify-coding-system-alist 'file "\\.hlean\\'" 'utf-8)
 
 ;; Flycheck init
-(when lean-flycheck-use
-  (require 'flycheck)
-  (eval-after-load 'flycheck
-    '(lean-flycheck-init)))
+(eval-after-load 'flycheck
+  '(lean-flycheck-init))
 
 (provide 'lean-mode)
 ;;; lean-mode.el ends here

src/emacs/lean-server.el

@@ -223,9 +223,8 @@
 
 (defun lean-server-show-messages (&optional buf)
   (with-current-buffer (or buf (current-buffer))
-    (when flycheck-mode
-      (lean-server-update-task-overlays)
-      (flycheck-buffer))))
+    (lean-server-update-task-overlays)
+    (flycheck-buffer)))
 
 (defun lean-server-notify-messages-changed (sess)
   (dolist (buf (buffer-list))
@@ -263,9 +262,8 @@
   (interactive)
   (lean-server-stop)
   (lean-server-ensure-alive)
-  (when lean-flycheck-use
-    (flycheck-stop)
-    (flycheck-buffer)))
+  (flycheck-stop)
+  (flycheck-buffer))
 
 (defun lean-server-send-command (cmd params &optional cb error-cb)
   "Sends a command to the lean server for the current buffer, with a callback to be called upon completion"

src/emacs/lean-settings.el

@@ -59,11 +59,6 @@
   :group 'lean
   :type 'number)
 
-(defcustom lean-flycheck-use t
-  "Use flycheck for lean."
-  :group 'lean
-  :type 'boolean)
-
 (defcustom lean-delete-trailing-whitespace nil
   "Set this variable to true to automatically delete trailing
 whitespace when a buffer is loaded from a file or when it is