|
|
@@ -86,8 +86,11 @@
|
|
|
delete-file-tx (when file
|
|
|
[[:db.fn/retractEntity [:file/path file-path]]])
|
|
|
delete-property-tx (when (ldb/property? page)
|
|
|
- (let [datoms (d/datoms @conn :avet (:db/ident page))]
|
|
|
- (map (fn [d] [:db/retract (:e d) (:a d)]) datoms)))
|
|
|
+ (concat
|
|
|
+ (let [datoms (d/datoms @conn :avet (:db/ident page))]
|
|
|
+ (map (fn [d] [:db/retract (:e d) (:a d)]) datoms))
|
|
|
+ (map (fn [d] [:db/retractEntity (:e d)])
|
|
|
+ (d/datoms @conn :avet :logseq.property.history/property (:db/ident page)))))
|
|
|
delete-page-tx (concat (db-refs->page repo page)
|
|
|
delete-property-tx
|
|
|
[[:db.fn/retractEntity (:db/id page)]])
|