From 718a84bc687f78e14aa53ebf80371ace74588960 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Sun, 5 Jun 2016 00:52:09 -0400
Subject: [PATCH] Add project navigation defuns

---
 core/defuns/defuns-project.el | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/core/defuns/defuns-project.el b/core/defuns/defuns-project.el
index 6a6b651b6..17ccf4a61 100644
--- a/core/defuns/defuns-project.el
+++ b/core/defuns/defuns-project.el
@@ -26,5 +26,38 @@ determine if a directory is a project."
 ;;;###autoload
 (defalias 'doom/project-name 'projectile-project-name)
 
+;;
+;; Navigation
+;;
+
+;;;###autoload
+(defun doom/switch-to-project-buffer (&optional all-p)
+  "Displays open buffers in current project. If ALL-P, then show all open
+buffers."
+  (interactive)
+  (ivy-read "Switch to: " (doom/get-buffer-names (not all-p))
+            :matcher #'ivy--switch-buffer-matcher
+            :preselect (buffer-name (other-buffer (current-buffer)))
+            :action #'ivy--switch-buffer-action
+            :keymap ivy-switch-buffer-map
+            :caller 'doom/switch-to-project-buffer))
+
+;;;###autoload
+(defun doom/switch-to-buffer ()
+  (interactive)
+  (doom/switch-to-project-buffer t))
+
+;;;###autoload
+(defun doom/find-file-in-emacsd ()
+  (interactive)
+  (let ((default-directory doom-emacs-dir))
+    (projectile-find-file)))
+
+;;;###autoload
+(defun doom/find-file-in-dotfiles ()
+  (interactive)
+  (let ((default-directory (expand-file-name ".dotfiles" "~")))
+    (projectile-find-file)))
+
 (provide 'defuns-project)
 ;;; defuns-project.el ends here