From 61326287cecac31b8dd63b5f169486508343a131 Mon Sep 17 00:00:00 2001 From: Joseph Ferano Date: Wed, 14 Feb 2024 12:56:11 +0800 Subject: [PATCH] Emacs: Better project open project readme --- .config/emacs/init.org | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) 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)