93f7520c79
- Eager-load all core autoloaded libraries if autoloads file isn't present. - Renames functions to be more descriptive of their true purpose: - doom-initialize-autoloads -> doom-load-autoloads-file - doom-load-env-vars -> doom-load-envvars-file - Use doom-module-p instead of featurep! for backend use (the latter is mainly syntax sugar for module use, and evaluates at compile/expansion time, which may cause hash-table-p errors early in the startup process). - Reorder plist library to prevent load order race condition with the functions using the macros that haven't been defined yet.
135 lines
4.9 KiB
EmacsLisp
135 lines
4.9 KiB
EmacsLisp
;;; core/autoload/projects.el -*- lexical-binding: t; -*-
|
|
|
|
(defvar projectile-project-root nil)
|
|
|
|
;;;###autoload (autoload 'projectile-relevant-known-projects "projectile")
|
|
|
|
;;;###autodef
|
|
(cl-defun set-project-type! (name &key predicate compile run test configure dir)
|
|
"Add a project type to `projectile-project-type'."
|
|
(declare (indent 1))
|
|
(after! projectile
|
|
(add-to-list 'projectile-project-types
|
|
(list name
|
|
'marker-files predicate
|
|
'compilation-dir dir
|
|
'configure-command configure
|
|
'compile-command compile
|
|
'test-command test
|
|
'run-command run))))
|
|
|
|
|
|
;;
|
|
;;; Macros
|
|
|
|
;;;###autoload
|
|
(defun doom-project-file-exists-p (files)
|
|
"Checks if the project has the specified FILES.
|
|
Paths are relative to the project root, unless they start with ./ or ../ (in
|
|
which case they're relative to `default-directory'). If they start with a slash,
|
|
they are absolute."
|
|
(file-exists-p! files (doom-project-root)))
|
|
|
|
|
|
;;
|
|
;;; Commands
|
|
|
|
;;;###autoload
|
|
(defun doom/find-file-in-other-project (project-root)
|
|
"Preforms `projectile-find-file' in a known project of your choosing."
|
|
(interactive
|
|
(list
|
|
(completing-read "Find file in project: " (projectile-relevant-known-projects)
|
|
nil nil nil nil (doom-project-root))))
|
|
(unless (file-directory-p project-root)
|
|
(error "Project directory '%s' doesn't exist" project-root))
|
|
(doom-project-find-file project-root))
|
|
|
|
;;;###autoload
|
|
(defun doom/browse-in-other-project (project-root)
|
|
"Preforms `find-file' in a known project of your choosing."
|
|
(interactive
|
|
(list
|
|
(completing-read "Browse in project: " (projectile-relevant-known-projects)
|
|
nil nil nil nil (doom-project-root))))
|
|
(unless (file-directory-p project-root)
|
|
(error "Project directory '%s' doesn't exist" project-root))
|
|
(doom-project-browse project-root))
|
|
|
|
|
|
;;
|
|
;;; Library
|
|
|
|
;;;###autoload
|
|
(defun doom-project-p (&optional dir)
|
|
"Return t if DIR (defaults to `default-directory') is a valid project."
|
|
(and (doom-project-root dir)
|
|
t))
|
|
|
|
;;;###autoload
|
|
(defun doom-project-root (&optional dir)
|
|
"Return the project root of DIR (defaults to `default-directory').
|
|
Returns nil if not in a project."
|
|
(let ((projectile-project-root (unless dir projectile-project-root))
|
|
projectile-require-project-root)
|
|
(projectile-project-root dir)))
|
|
|
|
;;;###autoload
|
|
(defun doom-project-name (&optional dir)
|
|
"Return the name of the current project.
|
|
|
|
Returns '-' if not in a valid project."
|
|
(if-let* ((project-root (or (doom-project-root dir)
|
|
(if dir (expand-file-name dir)))))
|
|
(funcall projectile-project-name-function project-root)
|
|
"-"))
|
|
|
|
;;;###autoload
|
|
(defun doom-project-expand (name &optional dir)
|
|
"Expand NAME to project root."
|
|
(expand-file-name name (doom-project-root dir)))
|
|
|
|
;;;###autoload
|
|
(defun doom-project-find-file (dir)
|
|
"Jump to a file in DIR (searched recursively).
|
|
|
|
If DIR is not a project, it will be indexed (but not cached)."
|
|
(unless (file-directory-p dir)
|
|
(error "Directory %S does not exist" dir))
|
|
(unless (file-readable-p dir)
|
|
(error "Directory %S isn't readable" dir))
|
|
(let* ((default-directory (file-truename (expand-file-name dir)))
|
|
(project-root (doom-project-root default-directory))
|
|
(projectile-project-root default-directory)
|
|
(projectile-enable-caching projectile-enable-caching))
|
|
(cond ((and project-root (file-equal-p project-root projectile-project-root))
|
|
(unless (doom-project-p projectile-project-root)
|
|
;; Disable caching if this is not a real project; caching
|
|
;; non-projects easily has the potential to inflate the projectile
|
|
;; cache beyond reason.
|
|
(setq projectile-enable-caching nil))
|
|
(call-interactively
|
|
;; Intentionally avoid `helm-projectile-find-file', because it runs
|
|
;; asynchronously, and thus doesn't see the lexical `default-directory'
|
|
(if (doom-module-p :completion 'ivy)
|
|
#'counsel-projectile-find-file
|
|
#'projectile-find-file)))
|
|
((fboundp 'project-find-file-in) ; emacs 26.1+ only
|
|
(project-find-file-in nil (list default-directory) nil))
|
|
((fboundp 'counsel-file-jump) ; ivy only
|
|
(call-interactively #'counsel-file-jump))
|
|
((fboundp 'helm-find-files)
|
|
(call-interactively #'helm-find-files))
|
|
((call-interactively #'find-file)))))
|
|
|
|
;;;###autoload
|
|
(defun doom-project-browse (dir)
|
|
"Traverse a file structure starting linearly from DIR."
|
|
(let ((default-directory (file-truename (expand-file-name dir))))
|
|
(call-interactively
|
|
(cond ((doom-module-p :completion 'ivy)
|
|
#'counsel-find-file)
|
|
((doom-module-p :completion 'helm)
|
|
#'helm-find-files)
|
|
(#'find-file)))))
|