Fixed my project loading feature

This commit is contained in:
Howard Abrams 2022-02-04 14:38:56 -08:00
parent 9dda0a8abd
commit e561e148e1

View file

@ -1043,11 +1043,13 @@ Often, but not always, I want a perspective based on an actual Git repository, e
;; To pin a project in projectile to the perspective, we need to load a file ;; To pin a project in projectile to the perspective, we need to load a file
;; from that project. The README will do, or at least, the dired of it. ;; from that project. The README will do, or at least, the dired of it.
(if files (let ((readme-org (f-join project "README.org"))
(ha--project-show-files project files) (readme-md (f-join project "README.md")))
(if-let ((readme (f-join project "README*"))) (cond
(find-file readme t) (files (ha--project-show-files project files))
(dired project))))) ((f-exists? readme-org) (find-file readme-org))
((f-exists? readme-md) (find-file readme-md))
(t (dired project))))))
#+END_SRC #+END_SRC
Displaying a few files? Well, when /starting/ I am only showing one or two files (maybe three), so we will split the window horizontally for each file. Displaying a few files? Well, when /starting/ I am only showing one or two files (maybe three), so we will split the window horizontally for each file.