defuns-project => defuns-projectile

core/defuns/defuns-project.el

@@ -1,58 +0,0 @@
-;;; defuns-project.el
-
-;;;###autoload
-(defun doom/project-root (&optional strict-p)
-  "Get the path to the root of your project. Uses `doom-project-root-files' to
-determine if a directory is a project."
-  (let (projectile-require-project-root strict-p)
-    (projectile-project-root)))
-
-;;;###autoload
-(defun doom/project-has-files (files &optional root)
-  "Return non-nil if FILES exist in the project root."
-  (let ((root (or root (doom/project-root)))
-        (files (if (listp files) files (list files)))
-        (found-p (if files t)))
-    (while (and found-p files)
-      (let ((file (expand-file-name (pop files) root)))
-        (setq found-p (if (string-suffix-p "/" file)
-                          (file-directory-p file)
-                        (file-exists-p file)))))
-    found-p))
-
-;;;###autoload
-(defalias 'doom/project-p 'projectile-project-p)
-
-;;;###autoload
-(defalias 'doom/project-name 'projectile-project-name)
-
-;;
-;; Navigation
-;;
-
-;;;###autoload
-(defun doom/switch-to-project-buffer ()
-  "Displays open buffers in current project. If ALL-P, then show all open
-buffers."
-  (interactive)
-  (ivy-read "Switch to: " (doom/get-buffer-names t)
-            :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/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

core/defuns/defuns-projectile.el

@@ -0,0 +1,32 @@
+;;; defuns-projectile.el
+
+;;;###autoload
+(defun doom/project-root (&optional strict-p)
+  "Get the path to the root of your project."
+  (let (projectile-require-project-root strict-p)
+    (projectile-project-root)))
+
+;;;###autoload
+(defun doom/project-has-files (files &optional root)
+  "Return non-nil if FILES exist in the project root."
+  (let ((root (or root (doom/project-root)))
+        (files (if (listp files) files (list files)))
+        (found-p (if files t)))
+    (while (and found-p files)
+      (let ((file (expand-file-name (pop files) root)))
+        (setq found-p (if (string-suffix-p "/" file)
+                          (file-directory-p file)
+                        (file-exists-p file)))))
+    found-p))
+
+;;;###autoload
+(defun doom/project-p (&optional strict-p)
+  "Whether or not this buffer is currently in a project or not."
+  (let ((projectile-require-project-root strict-p))
+    (projectile-project-p)))
+
+;;;###autoload
+(defalias 'doom/project-name 'projectile-project-name)
+
+(provide 'defuns-projectile)
+;;; defuns-projectile.el ends here