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

refactor: remove web

Browse Source
This commit is contained in:
Tienson Qin
2020-10-27 23:19:40 +08:00
parent 3d1c809020
commit 2d1fa33204
118 changed files with 0 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
src/main/frontend/components/block.cljs Normal file
View File

@@ -0,0 +1,46 @@
(ns frontend.components.block
(:require [frontend.db :as db]
[frontend.handler.editor :as editor]
[frontend.util :as util]
[clojure.string :as string]
[frontend.text :as text]
[reitit.frontend.easy :as rfe]))
(defn block-parents
([repo block-id format]
(block-parents repo block-id format true))
([repo block-id format show-page?]
(let [parents (db/get-block-parents repo block-id 3)
page (db/get-block-page repo block-id)
page-name (:page/name page)]
(when (or (seq parents)
show-page?
page-name)
(let [parents-atom (atom parents)
component [:div.block-parents.flex-row.flex
(when show-page?
[:a {:href (rfe/href :page {:name (util/encode-str page-name)})}
(or (:page/original-name page)
(:page/name page))])
(when (and show-page? (seq parents))
[:span.mx-2.opacity-50 "➤"])
(when (seq parents)
(let [parents (for [{:block/keys [uuid content]} parents]
(let [title (->> (take 24
(-> (string/split content #"\n")
first
(text/remove-level-spaces format)))
(apply str))]
(when (and (not (string/blank? title))
(not= (string/lower-case page-name) (string/lower-case title)))
[:a {:href (rfe/href :page {:name uuid})}
title])))
parents (remove nil? parents)]
(reset! parents-atom parents)
(when (seq parents)
(interpose [:span.mx-2.opacity-50 "➤"]
parents))))]]
(when (or (seq @parents-atom) show-page?)
component))))))