[Projects] Delete bookmarks when archiving projects

This commit is contained in:
Daniel - 2018-08-18 10:50:55 +02:00
parent 1f08b83cf8
commit 9259c48272
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 24 additions and 1 deletions

View File

@ -7,6 +7,8 @@
;;; Code:
(require 'subr-x)
(require 'cl-lib)
(require 'dash)
(defgroup projects nil
"Simple directory-based project management"
@ -65,12 +67,33 @@
(list (completing-read "Short Name: " (projects-existing-projects) nil t)))
(unless (projects-project-exists-p short-name)
(user-error "Project %s does not exist, exiting" short-name))
;; Remove bookmark first
(let* ((notebook-path (expand-file-name (concat
(file-name-as-directory short-name)
"projekttagebuch.org")
projects-main-project-directory))
(bookmark-entry (cl-find-if (lambda (entry)
(let ((filename (->> entry
cdr
(cl-assoc 'filename)
cdr)))
(and (not (file-remote-p filename))
(file-equal-p notebook-path
filename))))
bookmark-alist)))
(if (null bookmark-entry)
(warn "No bookmark for project notebook of %s found." short-name)
(bookmark-delete (car bookmark-entry))))
;; Move project directory into archive
(unless (file-exists-p projects-archive-directory)
(make-directory projects-archive-directory))
(rename-file (expand-file-name short-name projects-main-project-directory)
(expand-file-name short-name projects-archive-directory)
nil)
;; XXX: Delete bookmark
;; Update projectiles cache
(when (require 'projectile nil 'no-error)
(projectile-cleanup-known-projects)))