mirror of https://github.com/logseq/logseq
parent
e2101e9791
commit
2c51982a6b
|
@ -79,9 +79,9 @@
|
|||
:block/path-refs block-path-ref-pages))))
|
||||
blocks)
|
||||
page-entity (let [page-file? (= page (string/lower-case file))
|
||||
aliases (and (:alias properties)
|
||||
(seq (remove #(= page %)
|
||||
(:alias properties))))
|
||||
alias (:alias properties)
|
||||
alias (if (string? alias) [alias] alias)
|
||||
aliases (and alias (seq (remove #(= page %) alias)))
|
||||
page-list (when-let [list-content (:list properties)]
|
||||
(extract-page-list list-content))]
|
||||
(cond->
|
||||
|
@ -113,8 +113,9 @@
|
|||
aliases))
|
||||
|
||||
(:tags properties)
|
||||
(assoc :block/tags (let [tags (->> (:tags properties)
|
||||
(remove string/blank?))]
|
||||
(assoc :block/tags (let [tags (:tags properties)
|
||||
tags (if (string? tags) [tags] tags)
|
||||
tags (remove string/blank? tags)]
|
||||
(swap! ref-tags set/union (set tags))
|
||||
(map (fn [tag] {:block/name (string/lower-case tag)
|
||||
:block/original-name tag})
|
||||
|
|
Loading…
Reference in New Issue