From 2c0b0db45e9cd16d175800b78b118db90bff2e20 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 5 Aug 2018 16:29:19 +0200 Subject: [PATCH] [Projects] Simple projectile integration --- site-lisp/db-projects.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/site-lisp/db-projects.el b/site-lisp/db-projects.el index e5a128c..aeb8dad 100644 --- a/site-lisp/db-projects.el +++ b/site-lisp/db-projects.el @@ -2,7 +2,6 @@ ;;; Commentary: -;; XXX: add projectile integration ;; XXX: check that newly created projects aren’t name the same as archived projects ;;; Code: @@ -49,7 +48,9 @@ (write-file (expand-file-name "projekttagebuch.org" project-directory)) (bookmark-set (format "Projekttagebuch %s" short-name))) (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) + (projectile-add-known-project project-directory)))) (defun projects-archive-project (short-name) "Archive existing project." @@ -62,7 +63,9 @@ (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))) + (bookmark-delete (format "Projekttagebuch %s" short-name)) + (when (require 'projectile nil 'no-error) + (projectile-cleanup-known-projects))) (provide 'db-projects)