lucas/dotfiles
1
0
Fork 0
Code Activity

fix(emacs): improve workspace switching

Browse source 
Signed-off-by: Lucas Sta Maria <lucas@priime.dev>
This commit is contained in:
Lucas Sta Maria 2024-03-11 23:47:48 -04:00
parent a5dd03a7fd
commit 98742f3279
No known key found for this signature in database
GPG key ID: F07FB16A826E3B47
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
.emacs.d/include/orgconfig.el
View file

@ -22,16 +22,17 @@
"Switch the current org-roam-directory to WORKSPACE-NAME." "Switch the current org-roam-directory to WORKSPACE-NAME."
(interactive) (interactive)
(defconst default-workspace-name (caar org-workspaces-alist)) (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)) default-workspace-name))
(let ((workspace-name (let ((workspace-name
(or workspace-name (or workspace-name
(completing-read prompt-message org-workspaces-alist)))) (completing-read prompt-message
(when (s-blank? workspace-name) org-workspaces-alist
(error "Requires valid workspace")) nil t nil nil
default-workspace-name))))
(setq org-roam-directory (cadr (assoc workspace-name org-workspaces-alist))) (setq org-roam-directory (cadr (assoc workspace-name org-workspaces-alist)))
(setq org-roam-db-location (cddr (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 ;; Settings
(setq org-hide-emphasis-markers t) (setq org-hide-emphasis-markers t)