From b64c830ac5cdbc5704383d0a731c2e78c17fffd8 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sun, 5 Aug 2018 16:23:37 +0200 Subject: [PATCH] [Projects] Simplify directory name concatenation --- site-lisp/db-projects.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/site-lisp/db-projects.el b/site-lisp/db-projects.el index cf890d3..7696751 100644 --- a/site-lisp/db-projects.el +++ b/site-lisp/db-projects.el @@ -22,15 +22,14 @@ (defun projects-project-exists-p (short-name) "Check whether a project named SHORT-NAME already exists" - (file-exists-p (expand-file-name ".projectile" - (expand-file-name short-name - projects-main-project-directory)))) + (file-exists-p (expand-file-name (concat (file-name-as-directory short-name) ".projectile") + projects-main-project-directory))) (defun projects-existing-projects () "Return list of all short-names of existing projects" (cl-remove-if-not (lambda (name) - (file-exists-p (expand-file-name ".projectile" - (expand-file-name name projects-main-project-directory)))) + (file-exists-p (expand-file-name (concat (file-name-as-directory name) ".projectile") + projects-main-project-directory))) (directory-files projects-main-project-directory))) (defun projects-add-project (short-name long-name)