From d0819aeffbb484975fa7af95911e1d55311faacd Mon Sep 17 00:00:00 2001
From: Leo Vivier <zaephon@gmail.com>
Date: Wed, 29 Apr 2020 06:08:42 +0200
Subject: [PATCH] (feat) implement org-roam-find-index (#513)

---
 doc/configuration.md | 15 +++++++++++++++
 org-roam.el          | 45 ++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 60 insertions(+)

diff --git a/doc/configuration.md b/doc/configuration.md
index 0e5c2e1..c1a2140 100644
--- a/doc/configuration.md
+++ b/doc/configuration.md
@@ -77,6 +77,21 @@ Org-roam files are created and prefilled using Org-roam's templating
 system. The templating system is customizable, and the system is
 described in detail in the [Org-roam Template](templating.md) page.
 
+### Index
+
+As your collection grows, you might want to create an index where you keep
+links to your main files.
+
+In Org-roam, you can define the path to your index file by setting `org-roam-index-file`.
+
+```emacs-lisp
+(setq org-roam-index-file "index.org")
+```
+
+You can then bind `org-roam-find-index` in your configuration to access it (see [Basic Install and
+Configuration](installation.md/#basic-install-and-configuration) to review how
+to set key-bindings).
+
 ### Encryption
 
 Encryption (via GPG) can be enabled for all new files by setting
diff --git a/org-roam.el b/org-roam.el
index cfdc168..bd8fd67 100644
--- a/org-roam.el
+++ b/org-roam.el
@@ -395,6 +395,51 @@ which takes as its argument an alist of path-completions.  See
   (interactive)
   (find-file org-roam-directory))
 
+;;;; org-roam-find-index
+(defcustom org-roam-index-file nil
+  "Path to the Org-roam index file.
+The path can be a string or a function.  If it is a string, it
+should be the path (absolute or relative to `org-roam-directory')
+to the index file.  If it is is a function, the function should
+return the path to the index file.  Otherwise, the index is
+assumed to be a note in `org-roam-directory' whose title is
+'Index'."
+  :type '(choice
+          (string :tag "Path to index" "%s")
+          (function :tag "Function to generate the path"))
+  :group 'org-roam)
+
+(defun org-roam--get-index-path ()
+  "Return the path to the index in `org-roam-directory'.
+The path to the index can be defined in `org-roam-index-file'.
+Otherwise, it is assumed to be a note in `org-roam-directory'
+whose title is 'Index'."
+  (let* ((index org-roam-index-file)
+         (path (pcase index
+                 ((pred functionp) (funcall index))
+                 ((pred stringp) index)
+                 ('nil (user-error "You need to set `org-roam-index-file' before you can jump to it"))
+                 (wrong-type (signal 'wrong-type-argument
+                                     `((functionp stringp)
+                                       ,wrong-type))))))
+    (if (f-relative-p index)
+        (concat (file-truename org-roam-directory) path)
+      index)))
+
+(defun org-roam-find-index ()
+  "Find the index file in `org-roam-directory'.
+The path to the index can be defined in `org-roam-index-file'.
+Otherwise, the function will look in your `org-roam-directory'
+for a note whose title is 'Index'.  If it does not exist, the
+command will offer you to create one."
+  (interactive)
+  (let ((index (org-roam--get-index-path)))
+    (if (and index
+             (file-exists-p index))
+        (find-file index)
+      (when (y-or-n-p "Index file does not exist.  Would you like to create it? ")
+        (org-roam-find-file "Index")))))
+
 ;;;; org-roam-find-ref
 (defun org-roam--get-ref-path-completions ()
   "Return a list of cons pairs for refs to absolute path of Org-roam files."