From f14c75e2ab7a0b07d3a60c14ce4250cb7af50a2e Mon Sep 17 00:00:00 2001
From: Tienson Qin <tiensonqin@gmail.com>
Date: Sat, 9 May 2020 12:19:14 +0800
Subject: [PATCH] Add missing reactive

---
 .../main/frontend/components/reference.cljs   |  2 +-
 web/src/main/frontend/db.cljs                 | 34 ++++++++++---------
 2 files changed, 19 insertions(+), 17 deletions(-)

diff --git a/web/src/main/frontend/components/reference.cljs b/web/src/main/frontend/components/reference.cljs
index eee6c8899..102f41829 100644
--- a/web/src/main/frontend/components/reference.cljs
+++ b/web/src/main/frontend/components/reference.cljs
@@ -13,7 +13,7 @@
             [frontend.config :as config]
             [frontend.db :as db]))
 
-(rum/defc references
+(rum/defc references < rum/reactive
   [page-name]
   (let [page-name (string/capitalize page-name)
         encoded-page-name (util/url-encode page-name)
diff --git a/web/src/main/frontend/db.cljs b/web/src/main/frontend/db.cljs
index 54d328ebf..cbe7d12dc 100644
--- a/web/src/main/frontend/db.cljs
+++ b/web/src/main/frontend/db.cljs
@@ -136,9 +136,10 @@
 
 (defn pull-many
   [selector eids]
-  (posh/pull-many (get-conn (state/get-current-repo) false)
-                  selector
-                  eids))
+  (when-let [conn (get-conn (state/get-current-repo) false)]
+    (posh/pull-many conn
+                    selector
+                    eids)))
 
 ;; (new TextEncoder().encode('foo')).length
 ;; (defn db-size
@@ -686,19 +687,20 @@
 ;; TODO: sorted by last-modified-at
 (defn get-page-referenced-headings
   [page]
-  (let [page-name (string/capitalize page)]
-    (->> (posh/q '[:find ?heading
-                   ;; (pull ?heading [*])
-                   :in $ ?page-name
-                   :where
-                   [?page :page/name ?page-name]
-                   [?heading :heading/ref-pages ?page]]
-           (get-conn (state/get-current-repo) false)
-           page-name)
-         react
-         seq-flatten
-         (pull-many '[*])
-         react)))
+  (when-let [current-repo (state/get-current-repo)]
+    (let [page-name (string/capitalize page)]
+      (->> (posh/q '[:find ?heading
+                     ;; (pull ?heading [*])
+                     :in $ ?page-name
+                     :where
+                     [?page :page/name ?page-name]
+                     [?heading :heading/ref-pages ?page]]
+             (get-conn current-repo false)
+             page-name)
+           react
+           seq-flatten
+           (pull-many '[*])
+           react))))
 
 (defn get-all-headings
   []