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

feat(gesture): swipe right to indent block

Browse Source
This commit is contained in:
llcc
2022-04-25 17:13:22 +08:00
parent 6edb8e09b0
commit 3d881a86ce
2 changed files with 47 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -1,12 +1,15 @@
(ns frontend.handler.block
(:require [clojure.set :as set]
[clojure.walk :as walk]
[frontend.db :as db]
[frontend.db.model :as db-model]
[frontend.db.react :as react]
[frontend.state :as state]
[frontend.format.block :as block]
[frontend.util :as util]))
(:require
[clojure.set :as set]
[clojure.walk :as walk]
[frontend.db :as db]
[frontend.db.model :as db-model]
[frontend.db.react :as react]
[frontend.format.block :as block]
[frontend.modules.outliner.core :as outliner-core]
[frontend.modules.outliner.transaction :as outliner-tx]
[frontend.state :as state]
[frontend.util :as util]))
;; Fns
@@ -114,3 +117,9 @@
(fn [result]
(->> (concat result more-data)
(util/distinct-by :db/id))))))
(defn indent-outdent-block!
[block direction]
(outliner-tx/transact!
{:outliner-op :move-blocks}
(outliner-core/indent-outdent-blocks! [block] (= direction :right))))