From d77e76e9f7098fdf80175e05acf28f4cde24d6dc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kjartan=20=C3=93li=20=C3=81g=C3=BAstsson?=
 <kjartanoli@protonmail.com>
Date: Wed, 7 Apr 2021 08:32:26 +0000
Subject: [PATCH] Add support for the org-roam-server package

Co-authored-by: Lucius Hu <1222865+lebensterben@users.noreply.github.com>
---
 CHANGELOG.org                 |  1 +
 layers/+emacs/org/README.org  |  5 +++++
 layers/+emacs/org/config.el   |  5 ++++-
 layers/+emacs/org/packages.el | 11 ++++++++++-
 4 files changed, 20 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index a6bea1730..fa2fd2cf8 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -3953,6 +3953,7 @@ Improve loading robustness:
 + Fix ~SPC m l~ by calling =org-open-at-point= instead of =evil-org-open-links=
   (thanks to TheBB)
 + Fix org-repo-todo loading (thanks to TheBB)
++ Add =org-roam-server= package to visualise a =org-roam= database (thanks to KjartanOli)
 
 **** Osx
 - Re-factor and expand support for trash can (thanks to usharf)
diff --git a/layers/+emacs/org/README.org b/layers/+emacs/org/README.org
index 75e77c0ba..db31febf8 100644
--- a/layers/+emacs/org/README.org
+++ b/layers/+emacs/org/README.org
@@ -25,6 +25,7 @@
   - [[#project-support][Project support]]
   - [[#org-brain-support][Org-brain support]]
   - [[#org-roam-support][Org-roam support]]
+    - [[#org-roam-server-support][Org-roam-server support]]
   - [[#mode-line-support][Mode line support]]
   - [[#sticky-header-support][Sticky header support]]
   - [[#epub-support][Epub support]]
@@ -389,6 +390,10 @@ To install org-roam support set the variable =org-enable-roam-support= to =t=.
 
 More information about org-roam package (including manual) can be found at [[https://www.orgroam.com/][Org-roam]] website.
 
+*** Org-roam-server support
+ To install support for [[https://github.com/org-roam/org-roam-server][org-roam-server]] set the variable =org-enable-roam-server=
+ to =t=.
+ 
 ** Mode line support
 To temporarily enable mode line display of org clock, press ~SPC t m c~.
 
diff --git a/layers/+emacs/org/config.el b/layers/+emacs/org/config.el
index 1e6d9973b..a6a2d2ca3 100644
--- a/layers/+emacs/org/config.el
+++ b/layers/+emacs/org/config.el
@@ -77,7 +77,7 @@ are configured.")
 (defvar org-enable-verb-support nil
   "If non-nil, Verb (https://github.com/federicotdn/verb) is configured.")
 
-(defvar org-enable-roam-support nil
+(defvar org-enable-roam-support (when org-enable-roam-server t)
   "If non-nil, org-roam (https://www.orgroam.com/) is configured")
 
 (defvar org-persp-startup-org-file nil
@@ -92,3 +92,6 @@ ATTENTION: `valign-mode' will be laggy working with tables contain more than 100
 
 (defvar org-enable-appear-support nil
   "If non-nil, enable org-appear in org-mode buffers.")
+
+(defvar org-enable-roam-server nil
+  "if non-nil, enable org-roam-server support")
diff --git a/layers/+emacs/org/packages.el b/layers/+emacs/org/packages.el
index bfbf5c3f8..a4c05dc6b 100644
--- a/layers/+emacs/org/packages.el
+++ b/layers/+emacs/org/packages.el
@@ -65,7 +65,8 @@
     (verb :toggle org-enable-verb-support)
     (org-roam :toggle org-enable-roam-support)
     (valign :toggle org-enable-valign)
-    (org-appear :toggle org-enable-appear-support)))
+    (org-appear :toggle org-enable-appear-support)
+    (org-roam-server :require org-roam :toggle org-enable-roam-server)))
 
 (defun org/post-init-company ()
   (spacemacs|add-company-backends :backends company-capf :modes org-mode))
@@ -1003,3 +1004,11 @@ Headline^^            Visit entry^^               Filter^^                    Da
       (setq org-appear-autolinks t
             org-appear-autoemphasis t
             org-appear-autosubmarkers t))))
+
+(defun org/init-org-roam-server()
+  (use-package org-roam-server
+    :defer t
+    :init
+    (progn
+      (spacemacs/set-leader-keys "aors" 'org-roam-server-mode)
+      (spacemacs/set-leader-keys-for-major-mode 'org-mode "rs" 'org-roam-server-mode))))