branch: elpa/workroom
commit 7b58515a1eb852ac990f29afe563eabdbe323786
Author: Akib Azmain Turja <a...@disroot.org>
Commit: Akib Azmain Turja <a...@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
