2016-02-05 05:57:44 +03:00
|
|
|
::
|
2016-02-05 06:05:37 +03:00
|
|
|
:::: /hoon/markdown/sur
|
2016-02-05 05:57:44 +03:00
|
|
|
::
|
2014-07-31 02:56:56 +04:00
|
|
|
|%
|
2014-12-06 00:09:46 +03:00
|
|
|
++ down (list elem)
|
|
|
|
++ 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]
|
|
|
|
[%htmt p=cord] :: XX (each marx mane)
|
|
|
|
==
|
|
|
|
$&([p=inlik q=kids] inlin)
|
|
|
|
::
|
|
|
|
::
|
|
|
|
++ elem $&(tops node)
|
|
|
|
++ tops :: childful block
|
|
|
|
$: $= p
|
|
|
|
$% [%bloq ~]
|
|
|
|
[%list p=? q=$|(char [p=@u q=char])] :: tight, ordered?
|
|
|
|
[%item ~]
|
|
|
|
==
|
2014-12-09 01:51:27 +03:00
|
|
|
q=down
|
2014-12-06 00:09:46 +03:00
|
|
|
==
|
|
|
|
:: ++ mist |*(a=_,* ,[i=a t=$|(~ (mist a))]) :: .=(%mist +(%list))
|
|
|
|
++ node :: childless block
|
|
|
|
$% [%para p=kids]
|
2015-12-02 04:44:11 +03:00
|
|
|
[%meta p=(map cord cord)] :: front matter
|
2014-12-06 00:09:46 +03:00
|
|
|
[%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-07-31 02:56:56 +04:00
|
|
|
--
|
2014-08-06 00:24:26 +04:00
|
|
|
|