upgrade hgh/update-projects
This commit is contained in:
5
utils.el
5
utils.el
@@ -16,6 +16,7 @@
|
|||||||
|
|
||||||
(defun hgh/update-projects ()
|
(defun hgh/update-projects ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(let ((projects-root (concat (getenv "HOME") "/programming/projects/")))
|
(dolist (path '("/programming/projects/" "/programming/thirdparty/" "/programming/probe/"))
|
||||||
|
(let ((projects-root (concat (getenv "HOME") path)))
|
||||||
(dolist (dir (directory-files projects-root t "^[^.]"))
|
(dolist (dir (directory-files projects-root t "^[^.]"))
|
||||||
(project-current t dir))))
|
(project-current t dir)))))
|
||||||
|
|||||||
Reference in New Issue
Block a user