completion for completion

init.el

@@ -44,11 +44,9 @@
   (require 'cl-lib)
   ;; Language and coding
   (set-language-environment "utf-8")
-  (set-keyboard-coding-system 'utf-8)
-  (set-default-coding-systems 'utf-8)
+  ;; (set-keyboard-coding-system 'utf-8)
+  ;; (set-default-coding-systems 'utf-8)
 
-  (add-hook 'prog-mode-hook (lambda () (setq truncate-lines t)))
-  
 ;;; Packages
   (require 'package)
   (setq package--init-file-ensured t

lisp/completion.el

@@ -61,7 +61,7 @@
           projectile-ignored-projects '("~/" "/tmp")
           projectile-globally-ignored-files '(".DS_Store" "TAGS")
           projectile-globally-ignored-directories '(".ccls-cache")
-          projectile-kill-buffers-filter 'kill-only-files)
+          projectile-kill-buffers-filter 'kill-all)
 
     (setq projectile-sort-order 'recentf
           projectile-cache-file user/projectile-cache-file

lisp/configs.el

@@ -88,7 +88,7 @@ If `lsp-mode' use lsp-mode as lsp client.")
   '(ag apropos bm bookmark
        (buff-menu "buff-menu")
        calc calendar
-       cus-theme debug dictionary diff-mode dired dired-sidebar disk-usage doc-view docker ebib edbi edebug ediff eglot explain-pause-mode elfeed elisp-mode elisp-refs elisp-slime-nav emms epa ert eshell eval-sexp-fu evil-mc eww finder flycheck flymake free-keys geiser ggtags git-timemachine gnus go-mode grep guix hackernews helm help helpful hg-histedit hungry-delete ibuffer image image-dired image+ imenu imenu-list
+       cus-theme debug dictionary diff-mode dired dired-sidebar disk-usage doc-view docker ebib edbi edebug ediff eglot explain-pause-mode elfeed elisp-mode elisp-refs elisp-slime-nav emms epa ert eshell eval-sexp-fu evil-mc eww finder free-keys geiser ggtags git-timemachine gnus go-mode grep guix hackernews helm help helpful hg-histedit hungry-delete ibuffer image image-dired image+ imenu imenu-list
        (indent "indent")
        lispy log-edit log-view lsp-ui-imenu man magit magit-todos neotree nov
        (occur replace)

lisp/editor.el

@@ -60,6 +60,9 @@
 ;; Default to soft line-wrapping in text modes.
 (add-hook 'text-mode-hook #'visual-line-mode)
 
+;; truncate-lines only on prog mode.
+(add-hook 'prog-mode-hook (lambda () (setq truncate-lines t)))
+
 (unless (assq 'menu-bar-lines default-frame-alist)
   (add-to-list 'default-frame-alist '(menu-bar-lines . 0))
   (add-to-list 'default-frame-alist '(tool-bar-lines . 0))
@@ -147,8 +150,10 @@
   :config
   (add-to-list 'user/evil-collection-mode-list 'imenu)
   ;; (evil-define-key nil 'global (kbd "<leader>ji") 'imenu)
-  (user/set-global-leader-key "ji" 'imenu)
-  )
+  (user/set-global-leader-key "ji" 'imenu))
+
+(use-package display-fill-column-indicator
+  :ensure nil)
 
 ;;; Minibuffers
 ;; Allow for minibuffer-ception.

lisp/prog-c-cpp.el

@@ -9,5 +9,10 @@
   :ensure t
   :defer t)
 
+(use-package company-c-headers
+  :ensure t
+  :init
+  (add-to-list 'company-backends 'company-c-headers))
+
 (provide 'prog-c-cpp)
 ;;; prog-c-cpp.el ends here

lisp/prog-common.el

@@ -49,8 +49,14 @@
 ;;; Completion
 (use-package yasnippet
   :ensure t
+  :commands (yas-global-mode yas-minor-mode yas-active-extra-mode)
   :init
+  (setq yas-trigger-in-field t
+        yas-wrap-around-region t
+        yas-prompt-functions '(yas-completing-prompt))
+
   (add-hook 'prog-mode-hook #'yas-minor-mode)
+  (add-hook 'org-mode-hook #'yas-minor-mode)
   :config
   (add-hook 'prog-mode-hook 'yas-reload-all)
   :diminish yas-minor-mode
@@ -68,14 +74,18 @@
   (tab-always-indent 'complete)
   :init
   (add-to-list 'user/evil-collection-mode-list 'company)
-  (add-hook 'company-completion-started-hook 'company-turn-off-fci)
-  (add-hook 'company-completion-finished-hook 'company-maybe-turn-on-fci)
-  (add-hook 'company-completion-cancelled-hook 'company-maybe-turn-on-fci)
   :config
   (setq-default company-backends (delete 'company-semantic company-backends))
   (push '(company-semantic :with company-yasnippet) company-backends)
-  :diminish company-mode
-  )
+  (define-key company-active-map (kbd "C-/") 'counsel-company)
+  :diminish company-mode)
+
+(use-package company-statistics
+  :ensure t
+  :init
+  (setq company-statistics-file (concat user/cache-directory
+                                        "company-statistics-cache.el"))
+  (add-hook 'company-mode-hook 'company-statistics-mode))
 
 (use-package company-quickhelp
   :ensure t
@@ -84,20 +94,27 @@
   :bind (("C-c d" . 'company-quickhelp-manual-begin)))
 
 ;;; Flycheck
-(use-package flycheck-mode
-  :ensure flycheck
+(use-package flycheck
+  :ensure t
   :defer t
+  :hook (prog-mode . flycheck-mode)
   :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)
+  (push '("^\\*Flycheck.+\\*$"
+          :regexp t
+          :dedicated t
+          :position bottom
+          :stick t
+          :noselect t)
+        popwin:special-display-config)
+  :config
+  (user/set-global-leader-key*
+    "en" 'flycheck-next-error
+    "ep" 'flycheck-previous-error
+    "eb" 'flycheck-buffer
+    "ec" 'flycheck-clear
+    "eh" 'flycheck-describe-checker
+    "es" 'flycheck-select-checker
+    "ex" 'flycheck-explain-error-at-point))
 
 (provide 'prog-common)
 ;;; prog-common.el ends here