exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Projects] Cosmetics

Browse Source
This commit is contained in:
Daniel Borchmann 2018-08-18 10:15:21 +02:00
parent 45d8f2c79e
commit e1a05acdec
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
site-lisp/db-projects.el
View File

@ -58,8 +58,8 @@
(defun projects-archive-project (short-name) (defun projects-archive-project (short-name)
"Archive existing project." "Archive existing project."
(interactive (list (interactive
(completing-read "Short Name: " (projects-existing-projects) nil t))) (list (completing-read "Short Name: " (projects-existing-projects) nil t)))
(unless (projects-project-exists-p short-name) (unless (projects-project-exists-p short-name)
(user-error "Project %s does not exist, exiting" short-name)) (user-error "Project %s does not exist, exiting" short-name))
(unless (file-exists-p projects-archive-directory) (unless (file-exists-p projects-archive-directory)