Save and reload a View face tree

persist-faces.red

Red [
     Purpose: "Demo how to serialize/deserialize a face tree on disk"
]

mold-face: function [root [object!] return: [string!]][
	foreach-face root [
		face/parent: none face/state: none
		if font: face/font [font/parent: none font/state: none]
		if para: face/para [para/parent: none]
	]
	root/parent: root/state: none
	if root/type = 'window [root/selected: none]
	mold root
]

load-face: function [root [string! file! url! object!]][
	unless object? root [root: do load root]
	if block? pane: root/pane [
		foreach f root/pane: reduce pane [load-face f]
	]
	root
]

;---- Usage example ----

view lay: layout [button "ok" text "hello" panel [text "nested"]]

;-- Saving a cleaned-up face tree on disk
write %faces.red mold-face lay

;-- Loading a face tree from disk and displaying it
view load-face %faces.red