clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-27 06:04:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

Address Review Feedback

Browse Source 
- Fixed new page name not being cleared
- Clarified some fn and parameter names
- Added test for reload page w/ title:: property change
This commit is contained in:
Matt Tracy
2022-11-18 15:35:29 -08:00
parent be7e37e924
commit 2848d101b0
2 changed files with 56 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
src/main/frontend/handler/common/file.cljs
View File

@@ -20,7 +20,7 @@
(when (not= file current-file)
current-file))))
(defn- get-clear-blocks-tx
(defn- retract-blocks-tx
[blocks retain-uuids]
(let [tx-for-block (fn [block] (let [{uuid :block/uuid eid :db/id} block
should-retain? (and uuid (contains? retain-uuids uuid))]
@@ -32,23 +32,31 @@
(mapcat tx-for-block (distinct blocks)))
)
(defn- get-clear-block-tx
"Returns the transactional operations to clear blocks belonging to the given
page and file.
(defn- retract-file-blocks-tx
"Returns the transactional operations to retract blocks belonging to the
given page name and file path. This function is required when a file is being
parsed from disk; before saving the parsed, blocks from the previous version
of that file need to be retracted.
The 'Page' parsed from the new file version is passed separately from the
file-path, as the page name can be set via properties in the file, and thus
can change between versions. If it has changed, existing blocks for both the
old and new page name will be retracted.
Blocks are by default fully deleted via retractEntity. However, a collection
Blocks are by default fully cleared via retractEntity. However, a collection
of block UUIDs to retain can be passed, and any blocks with matching uuids
will instead have their attributes cleared individually via
'retractAttribute'. This will preserve block references to the retained
UUIDs."
[repo-url first-page file retain-uuid-blocks]
(let [pages-to-clear (filter some? [(db/get-file-page file) file])
[repo-url file-page file-path retain-uuid-blocks]
(let [existing-file-page (db/get-file-page file-path)
pages-to-clear (distinct (filter some? [existing-file-page (:block/name file-page)]))
blocks (mapcat (fn [page] (db/get-page-blocks-no-cache repo-url page {:pull-keys [:db/id :block/uuid]})) pages-to-clear)
retain-uuids (if (seq retain-uuid-blocks) (set (filter some? (map :block/uuid retain-uuid-blocks))) [])
tx (get-clear-blocks-tx blocks retain-uuids)]
(when-let [current-file (page-exists-in-another-file repo-url first-page file)]
(when (not= file current-file)
(let [error (str "Page already exists with another file: " current-file ", current file: " file)]
tx (retract-blocks-tx blocks retain-uuids)]
(when-let [current-file (page-exists-in-another-file repo-url file-page file-path)]
(when (not= file-path current-file)
(let [error (str "Page already exists with another file: " current-file ", current file: " file-path)]
(state/pub-event! [:notification/show
{:content error
:status :error
@@ -84,7 +92,7 @@
new? (nil? (db/entity [:file/path file]))
options (merge (dissoc options :verbose)
{:new? new?
:delete-blocks-fn (partial get-clear-block-tx repo-url)
:delete-blocks-fn (partial retract-file-blocks-tx repo-url)
:extract-options (merge
{:user-config (state/get-config)
:date-formatter (state/get-date-formatter)

49
src/test/frontend/db/model_test.cljs
View File

@@ -141,19 +141,42 @@
(deftest refs-to-page-maintained-on-reload
(testing
"Refs to blocks on a page are retained if that page is reload."
(let [ test-uuid "16c90195-6a03-4b3f-839d-095a496d9acd"
target-page-content (str "first line\n- target block\n id:: " test-uuid)
referring-page-content (str "first line\n- " (block-ref/->block-ref test-uuid))]
(load-test-files [{:file/path "pages/target.md"
:file/content target-page-content}
{:file/path "pages/referrer.md"
:file/content referring-page-content}])
(is (= (model/get-all-referenced-blocks-uuid) [(parse-uuid test-uuid)]))
(load-test-files [{:file/path "pages/target.md"
:file/content target-page-content}])
(is (= (model/get-all-referenced-blocks-uuid) [(parse-uuid test-uuid)]))
)))
(let [ test-uuid "16c90195-6a03-4b3f-839d-095a496d9acd"
target-page-content (str "- target block\n id:: " (block-ref/->block-ref test-uuid))
referring-page-content (str "- " (block-ref/->block-ref test-uuid))]
(load-test-files [{:file/path "pages/target.md"
:file/content target-page-content}
{:file/path "pages/referrer.md"
:file/content referring-page-content}])
(is (= (model/get-all-referenced-blocks-uuid) [(parse-uuid test-uuid)]))
(load-test-files [{:file/path "pages/target.md"
:file/content target-page-content}])
(is (= (model/get-all-referenced-blocks-uuid) [(parse-uuid test-uuid)]))
)))
(deftest reload-file-with-page-rename
(testing
"Reload a file when the disk contents result in the file having a new page name."
(let [ test-uuid "16c90195-6a03-4b3f-839d-095a496d9efc"
target-page-content (str "- target block\n id:: " (block-ref/->block-ref test-uuid))
referring-page-content (str "- " (block-ref/->block-ref test-uuid))
update-referring-page-content (str "title:: updatedPage\n- " (block-ref/->block-ref test-uuid))
get-page-block-count (fn [page-name] (let [page-id (:db/id (model/get-page page-name))]
(if (some? page-id)
(model/get-page-blocks-count test-helper/test-db page-id)
0)))]
(load-test-files [{:file/path "pages/target.md"
:file/content target-page-content}
{:file/path "pages/referrer.md"
:file/content referring-page-content}])
(is (= [(parse-uuid test-uuid)] (model/get-all-referenced-blocks-uuid)))
(is (= 1 (get-page-block-count "referrer")))
(is (= 0 (get-page-block-count "updatedPage")))
(load-test-files [{:file/path "pages/referrer.md"
:file/content update-referring-page-content}])
(is (= (model/get-all-referenced-blocks-uuid) [(parse-uuid test-uuid)]))
(is (= 0 (get-page-block-count "referrer")))
(is (= 2 (get-page-block-count "updatedPage")))
)))
#_(cljs.test/test-ns 'frontend.db.model-test)