emacs: Use cape for CAPF functions

1 files changed, 17 insertions, 0 deletions

diff --git a/.config/emacs/modules/mm-completion.el b/.config/emacs/modules/mm-completion.el
index 74740b4..8ff2894 100644
--- a/.config/emacs/modules/mm-completion.el
+++ b/.config/emacs/modules/mm-completion.el
@@ -159,6 +159,23 @@
   (find-library-include-other-files nil))
 
 
+;;; Completion at Point Functions
+
+(defun mm-cape-file--not-dot-path-p (cand)
+  (declare (ftype (function (string) boolean))
+           (pure t) (side-effect-free t))
+  (not (or (string= cand "./")
+           (string= cand "../"))))
+
+(use-package cape
+  :ensure t
+  :init
+  (add-hook 'completion-at-point-functions
+            (cape-capf-predicate #'cape-file #'mm-cape-file--not-dot-path-p))
+  (add-hook 'completion-at-point-functions
+            (cape-capf-prefix-length #'cape-dabbrev 3)))
+
+
 ;;; Completion at Point Live Completions
 
 (use-package completion-preview