clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-05 19:36:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: convert remaining built-in :string props to :default

Browse Source
This commit is contained in:
Gabriel Horner
2024-05-16 11:21:49 -04:00
parent d5fc88cbd4
commit 43dfdbe0ae
6 changed files with 56 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/main/frontend/worker/handler/page.cljs
View File

@@ -13,7 +13,9 @@
[logseq.db.frontend.content :as db-content]
[medley.core :as medley]
[frontend.worker.date :as date]
[logseq.db.frontend.order :as db-order]))
[logseq.db.frontend.order :as db-order]
[logseq.db.frontend.property.util :as db-property-util]
[logseq.db.frontend.property.build :as db-property-build]))
(defn properties-block
[repo conn config date-formatter properties format page]
@@ -39,10 +41,24 @@
(:db/id (d/entity @conn [:block/uuid %])))
tags)}))]
(if (sqlite-util/db-based-graph? repo)
[(merge page'
;; FIXME: Add refs for properties?
properties
(when class? {:block/type "class"}))]
(let [property-vals-tx-m
;; Builds property values for built-in :one properties like logseq.property.pdf/file
(->> properties
(keep (fn [[k v]]
(when (db-property-util/built-in-has-ref-value? k)
[k
(db-property-build/build-property-value-block {:db/id page-entity} k v)])))
(into {}))]
(cond-> [(merge page'
(when class? {:block/type "class"}))]
(seq property-vals-tx-m)
(into (vals property-vals-tx-m))
true
(conj (merge {:block/uuid (:block/uuid page)}
;; FIXME: Add refs for properties?
properties
;; Replace property values with their refs
(update-vals property-vals-tx-m #(vector :block/uuid (:block/uuid %)))))))
(let [file-page (merge page'
(when (seq properties) {:block/properties properties}))]
(if (and (seq properties)