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

fix: extract both page and block refs from properties

Browse Source
This commit is contained in:
Tienson Qin
2023-07-14 11:41:15 +08:00
parent 6e16f2b073
commit 41ee9960da
3 changed files with 78 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/main/frontend/format/block.cljs
View File

@@ -11,7 +11,8 @@
[logseq.graph-parser.block :as gp-block]
[logseq.graph-parser.property :as gp-property]
[logseq.graph-parser.mldoc :as gp-mldoc]
[lambdaisland.glogi :as log]))
[lambdaisland.glogi :as log]
[frontend.util :as util]))
(defn extract-blocks
"Wrapper around logseq.graph-parser.block/extract-blocks that adds in system state
@@ -39,6 +40,22 @@ and handles unexpected failure."
([original-page-name with-id? with-timestamp?]
(gp-block/page-name->map original-page-name with-id? (db/get-db (state/get-current-repo)) with-timestamp? (state/get-date-formatter))))
(def ^:private gp-mldoc-config (gp-mldoc/default-config :markdown))
(defn extract-refs-from-text
[text]
(when (string? text)
(let [ast-refs (gp-mldoc/get-references text gp-mldoc-config)
page-refs (map #(gp-block/get-page-reference % :markdown) ast-refs)
block-refs (map #(gp-block/get-block-reference %) ast-refs)
refs' (->> (concat page-refs block-refs)
(remove string/blank?)
distinct)]
(-> (map #(if (util/uuid-string? %)
{:block/uuid (uuid %)}
(page-name->map % true)) refs')
set))))
(defn- normalize-as-percentage
[block]
(some->> block