Write core initfiles + defuns

core/core-company.el

@@ -0,0 +1,54 @@
+;;; core-company.el --- auto completion backend (Company-mode)
+;; see lib/company-macros.el
+
+(eval-when-compile (require 'core))
+
+(use-package company
+  :diminish (company-mode . "=")
+  :commands (company-complete-common company-files company-tags
+             company-ispell company-yasnippet company-semantic
+             company-dabbrev-code)
+  :init
+  (after! abbrev (diminish 'abbrev-mode "A"))
+  (setq company-idle-delay nil
+        company-minimum-prefix-length 1
+        company-show-numbers nil
+        company-tooltip-limit 20
+        company-dabbrev-downcase nil
+        company-dabbrev-ignore-case nil
+        company-tooltip-align-annotations t
+        company-require-match 'never
+        company-global-modes '(not eshell-mode comint-mode org-mode erc-mode
+                                   message-mode help-mode)
+        company-frontends '(company-pseudo-tooltip-unless-just-one-frontend
+                            company-echo-metadata-frontend
+                            company-preview-if-just-one-frontend)
+        company-dict-dir (concat narf-private-dir "dict/"))
+  :config
+  (global-company-mode +1)
+
+  ;; (use-package company-dict :defer t)
+  ;; (setq-default company-backends (append '(company-dict company-keywords) company-backends))
+
+  (setq-default company-backends (append '(company-keywords) company-backends))
+  ;; TODO: Investigate yasnippet
+  (after! yasnippet
+    (setq-default company-backends (append '(company-capf company-yasnippet) company-backends)))
+  (add-to-list 'company-transformers 'company-sort-by-occurrence)
+
+  (add-company-backend! nxml-mode       (nxml yasnippet))
+  (add-company-backend! emacs-lisp-mode (elisp yasnippet))
+
+  ;; Rewrite evil-complete to use company-dabbrev
+  (setq company-dabbrev-code-other-buffers t
+        company-dabbrev-code-buffers       nil
+        evil-complete-next-func           'narf/company-evil-complete-next
+        evil-complete-previous-func       'narf/company-evil-complete-previous)
+
+  (shut-up!
+    (setq company-statistics-file (! (concat narf-temp-dir "company-statistics-cache.el")))
+    (require 'company-statistics)
+    (company-statistics-mode)))
+
+(provide 'core-company)
+;;; core-company.el ends here