From 1c044cc08689c54d79e015e6ca800ab63a1ee62c Mon Sep 17 00:00:00 2001
From: Daniel Borchmann <daniel@algebra20.de>
Date: Fri, 28 Aug 2020 20:12:29 +0200
Subject: [PATCH] Add stub configuration for org-roam

Just trying it out.  More configuration may follow.
---
 init.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/init.el b/init.el
index 8585fc5..83e3f97 100644
--- a/init.el
+++ b/init.el
@@ -126,6 +126,11 @@
   ;; separate `helm-command-prefix-key' mechanism.
   (require 'helm)
 
+  (when (package-installed-p 'org-roam)
+    (if (executable-find "sqlite3")
+        (org-roam-mode +1)
+      (warn "Cannot activate org-roam: sqlite3 not found.")))
+
   ;; Global Hooks
 
   (add-hook 'minibuffer-setup-hook 'conditionally-enable-lispy)
@@ -191,6 +196,8 @@
   (bind-key "C-c m" #'music-control/body)
   (bind-key "C-c o" #'hydra-org-clock/body)
   (bind-key "C-c s" #'synonyms)
+  (bind-key "C-c n i" #'org-roam-insert)
+  (bind-key "C-c n I" #'org-roam-insert-immediate)
   (bind-key "C-h C-f" #'find-function)
   (bind-key "C-h C-k" #'find-function-on-key)
   (bind-key "M-i" #'swiper-from-isearch isearch-mode-map)
@@ -2674,6 +2681,14 @@ With given ARG, display files in `db/important-document-path’."
              mc/mark-previous-like-this
              mc/mark-all-like-this))
 
+(use-package org-roam
+  :commands (org-roam-find-file)
+  :custom (org-roam-directory "~/Documents/zettelkasten/")
+  :bind (:map org-roam-mode-map
+              (("C-c n l" . org-roam)
+               ("C-c n f" . org-roam-find-file)
+               ("C-c n g" . org-roam-graph-show))))
+
 (use-package org-ref
   :defer t
   :config (progn