enhance: allow classes to unselect their parent

pull/10438/head
Gabriel Horner 2023-08-25 10:22:51 -04:00
parent deb2a1aaad
commit d06b80f9d4
1 changed files with 14 additions and 9 deletions

View File

@ -417,12 +417,14 @@
:value id
:selected (= class id)})
classes)
options (if class options (cons
options (cons (if class
{:label "Choose parent page"
:value ""}
{:label "Choose parent page"
:disabled true
:selected true
:value ""}
options))]
:value ""})
options)]
(ui/select options
(fn [_e value]
(on-select value)))))
@ -459,9 +461,12 @@
:block/uuid)]
[:div.w-60
(class-select page namespace (fn [value]
(if (seq value)
(db/transact!
[{:db/id (:db/id page)
:block/namespace [:block/uuid (uuid value)]}])))])]]
:block/namespace [:block/uuid (uuid value)]}])
(db/transact!
[[:db.fn/retractAttribute (:db/id page) :block/namespace]]))))])]]
(when (seq (:block/properties page))
[:div.my-4