fix: redirect to home when deleting a page

pull/5913/head
Tienson Qin 2022-07-04 20:42:41 +08:00
parent e7c64d3dfd
commit 73a202b3c2
2 changed files with 3 additions and 1 deletions

View File

@ -251,7 +251,8 @@
[original-page-name page-name journal-day] (convert-page-if-journal original-page-name date-formatter) [original-page-name page-name journal-day] (convert-page-if-journal original-page-name date-formatter)
namespace? (and (not (boolean (text/get-nested-page-name original-page-name))) namespace? (and (not (boolean (text/get-nested-page-name original-page-name)))
(text/namespace-page? original-page-name)) (text/namespace-page? original-page-name))
page-entity (some-> db (d/entity [:block/name page-name]))] page-entity (some-> db (d/entity [:block/name page-name]))
original-page-name (or (:block/original-name page-entity) original-page-name)]
(merge (merge
{:block/name page-name {:block/name page-name
:block/original-name original-page-name} :block/original-name original-page-name}

View File

@ -309,6 +309,7 @@
(defn delete! (defn delete!
[page-name ok-handler & {:keys [delete-file?] [page-name ok-handler & {:keys [delete-file?]
:or {delete-file? true}}] :or {delete-file? true}}]
(route-handler/redirect-to-home!)
(when page-name (when page-name
(when-let [repo (state/get-current-repo)] (when-let [repo (state/get-current-repo)]
(let [page-name (util/page-name-sanity-lc page-name) (let [page-name (util/page-name-sanity-lc page-name)