First commit.

lisp/utilities/ag.el

@@ -0,0 +1,32 @@
+;;; ag.el --- interface to The Silver Searcher -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code: https://github.com/emacsorphanage/helm-ag
+
+(with-executable 'ag
+  (when (feature-p 'helm)
+    (use-package helm-ag
+      :defer
+      :config
+      (validate-setq
+       ;; Insert word at point as search term.
+       helm-ag-insert-at-point 'word)))
+  (use-package ag
+    :defer
+    :init
+    (if (and (feature-p 'projectile)
+             (fboundp 'projectile-ag))
+        (global-set-key [remap find-grep] 'projectile-ag)
+      (global-set-key [remap find-grep] 'ag))
+    :config
+    (validate-setq
+     ag-project-root-function
+     '(lambda ()
+        (with-project project (path-buffer-abs)
+          (user/proj-root project))))
+
+    ;; Search inside compressed files.
+    (add-to-list 'ag-arguments "--search-zip")))
+
+
+(provide 'utilities/ag)
+;;; ag.el ends here