diff options
| author | Thomas Voss <mail@thomasvoss.com> | 2025-06-04 18:10:56 +0200 |
|---|---|---|
| committer | Thomas Voss <mail@thomasvoss.com> | 2025-06-04 18:10:56 +0200 |
| commit | 838608bbd285d47a4c8ca8aaf5e2b3778fe70122 (patch) | |
| tree | c0bdcfc1d87788744594243da25f8101ced610dd /.config/emacs | |
| parent | 401756f444a3becbcb88fe6f538ea62c79866b1d (diff) | |
Diffstat (limited to '.config/emacs')
| -rw-r--r-- | .config/emacs/modules/mm-projects.el | 27 |
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.")))) |