%
% analyze the html directives in the psd layer tree
%
%
% use the unique token as the center mark, build each side of mark
%
[+Cton]

__OriginalPath_
fromjs
!Cton.Path

__TargetDocName_
!Cton.Root

empty

empty !Cton.Buttoner

@@
root\
%
% stack: builder
%
*ctonwebj
%
% stack: builder
%
"Endlist " _\ & log)(
!Cton.Html

%%%_Cton.Root ofcton
"<!--FitBody-->" &_Cton.Html &"<!--FitBody-->"
__OriginalDocRoot_ &".htmx" ofcton
write

__OriginalDocRoot_ html ofcut
dup exists
{
 dup read "<!--FitBody-->" _Cton.Html *recenter
 dup tuck
 exch write
/*
 "c:\___Work\xfer\" &__OriginalDocRoot_ html
 write
*/ pop
}
{
 pop
} ifelse

_Cton.Buttoner _Cton.Root ofcton &".but" write
"images/" &_Cton.Root dup ofcton dup tuck exch ofcut
copydir
/*
"c:\___Work\xfer\images\" &_Cton.Root
copydir
*/ pop


*ctonwwwc


%%% "Exit" vector()

%%% *deskshow(

%%% *ctonsave(