2014-12-04 02:21:55 +03:00
|
|
|
~% %util +> ~
|
2014-12-04 01:20:41 +03:00
|
|
|
|%
|
2014-12-04 07:58:49 +03:00
|
|
|
++ kids (list inline)
|
|
|
|
|
++ inline
|
|
|
|
|
=+ ^= inlik
|
|
|
|
|
$% [%emph p=?] :: strong?
|
|
|
|
|
[%delt ~] :: strikethrough
|
|
|
|
|
[%link p=tape q=(unit tape)]
|
|
|
|
|
[%blot p=tape q=(unit tape)] :: image
|
|
|
|
|
==
|
|
|
|
|
=+ ^= inlin
|
|
|
|
|
$% [%$ p=tape]
|
|
|
|
|
[%line ~]
|
|
|
|
|
[%code p=tape]
|
2014-12-06 00:09:46 +03:00
|
|
|
[%html p=cord]
|
2014-12-04 07:58:49 +03:00
|
|
|
==
|
|
|
|
|
$&([p=inlik q=kids] inlin)
|
|
|
|
|
::
|
|
|
|
|
::
|
|
|
|
|
++ elem $&(tops node)
|
|
|
|
|
++ tops :: childful block
|
|
|
|
|
$: $= p
|
|
|
|
|
$% [%bloq ~]
|
|
|
|
|
[%list p=? q=$|(char [p=@u q=char])] :: tight, ordered?
|
|
|
|
|
[%item ~]
|
|
|
|
|
==
|
|
|
|
|
q=(list elem)
|
|
|
|
|
==
|
|
|
|
|
:: ++ mist |*(a=_,* ,[i=a t=$|(~ (mist a))]) :: .=(%mist +(%list))
|
|
|
|
|
++ node :: childless block
|
|
|
|
|
$% [%para p=kids]
|
|
|
|
|
[%hrul ~]
|
|
|
|
|
[%head p=@u q=kids]
|
|
|
|
|
[%code p=(unit ,[p=char q=@u r=tape]) q=wain] :: info, contents
|
|
|
|
|
[%html p=wain]
|
|
|
|
|
[%defn ~] :: empty para
|
|
|
|
|
==
|
|
|
|
|
::
|
2014-12-04 01:20:41 +03:00
|
|
|
++ sqar
|
2014-12-04 02:21:55 +03:00
|
|
|
~/ %sqar
|
2014-12-04 07:58:49 +03:00
|
|
|
|= @t
|
|
|
|
|
*(list elem)
|
2014-12-04 01:20:41 +03:00
|
|
|
--
|
