JosephFerano/dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Emacs: Better project open project readme

Browse Source
This commit is contained in:
Joseph Ferano 2024-02-14 12:56:11 +08:00
parent 04065b59c1
commit 61326287ce
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
.config/emacs/init.org
View File

@ -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)