1 files changed, 0 insertions, 25 deletions

@@ -1,25 +0,0 @@
-;;; cape.el  -*- lexical-binding: t; -*-
-
-;;; Code:
-
-(require 'cape)
-
-(defmacro +cape-insinuate (hook capes &rest capfs)
-  "Insinuate CAPES for a mode.
-Add a function to HOOK that will add CAPES to the local
-`completion-at-point-functions' for that mode's buffer.  If CAPFS
-are given, mark them all as non-exclusive."
-  (let ((fn (intern (format "+cape-insinuate@%s" hook))))
-    `(prog1
-         ,@(when capes
-             `((defun ,fn ()
-                 ,@(cl-loop for cape in capes
-                            collect `(add-hook 'completion-at-point-functions
-                                               #',cape 90 :local)))
-               (add-hook ',hook #',fn)))
-       ,@(cl-loop for capf in capfs
-                  collect `(advice-add ',capf :around
-                                       #'cape-wrap-nonexclusive)))))
-
-(provide '+cape)
-;;; +cape.el ends here