|  | @@ -141,14 +141,13 @@
 | 
	
		
			
				|  |  |                                    :value type})))]
 | 
	
		
			
				|  |  |      [:div {:class (if in-block-container? "flex flex-1" "flex items-center col-span-2")}
 | 
	
		
			
				|  |  |       (shui/select
 | 
	
		
			
				|  |  | -      (cond->
 | 
	
		
			
				|  |  | -       {:default-open (boolean default-open?)
 | 
	
		
			
				|  |  | -        :disabled disabled?
 | 
	
		
			
				|  |  | -        :on-value-change
 | 
	
		
			
				|  |  | -        (fn [v]
 | 
	
		
			
				|  |  | -          (let [type (keyword (string/lower-case v))
 | 
	
		
			
				|  |  | -                update-schema-fn (apply comp
 | 
	
		
			
				|  |  | -                                        #(assoc % :type type)
 | 
	
		
			
				|  |  | +      {:default-open (boolean default-open?)
 | 
	
		
			
				|  |  | +       :disabled disabled?
 | 
	
		
			
				|  |  | +       :on-value-change
 | 
	
		
			
				|  |  | +       (fn [v]
 | 
	
		
			
				|  |  | +         (let [type (keyword (string/lower-case v))
 | 
	
		
			
				|  |  | +               update-schema-fn (apply comp
 | 
	
		
			
				|  |  | +                                       #(assoc % :type type)
 | 
	
		
			
				|  |  |                                               ;; always delete previous closed values as they
 | 
	
		
			
				|  |  |                                               ;; are not valid for the new type
 | 
	
		
			
				|  |  |                                         #(dissoc % :values)
 | 
	
	
		
			
				|  | @@ -181,15 +180,14 @@
 | 
	
		
			
				|  |  |          {:placeholder "Select a schema type"}))
 | 
	
		
			
				|  |  |        (shui/select-content
 | 
	
		
			
				|  |  |         (shui/select-group
 | 
	
		
			
				|  |  | -        (for [{:keys [label value]} schema-types]
 | 
	
		
			
				|  |  | -          (shui/select-item {:value value} label)))))
 | 
	
		
			
				|  |  | -
 | 
	
		
			
				|  |  | +        (for [{:keys [label value disabled]} schema-types]
 | 
	
		
			
				|  |  | +          (shui/select-item {:value value :disabled disabled} label)))))
 | 
	
		
			
				|  |  |       (when show-type-change-hints?
 | 
	
		
			
				|  |  |         (ui/tippy {:html        "Changing the property type clears some property configurations."
 | 
	
		
			
				|  |  |                    :class       "tippy-hover ml-2"
 | 
	
		
			
				|  |  |                    :interactive true
 | 
	
		
			
				|  |  |                    :disabled    false}
 | 
	
		
			
				|  |  | -                 (svg/info))))]))
 | 
	
		
			
				|  |  | +                 (svg/info)))]))
 | 
	
		
			
				|  |  |  
 | 
	
		
			
				|  |  |  (rum/defcs ^:large-vars/cleanup-todo property-config
 | 
	
		
			
				|  |  |    "All changes to a property must update the db and the *property-schema. Failure to do
 |