marginalia, eglot

emacs/feature/feature-completion.el

@@ -9,7 +9,8 @@
 (require 'module-orderless)
 (require 'module-snippets)
 (require 'module-marginalia)
-
+(require 'module-corfu)
+(require 'module-eglot)
 (provide 'feature-completion)
 
 ;;; feature-completion.el ends here.

emacs/init.el

@@ -46,7 +46,6 @@
 (require 'feature-bsgen)           ; bullshit generators
 (require 'feature-finance)         ; damn that money!
 (require 'feature-email)           ; because ya gotta...
-
 (require 'server)
 (if (not (server-running-p))
     (server-start))

emacs/module/module-corfu.el

@@ -0,0 +1,29 @@
+;;; module-corfu.el --- Corfu module support
+;;
+;;; Commentary:
+;; This module provides support for Corfu, a library that provides
+;; inline completion.
+;;
+;;; Code:
+
+(require 'module-pkg)
+(pkg/require 'corfu)
+
+(setq corfu-cycle t)                ;; Enable cycling for `corfu-next/previous'
+(setq corfu-auto t)                 ;; Enable auto completion
+(setq corfu-separator ?\s)          ;; Orderless field separator
+;; (setq corfu-quit-at-boundary nil)   ;; Never quit at completion boundary
+(setq corfu-quit-no-match nil)      ;; Never quit, even if there is no match
+;; (setq corfu-preview-current nil)    ;; Disable current candidate preview
+;; (setqcorfu-preselect 'prompt)      ;; Preselect the prompt
+;; (setq corfu-on-exact-match nil)     ;; Configure handling of exact matches
+;; (setq corfu-scroll-margin 5)        ;; Use scroll margin
+
+
+(setq tab-always-indent 'complete)
+(setq text-mode-ispell-word-completion nil)
+(setq read-extended-command-predicate #'command-completion-default-include-p)
+(global-corfu-mode)
+
+(provide 'module-corfu)
+;;; module-corfu.el ends here

emacs/module/module-eglot.el

@@ -0,0 +1,14 @@
+;;; module-eglot.el --- Eglot support for Emacs
+;;;
+;;; Commentary: This file provides basic functionality for using Eglot
+;;; with Emacs.  It's a starting point, not a complete implementation.
+
+;;; Code:
+
+(require 'module-pkg)
+(pkg/require 'eglot)
+(add-hook 'go-mode-hook 'eglot-ensure)
+(add-hook 'c-mode-hook 'eglot-ensure)
+
+(provide 'module-eglot)
+;;; module-eglot.el ends here

emacs/module/module-marginalia.el

@@ -11,4 +11,5 @@
 (define-key minibuffer-local-map (kbd "M-A") 'marginalia-cycle)
 
 (marginalia-mode)
+(provide 'module-marginalia)
 ;;; module-marginalia.el ends here