From 583d2e679c69db54e061e79984e6017fb3498f26 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 18 Aug 2018 09:57:08 +0200 Subject: [PATCH] [Projects] Use long names when creating bookmarks for new projects When archiving projects, the bookmark is not deleted automatically anymore; will fix this later. --- site-lisp/db-projects.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/site-lisp/db-projects.el b/site-lisp/db-projects.el index 8149cf1..6ba8256 100644 --- a/site-lisp/db-projects.el +++ b/site-lisp/db-projects.el @@ -46,7 +46,7 @@ (insert (format "#+created: %s\n\n" (format-time-string "[%Y-%m-%d %a %H:%M]" (current-time)))) (write-file (expand-file-name "projekttagebuch.org" project-directory)) - (bookmark-set (format "Projekttagebuch %s" short-name))) + (bookmark-set (format "Projekttagebuch %s" long-name))) (write-region (format "%s" long-name) nil (expand-file-name ".projectile" project-directory)) (when (require 'projectile nil 'no-error) @@ -63,7 +63,7 @@ (rename-file (expand-file-name short-name projects-main-project-directory) (expand-file-name short-name projects-archive-directory) nil) - (bookmark-delete (format "Projekttagebuch %s" short-name)) + ;; XXX: Delete bookmark (when (require 'projectile nil 'no-error) (projectile-cleanup-known-projects)))