lang/org: fail gracefully on org-roam-mode failure

Otherwise throws an error immediately when opening any org file, if
org-roam isn't properly set up from the get go.
This commit is contained in:
Henrik Lissner 2021-05-09 20:10:55 -04:00
parent d44c57f01a
commit a1fdc77dc1

View file

@ -9,7 +9,7 @@
;;; Packages
(use-package! org-roam
:hook (org-load . org-roam-mode)
:hook (org-load . +org-init-roam-maybe-h)
:hook (org-roam-backlinks-mode . turn-on-visual-line-mode)
:commands (org-roam-buffer-toggle-display
org-roam-dailies-find-date
@ -46,6 +46,14 @@
:desc "Find yesterday" "y" #'org-roam-dailies-find-yesterday
:desc "Find directory" "." #'org-roam-dailies-find-directory))
:config
(defun +org-init-roam-maybe-h ()
"Activate `org-roam-mode'. If it fails, fail gracefully."
(unless (with-demoted-errors "ORG ROAM ERROR: %s"
(org-roam-mode +1)
t)
(message "To try reinitializing org-roam, run 'M-x org-roam-mode'")
(org-roam-mode -1)))
(setq org-roam-directory
(file-name-as-directory
(file-truename