[nongnu] elpa/workroom 7b58515a1e 71/74: Don't error when project root path ends with a slash

[ELPA Syncer]

branch: elpa/workroom
commit 7b58515a1eb852ac990f29afe563eabdbe323786
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    Don't error when project root path ends with a slash
---
 workroom.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/workroom.el b/workroom.el
index c0b89e3759..47a9dce0cb 100644
--- a/workroom.el
+++ b/workroom.el
@@ -1933,7 +1933,8 @@ prefix argument is given."
                (project-current nil (project-prompt-project-dir))
              (project-current 'maybe-prompt)))
           (root (project-root project))
-          (name (file-name-base (project-root project))))
+          (name (file-name-base (directory-file-name
+                                 (project-root project)))))
      (list
       (read-string
        (format-message "Workname name for project `%s': " name)
@@ -1963,7 +1964,8 @@ prefix argument is given."
           (workroom-switch room)
         (let ((workroom--dont-clear-new-view t))
           (workroom-switch-to-project-workroom
-           (file-name-base (project-root project))
+           (file-name-base (directory-file-name
+                            (project-root project)))
            (project-root project)))))))
 
 (define-minor-mode workroom-auto-project-workroom-mode