clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-04-26 07:05:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

Org-roam integration

Browse Source 
Also add page aliases support
This commit is contained in:
Tienson Qin
2020-05-20 12:21:17 +08:00
parent 3d20c4f702
commit 986bb201c7
11 changed files with 251 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
web/src/main/frontend/format/block.cljs
View File

@@ -14,14 +14,20 @@
(vector? block)
(= "Heading" (first block))))
(defn page-reference-block?
(defn get-page-reference
[block]
(and
(vector? block)
(= "Link" (first block))
(= "Search" (first (:url (second block))))
(not (contains? #{\# \*} (first (second (:url (second block))))))
))
(when (and (vector? block) (= "Link" (first block)))
(let [typ (first (:url (second block)))]
(or
(and
(= typ "Search")
(not (contains? #{\# \*} (first (second (:url (second block))))))
(second (:url (second block))))
(and
(= typ "Complex")
(= (:protocol (second (:url (second block)))) "file")
(:link (second (:url (second block)))))))))
(defn task-block?
[block]
@@ -76,7 +82,7 @@
[tags]
(mapv (fn [tag]
{:db/id tag
:tag/name tag})
:tag/name (string/lower-case tag)})
tags))
(defn with-refs
@@ -84,9 +90,8 @@
(let [ref-pages (atom [])]
(walk/postwalk
(fn [form]
(when (page-reference-block? form)
(let [page (second (:url (second form)))]
(swap! ref-pages conj (string/capitalize page))))
(when-let [page (get-page-reference form)]
(swap! ref-pages conj (string/lower-case page)))
form)
(concat title children))
(assoc heading :ref-pages (vec @ref-pages))))
@@ -201,7 +206,7 @@
{:heading/ref-pages
(mapv
(fn [page]
(let [page-name (string/capitalize page)
(let [page-name (string/lower-case page)
page {:page/name page-name}]
(swap! ref-pages-atom conj page)
page))