urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-11 23:48:22 +03:00
Code Issues Packages Projects Releases Wiki Activity

Enable markdown as a twig syntax

Browse Source 
commenting/removing various printfs
This commit is contained in:
Fang 2017-08-02 17:36:40 -07:00
parent f3c61df97a
commit bab3b039ca
1 changed files with 20 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
arvo/hoon.hoon
View File

@ -39,7 +39,7 @@
== :: == ::
{$atom p/odor} :: atom {$atom p/odor} :: atom
++ bean ? :: 0=&=yes, 1=|=no ++ bean ? :: 0=&=yes, 1=|=no
++ beer $@(@ {$~ p/twig}) :: simple embed ++ beer $@(char {$~ p/twig}) :: simple embed
++ bloq @ :: blockclass ++ bloq @ :: blockclass
++ char @tD :: UTF-8 byte ++ char @tD :: UTF-8 byte
++ chub :: registered battery ++ chub :: registered battery
@ -9625,7 +9625,7 @@
?: (gth nex (sub col luc)) ?: (gth nex (sub col luc))
:: ::
:: indenting pattern violation :: indenting pattern violation
~& indent-pattern-violation+[p.cur nex col luc] ::~& indent-pattern-violation+[p.cur nex col luc]
..^$(col luc, err `[p.naz luc]) ..^$(col luc, err `[p.naz luc])
=. ..^$ fold =. ..^$ fold
$(col (sub col nex)) $(col (sub col nex))
@ -9667,11 +9667,14 @@
|- ^+ [nap +>] |- ^+ [nap +>]
:: ::
:: no unterminated lines :: no unterminated lines
?~ los ~&(%unterminated-line [~ +>(err `naz)]) ?~ los
::~& %unterminated-line
[~ +>(err `naz)]
?. =(`@`10 i.los) ?. =(`@`10 i.los)
?: (gth col q.naz) ?: (gth col q.naz)
?. =(' ' i.los) ?. =(' ' i.los)
~&(expected-indent+[col naz los] [~ +>(err `naz)]) ::~& expected-indent+[col naz los]
[~ +>(err `naz)]
$(los t.los, q.naz +(q.naz)) $(los t.los, q.naz +(q.naz))
:: ::
:: save byte and repeat :: save byte and repeat
@ -9690,7 +9693,9 @@
|- ^+ + |- ^+ +
:: ::
:: no unterminated lines :: no unterminated lines
?~ los ~&(%unterminated-line +(err `naz)) ?~ los
::~& %unterminated-line
+(err `naz)
?. =(`@`10 i.los) ?. =(`@`10 i.los)
:: ::
:: eat byte and repeat :: eat byte and repeat
@ -9748,7 +9753,7 @@
== ==
:: ::
:: if error, propagate correctly :: if error, propagate correctly
?~ q.vex ~&(%err-prop ..$(err `p.vex)) ?~ q.vex ..$(err `p.vex)
:: ::
:: finish tag if it's a header or rule :: finish tag if it's a header or rule
=< ?:(?=(?($head $rule) p.cur) fold ..$) =< ?:(?=(?($head $rule) p.cur) fold ..$)
@ -9767,7 +9772,6 @@
=/ pic look =/ pic look
:: ::
:: if line is blank :: if line is blank
~& line+[pic -.cur (flop (turn hac head))]
?~ pic ?~ pic
:: ::
:: break section :: break section
@ -9812,7 +9816,7 @@
:: text flows must continue aligned :: text flows must continue aligned
?($down $list $lime $lord $bloc) =(col.pic col) ?($down $list $lime $lord $bloc) =(col.pic col)
== ==
~& bad-block-structure+[p.cur col col.pic] ::~& bad-block-structure+[p.cur col col.pic]
..$(err `[p.naz col.pic]) ..$(err `[p.naz col.pic])
:: ::
:: accept line and continue :: accept line and continue
@ -11129,10 +11133,14 @@
++ wise %+ cook ++ wise %+ cook
|=({a/term b/(unit twig)} ?~(b a [a u.b])) |=({a/term b/(unit twig)} ?~(b a [a u.b]))
;~(plug sym (punt ;~(pfix fas wide))) ;~(plug sym (punt ;~(pfix fas wide)))
++ tall %+ knee *twig :: full tall form ++ tall :: full tall form
|.(~+((wart ;~(pose (norm &) long lute apex:(sail &))))) %+ knee *twig
++ wide %+ knee *twig :: full wide form |.(~+((wart ;~(pose (norm &) cram long lute apex:(sail &)))))
|.(~+((wart ;~(pose (norm |) long apex:(sail |))))) ::
++ wide :: full wide form
%+ knee *twig
|.(~+((wart ;~(pose (norm |) long apex:(sail |)))))
::
++ wart ++ wart
|* zor/rule |* zor/rule
%+ here %+ here