exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Do some cleanup in db-projects

Browse Source
This commit is contained in:
Daniel Borchmann 2020-09-20 16:20:23 +02:00
parent 9822736d8e
commit 7a0fbff4c5
Signed by: exot
GPG Key ID: 1C7071A75BB72D64
1 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
site-lisp/db-projects.el
View File

@ -80,8 +80,7 @@ with some standard information like title and creation date."
(if-let ((git-executable (executable-find "git"))) (if-let ((git-executable (executable-find "git")))
(call-process git-executable nil nil nil "init") (call-process git-executable nil nil nil "init")
(write-region "" nil (expand-file-name ".projectile"))) (write-region "" nil (expand-file-name ".projectile")))
(when (require 'projectile nil 'no-error) (projectile-add-known-project project-directory)))
(projectile-add-known-project project-directory))))
(defun projects--find-bookmarks-for-path (path) (defun projects--find-bookmarks-for-path (path)
"Find all bookmark names that point into PATH." "Find all bookmark names that point into PATH."
@ -106,24 +105,26 @@ project, and updating projectile's cache."
(unless (projects-project-exists-p short-name) (unless (projects-project-exists-p short-name)
(user-error "Project %s does not exist, exiting" short-name)) (user-error "Project %s does not exist, exiting" short-name))
(let ((project-path (expand-file-name short-name projects-main-project-directory))
(archive-path (expand-file-name short-name projects-archive-directory)))
(when (file-exists-p archive-path)
(user-error "Archived project named %s already exists, aborting" short-name))
;; Remove bookmarks first ;; Remove bookmarks first
(mapc #'bookmark-delete (projects--find-bookmarks-for-path (mapc #'bookmark-delete (projects--find-bookmarks-for-path project-path))
(expand-file-name short-name projects-main-project-directory)))
;; Move project directory into archive ;; Move project directory into archive
(unless (file-exists-p projects-archive-directory) (unless (file-exists-p projects-archive-directory)
(make-directory projects-archive-directory)) (make-directory projects-archive-directory))
(rename-file (expand-file-name short-name projects-main-project-directory) (rename-file project-path archive-path nil)
(expand-file-name short-name projects-archive-directory)
nil)
;; Update projectile’s cache ;; Update projectile’s cache
(projectile-remove-known-project (projectile-cleanup-known-projects)))
(expand-file-name short-name
projects-main-project-directory)))
(defun projects--org-files () (defun projects--org-files ()
"Return all Org Mode files in all known projects, recursively." "Return all Org Mode files in all known projects, recursively.
Paths returned are absolute, but may not be canonical."
(mapcan #'(lambda (dir) (mapcan #'(lambda (dir)
(directory-files-recursively (expand-file-name dir projects-main-project-directory) (directory-files-recursively (expand-file-name dir projects-main-project-directory)
".*\\.org" nil)) ".*\\.org" nil))
@ -159,7 +160,7 @@ not have a corresponding bookmark."
"projekttagebuch.org") "projekttagebuch.org")
projects-main-project-directory))) projects-main-project-directory)))
(when (file-exists-p project-diary-path) (when (file-exists-p project-diary-path)
(puthash project-diary-path project projects)))) (puthash (file-truename project-diary-path) project projects))))
;; Delete all those diary links that have a bookmark ;; Delete all those diary links that have a bookmark
(dolist (bmkn (bookmark-all-names)) (dolist (bmkn (bookmark-all-names))