mirror of
https://github.com/logseq/logseq.git
synced 2026-04-29 08:26:40 +00:00
5ace647ca3
* fix(react): fix react warning * fix(foldeable): browser complains * fix(react): fix effects
105 lines
4.6 KiB
Clojure
105 lines
4.6 KiB
Clojure
(ns frontend.components.reference
|
|
(:require [rum.core :as rum]
|
|
[frontend.util :as util]
|
|
[frontend.state :as state]
|
|
[clojure.string :as string]
|
|
[frontend.db :as db]
|
|
[frontend.components.block :as block]
|
|
[frontend.ui :as ui]
|
|
[frontend.components.content :as content]
|
|
[frontend.date :as date]
|
|
[frontend.components.editor :as editor]
|
|
[frontend.db-mixins :as db-mixins]
|
|
[clojure.string :as string]))
|
|
|
|
(rum/defc references < rum/reactive db-mixins/query
|
|
[page-name marker? priority?]
|
|
(when page-name
|
|
(let [block? (util/uuid-string? page-name)
|
|
block-id (and block? (uuid page-name))
|
|
page-name (string/lower-case page-name)
|
|
journal? (date/valid-journal-title? (string/capitalize page-name))
|
|
ref-blocks (cond
|
|
priority?
|
|
(db/get-blocks-by-priority (state/get-current-repo) page-name)
|
|
|
|
marker?
|
|
(db/get-marker-blocks (state/get-current-repo) page-name)
|
|
block-id
|
|
(db/get-block-referenced-blocks block-id)
|
|
:else
|
|
(db/get-page-referenced-blocks page-name))
|
|
scheduled-or-deadlines (if journal?
|
|
(db/get-date-scheduled-or-deadlines (string/capitalize page-name))
|
|
nil)
|
|
n-ref (count ref-blocks)]
|
|
(when (or (> n-ref 0)
|
|
(seq scheduled-or-deadlines))
|
|
[:div.references.mt-6.flex-1.flex-row
|
|
[:div.content
|
|
(when (seq scheduled-or-deadlines)
|
|
(ui/foldable
|
|
[:h2.font-bold.opacity-50 (let []
|
|
"SCHEDULED AND DEADLINE")]
|
|
[:div.references-blocks.mb-6
|
|
(let [ref-hiccup (block/->hiccup scheduled-or-deadlines
|
|
{:id (str page-name "-agenda")
|
|
:start-level 2
|
|
:ref? true
|
|
:group-by-page? true
|
|
:editor-box editor/box}
|
|
{})]
|
|
(content/content page-name
|
|
{:hiccup ref-hiccup}))]))
|
|
|
|
(ui/foldable
|
|
[:h2.font-bold.opacity-50 (let []
|
|
(str n-ref " Linked References"))]
|
|
[:div.references-blocks
|
|
(let [ref-hiccup (block/->hiccup ref-blocks
|
|
{:id page-name
|
|
:start-level 2
|
|
:ref? true
|
|
:breadcrumb-show? true
|
|
:group-by-page? true
|
|
:editor-box editor/box}
|
|
{})]
|
|
(content/content page-name
|
|
{:hiccup ref-hiccup}))])]]))))
|
|
|
|
(rum/defcs unlinked-references-aux
|
|
< rum/reactive db-mixins/query
|
|
{:will-mount (fn [state]
|
|
(let [[page-name n-ref] (:rum/args state)
|
|
ref-blocks (db/get-page-unlinked-references page-name)]
|
|
(reset! n-ref (count ref-blocks))
|
|
(assoc state ::ref-blocks ref-blocks)))}
|
|
[state page-name n-ref]
|
|
(let [ref-blocks (::ref-blocks state)]
|
|
[:div.references-blocks
|
|
(let [ref-hiccup (block/->hiccup ref-blocks
|
|
{:id (str page-name "-unlinked-")
|
|
:start-level 2
|
|
:ref? true
|
|
:group-by-page? true
|
|
:editor-box editor/box}
|
|
{})]
|
|
(content/content page-name
|
|
{:hiccup ref-hiccup}))]))
|
|
|
|
(rum/defcs unlinked-references < rum/reactive
|
|
(rum/local nil ::n-ref)
|
|
[state page-name]
|
|
(let [n-ref (get state ::n-ref)]
|
|
(when page-name
|
|
(let [page-name (string/lower-case page-name)]
|
|
[:div.references.mt-6.flex-1.flex-row
|
|
[:div.content.flex-1
|
|
(ui/foldable
|
|
[:h2.font-bold {:style {:opacity "0.3"}}
|
|
(if @n-ref
|
|
(str @n-ref " Unlinked References")
|
|
"Unlinked References")]
|
|
(fn [] (unlinked-references-aux page-name n-ref))
|
|
true)]]))))
|