greatbody
/
logseq
mirror of https://github.com/logseq/logseq
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

fix(editor): don't add properties for pre-blocks 

Resolved https://github.com/logseq/logseq/issues/614
pull/645/head
Tienson Qin 2020-11-05 15:07:02 +08:00
parent 4f53e43800
commit c707107ae1
1 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/main/frontend/handler/editor.cljs
View File

@ -1032,20 +1032,21 @@
key (string/lower-case (str key))
value (str value)]
(when-let [block (db/pull [:block/uuid block-id])]
(let [{:block/keys [content properties]} block]
(cond
(and (get properties key)
(= (string/trim (get properties key)) value))
nil
(when-not (:block/pre-block? block)
(let [{:block/keys [content properties]} block]
(cond
(and (get properties key)
(= (string/trim (get properties key)) value))
nil
:else
(let [properties (:block/properties block)
properties' (if (seq properties)
(assoc properties key value)
{key value})]
(save-block-if-changed! block content
{:custom-properties properties'
:rebuild-content? false})))))))
:else
(let [properties (:block/properties block)
properties' (if (seq properties)
(assoc properties key value)
{key value})]
(save-block-if-changed! block content
{:custom-properties properties'
:rebuild-content? false}))))))))
(defn set-block-timestamp!
[block-id key value]
@ -1093,7 +1094,9 @@
(defn copy-block-ref!
[block-id]
(set-block-property! block-id "custom_id" (str block-id))
(let [block (db/entity [:block/uuid block-id])]
(when-not (:block/pre-block? block)
(set-block-property! block-id "custom_id" (str block-id))))
(util/copy-to-clipboard! (str block-id)))
(defn clear-selection!