feat: first working poc for whiteboard as page

This commit is contained in:
Peng Xiao
2022-07-20 02:04:18 +08:00
parent 5c8d6e8c46
commit 1ce9017c5d
8 changed files with 69 additions and 41 deletions

View File

@@ -54,9 +54,12 @@
:push push})))
(defn redirect-to-whiteboard!
[name]
(redirect! {:to :whiteboard
:path-params {:name (str name)}}))
([name]
(redirect-to-whiteboard! name false))
([name new?]
(redirect! {:to :whiteboard
:path-params {:name (str name)}
:query-params (when new? {:new? 1})})))
(defn get-title
[name path-params]