Places import: add a title import function to exercise lookup refs.
This commit is contained in:
parent
f92e2d9322
commit
2bdf60c8ea
1 changed files with 23 additions and 0 deletions
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue