diff --git a/core/defuns/defuns-project.el b/core/defuns/defuns-project.el deleted file mode 100644 index 1cc023149..000000000 --- a/core/defuns/defuns-project.el +++ /dev/null @@ -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 diff --git a/core/defuns/defuns-projectile.el b/core/defuns/defuns-projectile.el new file mode 100644 index 000000000..8b51ba4aa --- /dev/null +++ b/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