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

Stop using “long names” in personal project utilities 

They have only been used in project diaries, and since these are gone now, long
names should go too.
This commit is contained in:
Daniel - 2022-10-16 20:58:11 +02:00
parent 137bafeb0b
commit 7663b82800
Signed by: dbo
GPG Key ID: 784AA8DF0CCDF625
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -56,12 +56,12 @@
nil "^[^.]"))) nil "^[^.]")))
;;;###autoload ;;;###autoload
(defun projects-add-project (short-name long-name) (defun projects-add-project (short-name)
"Add new project with SHORT-NAME and LONG-NAME. "Add new project with SHORT-NAME.
The project directory will be located under The project directory will be located under
`projects-main-project-directory' within a directory named `projects-main-project-directory' within a directory named
SHORT-NAME." SHORT-NAME."
(interactive "sShort Name: \nsLong Name: ") (interactive "sShort Name: ")
(when (projects-project-exists-p short-name) (when (projects-project-exists-p short-name)
(user-error "Project %s already exists, exiting" short-name)) (user-error "Project %s already exists, exiting" short-name))
(when (file-exists-p (expand-file-name short-name (when (file-exists-p (expand-file-name short-name