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

Merge branch 'whiteboards' into feat/whiteboards-create-button

Browse Source
This commit is contained in:
Konstantinos Kaloutas
2022-09-19 10:34:40 +03:00
parent 7bd31def16 4e02650268
commit 3e74e715a1
49 changed files with 1613 additions and 1094 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
src/main/frontend/handler/whiteboard.cljs
View File

@@ -34,10 +34,6 @@
[]
js/window.tln)
(defn get-tldr-api
[]
(when (get-tldr-app) js/tln.api))
(defn tldraw-idle?
"return true when tldraw is active and idle. nil when tldraw is
not active."
@@ -171,24 +167,24 @@
(create-new-whiteboard-page! page-name))
(create-new-whiteboard-page! nil))))
(defn ->logseq-portal-shape
[block-id point]
{:blockType "B"
:id (str (d/squuid))
:compact true
:pageId (str block-id)
:point point
:size [400, 0]
:type "logseq-portal"})
;; (defn ->logseq-portal-shape
;; [block-id point]
;; {:blockType "B"
;; :id (str (d/squuid))
;; :compact true
;; :pageId (str block-id)
;; :point point
;; :size [400, 0]
;; :type "logseq-portal"})
(defn add-new-block-portal-shape!
"Given the block uuid and the point, add a new shape to the referenced block."
[block-uuid client-x client-y]
(let [api (get-tldr-api)
point (js->clj (.. (get-tldr-app) -viewport (getPagePoint #js[client-x client-y])))
shape (->logseq-portal-shape block-uuid point)]
(editor-handler/set-blocks-id! [block-uuid])
(.createShapes api (clj->js shape))))
;; (defn add-new-block-portal-shape!
;; "Given the block uuid and the point, add a new shape to the referenced block."
;; [block-uuid client-x client-y]
;; (let [api (get-tldr-api)
;; point (js->clj (.. (get-tldr-app) -viewport (getPagePoint #js[client-x client-y])))
;; shape (->logseq-portal-shape block-uuid point)]
;; (editor-handler/set-blocks-id! [block-uuid])
;; (.createShapes api (clj->js shape))))
(defn- get-whiteboard-blocks
"Given a page, return all the logseq blocks (exlude all shapes)"