 (bind-key "M-g" '(lambda ()
                    (interactive)
                    (save-some-buffers t nil)
-                   (helm-grep-ag (expand-file-name (car (project-roots (project-current t)))) current-prefix-arg)))
+                   (helm-grep-ag (projectile-project-root) current-prefix-arg)))
 
 (bind-key* "M-G" '(lambda ()
                     (interactive)

           ("C-c <SPC>" . helm-all-mark-rings)
           ("C-c C-r" . helm-resume))

(require 'project)
(bind-key "C-x C-p" 'project-find-file)

(require 'grep)
(add-to-list 'grep-find-ignored-files ".DS_Store")

                     json-mode
                     haskell-mode
                     restart-emacs
                     projectile
                     helm
                     helm-xref
                     ;; helm-dired-history
                     helm-org-rifle
                     super-save
                     avy
