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

fix: lint and test

Browse Source
This commit is contained in:
Tienson Qin
2025-03-31 22:38:34 +08:00
parent 1aca680ae4
commit 5923f24f56
29 changed files with 68 additions and 273 deletions
Download Patch File Download Diff File Expand all files Collapse all files

93
src/main/frontend/handler/block.cljs
View File

@@ -1,30 +1,28 @@
(ns ^:no-doc frontend.handler.block
(:require
[clojure.set :as set]
[clojure.string :as string]
[clojure.walk :as walk]
[datascript.impl.entity :as de]
[dommy.core :as dom]
[frontend.config :as config]
[frontend.db :as db]
[frontend.db.async :as db-async]
[frontend.db.model :as db-model]
[frontend.handler.file-based.property.util :as property-util]
[frontend.handler.property.util :as pu]
[frontend.mobile.haptics :as haptics]
[frontend.modules.outliner.op :as outliner-op]
[frontend.modules.outliner.ui :as ui-outliner-tx]
[frontend.state :as state]
[frontend.util :as util]
[frontend.util.file-based.drawer :as drawer]
[goog.dom :as gdom]
[goog.object :as gobj]
[logseq.db :as ldb]
[logseq.db.sqlite.util :as sqlite-util]
[logseq.graph-parser.block :as gp-block]
[logseq.outliner.core :as outliner-core]
[logseq.outliner.op]
[promesa.core :as p]))
(:require [clojure.string :as string]
[clojure.walk :as walk]
[datascript.impl.entity :as de]
[dommy.core :as dom]
[frontend.config :as config]
[frontend.db :as db]
[frontend.db.async :as db-async]
[frontend.db.model :as db-model]
[frontend.handler.file-based.property.util :as property-util]
[frontend.handler.property.util :as pu]
[frontend.mobile.haptics :as haptics]
[frontend.modules.outliner.op :as outliner-op]
[frontend.modules.outliner.ui :as ui-outliner-tx]
[frontend.state :as state]
[frontend.util :as util]
[frontend.util.file-based.drawer :as drawer]
[goog.dom :as gdom]
[goog.object :as gobj]
[logseq.db :as ldb]
[logseq.db.sqlite.util :as sqlite-util]
[logseq.graph-parser.block :as gp-block]
[logseq.outliner.core :as outliner-core]
[logseq.outliner.op]
[promesa.core :as p]))
;; Fns
@@ -72,49 +70,6 @@
(when (seq blocks)
(state/exit-editing-and-set-selected-blocks! blocks))))
(defn get-blocks-refed-pages
[aliases [block & children]]
(let [children-refs (mapcat :block/refs children)
refs (->>
(:block/path-refs block)
(concat children-refs)
(remove #(aliases (:db/id %))))]
(keep (fn [ref]
(when (:block/name ref)
{:db/id (:db/id ref)
:block/name (:block/name ref)
:block/title (:block/title ref)})) refs)))
(defn filter-blocks
[ref-blocks filters]
(if (empty? filters)
ref-blocks
(let [exclude-ids (set (map :db/id (:excluded filters)))
include-ids (set (map :db/id (:included filters)))]
(cond->> ref-blocks
(seq exclude-ids)
(remove (fn [block]
(let [ids (set (map :db/id (:block/path-refs block)))]
(seq (set/intersection exclude-ids ids)))))
(seq include-ids)
(filter (fn [block]
(let [ids (set (map :db/id (:block/path-refs block)))]
(set/subset? include-ids ids))))))))
(defn get-filtered-ref-blocks-with-parents
[all-ref-blocks filtered-ref-blocks]
(when (seq filtered-ref-blocks)
(let [id->block (zipmap (map :db/id all-ref-blocks) all-ref-blocks)
get-parents (fn [block]
(loop [block block
result [block]]
(let [parent (id->block (:db/id (:block/parent block)))]
(if (and parent (not= (:db/id parent) (:db/id block)))
(recur parent (conj result parent))
result))))]
(distinct (mapcat get-parents filtered-ref-blocks)))))
(defn get-idx-of-order-list-block
[block order-list-type]
(let [order-block-fn? (fn [block]