start prog mode

init.el

@@ -166,6 +166,7 @@
   (use-package imenu
     :defer t
     :bind (("C-c j i" . 'imenu))
+    )
 
 ;;; Completion
   (use-package yasnippet
@@ -184,12 +185,13 @@
     :ensure company
     :hook prog-mode
     :config
-    (setq company-idle-delay 0.2)
-    (setq company-minimum-prefix-length 2)
-    (setq tab-always-indent 'complete)
-    ;; (add-hook 'prog-mode-hook 'company-mode)
-    (setq-default company-backends (delete 'company-semantic company-backends))
-    (push '(company-semantic :with company-yasnippet) company-backends)
+    (progn
+      (setq company-idle-delay 0.2)
+      (setq company-minimum-prefix-length 2)
+      (setq tab-always-indent 'complete)
+      ;; (add-hook 'prog-mode-hook 'company-mode)
+      (setq-default company-backends (delete 'company-semantic company-backends))
+      (push '(company-semantic :with company-yasnippet) company-backends))
     :diminish company-mode
     )
 
@@ -285,8 +287,8 @@
     (let ((dim-list
            ;; minor modes list followed will not show in the mode line.
            '(abbrev-mode hs-minor-mode auto-revert-mode
-		                     hs-minor-mode image-mode iimage-mode visual-line-mode
-		                     eldoc-mode undo-tree-mode))
+			 hs-minor-mode image-mode iimage-mode visual-line-mode
+			 eldoc-mode undo-tree-mode company-mode))
           )
       (dolist (list dim-list)
         (diminish list)))

lisp/prog-common.el

@@ -20,19 +20,6 @@
 		 'haskell-mode-hook))
     (add-hook hook '(lambda () (nox-ensure)))))
 
-;; (use-package eglot
-;;   :ensure t
-;;   :config
-;;   (dolist (hook (list
-;; 		 'python-mode-hook
-;; 		 'c-mode-hook
-;; 		 'c-mode-common-hook
-;; 		 'c++-mode-hook
-;; 		 'haskell-mode-hook))
-;;     (add-hook hook '(lambda () (eglot-ensure)))
-;;     )
-;;   )
-
 ;; (use-package lsp-mode
 ;;   :ensure t
 ;;   :init
@@ -58,11 +45,23 @@
   :commands lsp-ivy-workspace-symbol)
 
 (use-package dap-mode
+  :after (lsp-mode)
   :ensure t)
 
 ;;; Flycheck
 (use-package flycheck-mode
   :ensure flycheck
+  :defer t
+  :init
+  (progn
+    (setq flycheck-standard-error-navigation nil
+	  flycheck-global-modes nil))
+  :bind
+  (("C-c e b" . 'flycheck-buffer)
+   ("C-c e c" . 'flycheck-clear)
+   ("C-c e h" . 'flycheck-describe-checker)
+   ("C-c e s" . 'flycheck-select-checker)
+   ("C-c e x" . 'flycheck-explain-error-at-point))
   :hook prog-mode)
 
 (provide 'prog-common)