[Projects] Use long names when creating bookmarks for new projects
When archiving projects, the bookmark is not deleted automatically anymore; will fix this later.
This commit is contained in:
parent
62ea5520cb
commit
583d2e679c
|
@ -46,7 +46,7 @@
|
||||||
(insert (format "#+created: %s\n\n"
|
(insert (format "#+created: %s\n\n"
|
||||||
(format-time-string "[%Y-%m-%d %a %H:%M]" (current-time))))
|
(format-time-string "[%Y-%m-%d %a %H:%M]" (current-time))))
|
||||||
(write-file (expand-file-name "projekttagebuch.org" project-directory))
|
(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
|
(write-region (format "%s" long-name) nil
|
||||||
(expand-file-name ".projectile" project-directory))
|
(expand-file-name ".projectile" project-directory))
|
||||||
(when (require 'projectile nil 'no-error)
|
(when (require 'projectile nil 'no-error)
|
||||||
|
@ -63,7 +63,7 @@
|
||||||
(rename-file (expand-file-name short-name projects-main-project-directory)
|
(rename-file (expand-file-name short-name projects-main-project-directory)
|
||||||
(expand-file-name short-name projects-archive-directory)
|
(expand-file-name short-name projects-archive-directory)
|
||||||
nil)
|
nil)
|
||||||
(bookmark-delete (format "Projekttagebuch %s" short-name))
|
;; XXX: Delete bookmark
|
||||||
(when (require 'projectile nil 'no-error)
|
(when (require 'projectile nil 'no-error)
|
||||||
(projectile-cleanup-known-projects)))
|
(projectile-cleanup-known-projects)))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user