summaryrefslogtreecommitdiff
path: root/.config/emacs/modules/mm-projects.el
diff options
context:
space:
mode:
authorThomas Voss <thomas.voss@humanwave.nl> 2025-06-11 14:59:58 +0200
committerThomas Voss <thomas.voss@humanwave.nl> 2025-06-11 14:59:58 +0200
commit03f5bb39561fad4d7745ff796b91f73933d99259 (patch)
treec02bf7e1b0657c555412c895f4efebdad777dde2 /.config/emacs/modules/mm-projects.el
parentfad74e4384176f8cf98c86cfbf5c0468c0f49dce (diff)
parenteb28738864a4b3dfe4443e897ccdea21c0765dc0 (diff)
Merge branch 'master' of github.com:Mango0x45/dotfiles
Diffstat (limited to '.config/emacs/modules/mm-projects.el')
-rw-r--r--.config/emacs/modules/mm-projects.el27
1 files changed, 11 insertions, 16 deletions
diff --git a/.config/emacs/modules/mm-projects.el b/.config/emacs/modules/mm-projects.el
index be80789..00342f5 100644
--- a/.config/emacs/modules/mm-projects.el
+++ b/.config/emacs/modules/mm-projects.el
@@ -21,22 +21,17 @@ This is intended to be called interactively via
:config
(unless mm-darwin-p
(if-let ((repo-directory (getenv "REPODIR")))
- (with-eval-after-load 'async
- (async-start
- (lambda ()
- (require 'project)
- (let* ((list-dir
- (lambda (path)
- (directory-files path :full "\\`[^.]")))
- (directories
- (cl-loop for author in (funcall list-dir (getenv "REPODIR"))
- append (cl-loop for path in (funcall list-dir author)
- collect (list (concat path "/"))))))
- (with-temp-buffer
- (prin1 directories (current-buffer))
- (write-file project-list-file))))
- (lambda (_proc)
- (project--read-project-list))))
+ (let* ((list-dir
+ (lambda (path)
+ (directory-files path :full "\\`[^.]")))
+ (directories
+ (cl-loop for author in (funcall list-dir (getenv "REPODIR"))
+ append (cl-loop for path in (funcall list-dir author)
+ collect (list (concat path "/"))))))
+ (with-temp-buffer
+ (prin1 directories (current-buffer))
+ (write-file project-list-file))
+ (project--read-project-list))
(warn "The REPODIR environment variable is not set."))))