Goodbye Helm, hello Ivy

core/core-ivy.el

@@ -0,0 +1,35 @@
+;;; core-ivy.el
+;; see defuns/defuns-ivy.el
+
+(use-package ivy
+  :init
+  (setq projectile-completion-system 'ivy
+        ivy-height 15
+        ivy-do-completion-in-region nil)
+
+  :config
+  (ivy-mode +1)
+  (map! :map ivy-minibuffer-map
+        [escape] 'keyboard-escape-quit
+        "C-w" 'backward-kill-word
+        "C-u" 'backward-kill-sentence
+        "C-b" 'backward-word
+        "C-f" 'forward-word)
+
+  (require 'counsel)
+  (defun counsel-ag-function (string)
+  "Grep in the current directory for STRING."
+  (if (< (length string) 1)
+      (counsel-more-chars 1)
+    (let ((default-directory counsel--git-grep-dir)
+          (regex (counsel-unquote-regex-parens
+                  (setq ivy--old-re
+                        (ivy--regex string)))))
+      (counsel--async-command
+       (format counsel-ag-base-command (shell-quote-argument regex)))
+      nil))))
+
+(use-package counsel-projectile :after projectile)
+
+(provide 'core-ivy)
+;;; core-ivy.el ends here