clean up ++twig "manx" forms
++ mare (each manx marl) :: node or nodes
++ maru (each tuna marl) :: interp or nodes
++ tuna :: maybe interpolation
- $^(manx {?($tape $manx $marl $cnhp) p/twig}) ::
+ $^(manx {?($tape $manx $marl $call) p/twig}) ::
-- ::
$^ {p/twig q/twig} ::
$% ::
^ [[%xray i.p.gen] $(p.gen t.p.gen)]
$manx [p.i.p.gen $(p.gen t.p.gen)]
$tape [[%smfs p.i.p.gen] $(p.gen t.p.gen)]
- $cnhp [%cnhp p.i.p.gen [$(p.gen t.p.gen)]~]
+ $call [%cnhp p.i.p.gen [$(p.gen t.p.gen)]~]
$marl =- [%cndt [p.i.p.gen $(p.gen t.p.gen)] -]
^- twig
:+ %tsbr [%base %cell]
==
==
::
+ ::
++ sail :: xml template
|= in-tall-form/? =| lin/?
|%
::
++ apex :: product twig
%+ cook
- |= tum/mare:twig ^- twig
+ |= tum/(each manx:twig marl:twig) ^- twig
?- -.tum
$& [%xray p.tum]
$| [%smts p.tum]
(cold %tape hep)
(cold %manx lus)
(cold %marl tar)
- (cold %cnhp cen)
+ (cold %call cen)
==
::
++ wide-top :: wide outer top
- %+ knee *mare:twig |. ~+
+ %+ knee *(each manx:twig marl:twig) |. ~+
;~ pose
(stag %| wide-quote)
(stag %| wide-paren-elems)
==
::
++ wide-inner-top :: wide inner top
- %+ knee *maru:twig |. ~+
+ %+ knee *(each tuna:twig marl:twig) |. ~+
;~ pose
wide-top
(stag %& ;~(plug tuna-mode wide))
::+|
::
++ drop-top
- |= a/maru:twig ^- marl:twig
+ |= a/(each tuna:twig marl:twig) ^- marl:twig
?- -.a
$& [p.a]~
$| p.a
==
::
++ join-tops
- |= a/(list maru:twig) ^- marl:twig
+ |= a/(list (each tuna:twig marl:twig)) ^- marl:twig
(zing (turn a drop-top))
::
::+|
::+|
::
++ tall-top :: tall top
- %+ knee *mare:twig |. ~+
+ %+ knee *(each manx:twig marl:twig) |. ~+
;~ pose
(stag %| ;~(pfix (plus ace) (cook collapse-chars quote-innards)))
(stag %& ;~(plug script-or-style script-style-tail))
