emacs: Automatically fill project list

1 files changed, 15 insertions, 0 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index dc40f78..5fd6f06 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -631,6 +631,21 @@ font name, font weight, and font height in that order.")
     (add-hook 'after-make-frame-functions (lambda (_) (x-set-fonts)))
   (x-set-fonts))
 
+;;; Set Project List
+(defun x-set-project-list ()
+  (interactive)
+  (when-let ((no-dotfiles "\\`[^.]")
+             (repo-directory (getenv "REPODIR"))
+             (level-1 (directory-files repo-directory 'full-name no-dotfiles)))
+    (setq project--list (cl-loop for directory in level-1
+                                 append (mapcar #'list (directory-files
+                                                        directory
+                                                        'full-name
+                                                        no-dotfiles))))
+    (project--write-project-list)))
+
+(with-eval-after-load 'project
+  (x-set-project-list))
 
 ;;; C-Style
 (defun x-c-defun-open-safe (_syntax _position)