From db8d043b274e60e01d5c43246aab3778ad40f49a Mon Sep 17 00:00:00 2001
From: Richard Newman <rnewman@twinql.com>
Date: Fri, 12 Aug 2016 16:08:47 -0700
Subject: [PATCH] Places import: add a title import function to exercise lookup
 refs.

---
 src/datomish/places/import.cljc | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/src/datomish/places/import.cljc b/src/datomish/places/import.cljc
index f836f385..03eea7fc 100644
--- a/src/datomish/places/import.cljc
+++ b/src/datomish/places/import.cljc
@@ -64,6 +64,23 @@
               :page/title title
               :page/visitAt visits)))
 
+(defn import-titles [conn places-connection]
+  (go-pair
+    (let [rows
+          (<?
+            (s/all-rows
+              places-connection
+              ["SELECT DISTINCT p.title AS title, p.guid
+               FROM moz_places AS p
+               WHERE p.title IS NOT NULL AND p.hidden = 0 LIMIT 10"]))]
+      (<?
+        (transact/<transact!
+          conn
+          (map (fn [row]
+                 {:db/id [:page/guid (:guid row)]
+                  :page/title (:title row)})
+               rows))))))
+
 (defn import-places [conn places-connection]
   (go-pair
     ;; Ensure schema fragment is in place, even though it may cost a (mostly empty) transaction.
@@ -83,6 +100,12 @@
           conn
           (map place->entity (group-by :id rows)))))))
 
+(defn import-titles-from-path [db places]
+  (go-pair
+    (let [conn (transact/connection-with-db db)
+          pdb (<? (s/<sqlite-connection places))]
+      (import-titles conn pdb))))
+
 (defn import-places-from-path [db places]
   (go-pair
     (let [conn (transact/connection-with-db db)