From 98742f32799e19eb35f00abce1ce68d8599dee8a Mon Sep 17 00:00:00 2001 From: Lucas Sta Maria Date: Mon, 11 Mar 2024 23:47:48 -0400 Subject: [PATCH] fix(emacs): improve workspace switching Signed-off-by: Lucas Sta Maria --- .emacs.d/include/orgconfig.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/.emacs.d/include/orgconfig.el b/.emacs.d/include/orgconfig.el index 363ecbe..36ead40 100644 --- a/.emacs.d/include/orgconfig.el +++ b/.emacs.d/include/orgconfig.el @@ -22,16 +22,17 @@ "Switch the current org-roam-directory to WORKSPACE-NAME." (interactive) (defconst default-workspace-name (caar org-workspaces-alist)) - (defconst prompt-message (format "Org Roam Workspace (default \"%s\")" + (defconst prompt-message (format "Org Roam Workspace (default \"%s\"): " default-workspace-name)) (let ((workspace-name (or workspace-name - (completing-read prompt-message org-workspaces-alist)))) - (when (s-blank? workspace-name) - (error "Requires valid workspace")) + (completing-read prompt-message + org-workspaces-alist + nil t nil nil + default-workspace-name)))) (setq org-roam-directory (cadr (assoc workspace-name org-workspaces-alist))) (setq org-roam-db-location (cddr (assoc workspace-name org-workspaces-alist))) - (org-roam-db-sync t))) + (org-roam-db-sync nil))) ;; Settings (setq org-hide-emphasis-markers t)