fix(editor): can't enter to create a new block at the end of code

pull/1074/head
Tienson Qin 2021-01-05 19:38:51 +08:00
parent b0a6700ab9
commit 190ef803e4
1 changed files with 11 additions and 8 deletions

View File

@ -449,13 +449,13 @@
(mldoc/parse-properties value format)])
page-tags (when-let [tags (:tags new-properties)]
(mapv (fn [tag] {:page/name (string/lower-case tag)
:page/original-name tag}) tags))
:page/original-name tag}) tags))
page-alias (when-let [alias (:alias new-properties)]
(map
(fn [alias]
{:page/original-name alias
:page/name (string/lower-case alias)})
(remove #{(:page/name page)} alias)))
(fn [alias]
{:page/original-name alias
:page/name (string/lower-case alias)})
(remove #{(:page/name page)} alias)))
permalink-changed? (when (and pre-block? (:permalink old-properties))
(not= (:permalink old-properties)
(:permalink new-properties)))
@ -663,8 +663,11 @@
text-properties)
value (if create-new-block?
(str
(block-text-with-time block format fst-block-text properties)
snd-block-text)
(->
(block-text-with-time block format fst-block-text properties)
(string/trimr))
"\n"
(string/triml snd-block-text))
(block-text-with-time block format value properties))
value (rebuild-block-content value format)
[new-content value] (new-file-content block file-content value)
@ -1158,7 +1161,7 @@
(if (string/starts-with? (string/lower-case line) key)
new-line
line))
lines)
lines)
new-lines (if (not= lines new-lines)
new-lines
(cons (first new-lines) ;; title