浏览代码

revert unneeded naming change

Konstantinos Kaloutas 2 年之前
父节点
当前提交
4f0e8fffe3
共有 1 个文件被更改,包括 3 次插入3 次删除
  1. 3 3
      src/main/frontend/handler/whiteboard.cljs

+ 3 - 3
src/main/frontend/handler/whiteboard.cljs

@@ -209,13 +209,13 @@
    (create-new-whiteboard-page! nil))
   ([name]
    (let [uuid (or (and name (parse-uuid name)) (d/squuid))
-         page-name (or name (str uuid))]
+         page (or name (str uuid))]
      (db/transact! (get-default-new-whiteboard-tx name (str uuid)))
-     (let [entity (get-whiteboard-entity page-name)
+     (let [entity (get-whiteboard-entity page)
            tx (assoc (select-keys entity [:db/id])
                      :block/uuid uuid)]
        (db-utils/transact! [tx])
-       (let [page-entity (get-whiteboard-entity page-name)]
+       (let [page-entity (get-whiteboard-entity page)]
          (when (and page-entity (nil? (:block/file page-entity)))
            (outliner-file/sync-to-file page-entity)))))))