diff --git a/.config/emacs/init.org b/.config/emacs/init.org index 039c353..693e670 100644 --- a/.config/emacs/init.org +++ b/.config/emacs/init.org @@ -1398,10 +1398,14 @@ These are functions to load a project specific file given the conventions I use. (defun joe/project-open-project-readme () (interactive) - (when (project-current) - (if (file-exists-p (expand-file-name "README.org" (project-root (project-current)))) - (joe/project-open-project-file "README.org") - (joe/project-open-project-file "README.md")))) + (let* ((project (project-current)) + (root (project-root project)) + (README (cond ((file-exists-p (expand-file-name "README.org" root)) "README.org") + ((file-exists-p (expand-file-name "README.md" root)) "README.md") + ((file-exists-p (expand-file-name "README" root)) "README") + (t nil)))) + (when README + (joe/project-open-project-file README)))) (defun joe/project-open-project-license () (interactive)