Skip to content

Insert records with uuid entity #7

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
verberktstan wants to merge 2 commits into
base: main
Choose a base branch
from
Open

Insert records with uuid entity #7

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
c2859c5
Ensure entity to be uuid for inserted items
verberktstan Jun 9, 2026
33b9e1b
Fix delimiting paren
verberktstan Jun 9, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 5 additions & 1 deletion src/bitten/db.clj
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -51,14 +51,18 @@

(def changed-and-retracted (juxt :changed :retracted))

(defn- ensure-entity [{:db/keys [entity] :as record}]
(cond-> record (not entity) (assoc :db/entity (str (random-uuid)))))

(defn upsert!
"Writes only changed facts from records to backend. Returns tx-id or nil.
(upsert! db [{:db/entity \"user/1\" :name \"Alice\"}])
:missing-keys — :ignore (default) leaves absent attributes untouched;
:retract removes them."
([backend records] (upsert! backend records nil))
([backend records {:keys [missing-keys] :or {missing-keys :ignore}}]
(let [entities (into #{} (map :db/entity records))
(let [records (map ensure-entity records)
entities (into #{} (map :db/entity records))
current-idx (->> {:entities entities} (query backend) index-by-entity)
facts (for [{:db/keys [entity] :as record} records
:let [existing (get current-idx entity {})
Expand Down
Loading