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

fix https://github.com/logseq/logseq/issues/2866

Browse Source
This commit is contained in:
leizhe
2021-10-17 14:22:31 +08:00
committed by Tienson Qin
parent bcd6509a9b
commit 9c33cf4b6b
3 changed files with 9 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -337,13 +337,14 @@
value))
(defn wrap-parse-block
[{:block/keys [content format parent left page uuid pre-block? level] :as block}]
[{:block/keys [content format left page uuid level] :as block}]
(let [block (or (and (:db/id block) (db/pull (:db/id block))) block)
properties (:block/properties block)
real-content (:block/content block)
content (if (and (seq properties) real-content (not= real-content content))
(property/with-built-in-properties properties content format)
content)
content (drawer/with-logbook block content)
content (with-timetracking block content)
first-block? (= left page)
ast (mldoc/->edn (string/trim content) (mldoc/default-config format))
@@ -417,9 +418,8 @@
([block value
{:keys [force?]
:as opts}]
(let [{:block/keys [uuid file page format repo content properties]} block
(let [{:block/keys [uuid page format repo content properties]} block
repo (or repo (state/get-current-repo))
e (db/entity repo [:block/uuid uuid])
format (or format (state/get-preferred-format))
page (db/entity repo (:db/id page))
block-id (when (map? properties) (get properties :id))
@@ -838,7 +838,7 @@
(cursor/move-cursor-to current-input new-pos)))))
(defn set-marker
[{:block/keys [uuid marker content format properties] :as block} new-marker]
[{:block/keys [marker content] :as block} new-marker]
(let [new-content (->
(if marker
(string/replace-first content (re-pattern (str "^" marker)) new-marker)