2018-08-05 16:19:52 +02:00
|
|
|
|
;;; db-projects.el -- Simple Directory-Based Project Management -*- lexical-binding: t -*-
|
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
2018-08-05 16:23:26 +02:00
|
|
|
|
;; XXX: check that newly created projects aren’t name the same as archived projects
|
2018-08-05 16:19:52 +02:00
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
2018-08-18 10:15:05 +02:00
|
|
|
|
(require 'subr-x)
|
2018-08-18 10:50:55 +02:00
|
|
|
|
(require 'cl-lib)
|
|
|
|
|
(require 'dash)
|
2018-08-18 10:15:05 +02:00
|
|
|
|
|
2018-08-05 16:19:52 +02:00
|
|
|
|
(defgroup projects nil
|
|
|
|
|
"Simple directory-based project management"
|
|
|
|
|
:tag "Project Management"
|
|
|
|
|
:group 'projects)
|
|
|
|
|
|
|
|
|
|
(defcustom projects-main-project-directory "~/Documents/projects/"
|
|
|
|
|
"Main directory to host projects."
|
|
|
|
|
:group 'projects)
|
|
|
|
|
|
|
|
|
|
(defcustom projects-archive-directory "~/Documents/projects/.archive"
|
|
|
|
|
"Directory to archive projects into"
|
|
|
|
|
:group 'projects)
|
|
|
|
|
|
|
|
|
|
(defun projects-project-exists-p (short-name)
|
|
|
|
|
"Check whether a project named SHORT-NAME already exists"
|
2018-08-18 10:49:59 +02:00
|
|
|
|
(or
|
|
|
|
|
(file-exists-p (expand-file-name (concat (file-name-as-directory short-name)
|
|
|
|
|
".git")
|
|
|
|
|
projects-main-project-directory))
|
|
|
|
|
(file-exists-p (expand-file-name (concat (file-name-as-directory short-name)
|
|
|
|
|
".projectile")
|
|
|
|
|
projects-main-project-directory))))
|
2018-08-05 16:19:52 +02:00
|
|
|
|
|
|
|
|
|
(defun projects-existing-projects ()
|
|
|
|
|
"Return list of all short-names of existing projects"
|
2018-08-18 10:49:59 +02:00
|
|
|
|
(cl-remove-if-not #'projects-project-exists-p
|
2018-08-05 16:19:52 +02:00
|
|
|
|
(directory-files projects-main-project-directory)))
|
|
|
|
|
|
|
|
|
|
(defun projects-add-project (short-name long-name)
|
|
|
|
|
"Add new project."
|
|
|
|
|
(interactive "sShort Name: \nsLong Name: ")
|
|
|
|
|
(when (projects-project-exists-p short-name)
|
2018-08-05 16:35:44 +02:00
|
|
|
|
(user-error "Project %s already exists, exiting" short-name))
|
2018-08-18 10:15:05 +02:00
|
|
|
|
(let* ((project-directory (expand-file-name short-name
|
|
|
|
|
projects-main-project-directory))
|
|
|
|
|
(default-directory project-directory))
|
2018-08-05 16:19:52 +02:00
|
|
|
|
(make-directory project-directory)
|
2018-08-18 10:15:05 +02:00
|
|
|
|
(make-directory (expand-file-name "scripts"))
|
|
|
|
|
(make-directory (expand-file-name "data"))
|
2018-08-05 16:19:52 +02:00
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert (format "#+title: %s\n" long-name))
|
|
|
|
|
(insert (format "#+created: %s\n\n"
|
|
|
|
|
(format-time-string "[%Y-%m-%d %a %H:%M]" (current-time))))
|
2018-08-18 10:15:05 +02:00
|
|
|
|
(write-file (expand-file-name "projekttagebuch.org"))
|
2018-08-18 09:57:08 +02:00
|
|
|
|
(bookmark-set (format "Projekttagebuch %s" long-name)))
|
2018-08-18 10:15:05 +02:00
|
|
|
|
(if-let ((git-executable (executable-find "git")))
|
|
|
|
|
(call-process git-executable nil nil nil "init")
|
|
|
|
|
(write-region "" nil (expand-file-name ".projectile")))
|
2018-08-05 16:29:19 +02:00
|
|
|
|
(when (require 'projectile nil 'no-error)
|
|
|
|
|
(projectile-add-known-project project-directory))))
|
2018-08-05 16:19:52 +02:00
|
|
|
|
|
|
|
|
|
(defun projects-archive-project (short-name)
|
|
|
|
|
"Archive existing project."
|
2018-08-18 10:15:21 +02:00
|
|
|
|
(interactive
|
|
|
|
|
(list (completing-read "Short Name: " (projects-existing-projects) nil t)))
|
2018-08-05 16:29:03 +02:00
|
|
|
|
(unless (projects-project-exists-p short-name)
|
2018-08-05 16:19:52 +02:00
|
|
|
|
(user-error "Project %s does not exist, exiting" short-name))
|
2018-08-18 10:50:55 +02:00
|
|
|
|
|
|
|
|
|
;; 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
|
2018-08-05 16:19:52 +02:00
|
|
|
|
(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)
|
2018-08-18 10:50:55 +02:00
|
|
|
|
|
|
|
|
|
;; Update projectile’s cache
|
2018-08-05 16:29:19 +02:00
|
|
|
|
(when (require 'projectile nil 'no-error)
|
|
|
|
|
(projectile-cleanup-known-projects)))
|
2018-08-05 16:19:52 +02:00
|
|
|
|
|
2018-08-18 10:49:30 +02:00
|
|
|
|
|
2018-08-05 16:19:52 +02:00
|
|
|
|
(provide 'db-projects)
|
|
|
|
|
|
|
|
|
|
;;; db-projects.el ends here
|