 (bind-key "M-g" '(lambda ()
                    (interactive)
                    (save-some-buffers t nil)
-                   (counsel-rg (thing-at-point 'symbol t)
-                               (projectile-project-root)
-                               current-prefix-arg)))
+                   (helm-grep-ag (projectile-project-root) current-prefix-arg)))
 
 (bind-key* "M-G" '(lambda ()
                     (interactive)
                     (save-some-buffers t nil)
-                    (counsel-rg (thing-at-point 'symbol t)
-                                default-directory
-                                current-prefix-arg)))
+                    (helm-grep-ag (helm-current-directory) current-prefix-arg)))
 
 (require 'ivy-rich)
 (ivy-rich-mode 1)

                    nil
                    :foreground "gray50")

(set-face-attribute 'font-lock-comment-face
                    nil
                    ;; :height 0.9

                     haskell-mode
                     csharp-mode
                     restart-emacs
                     helm
                     ivy
                     ivy-rich
                     ivy-xref
