ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 01:52:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

hoon: tec to tic

Browse Source
This commit is contained in:
John Franklin 2020-05-28 01:44:36 -05:00
parent 1d8624cd74
commit ba51e2391c
2 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
pkg/arvo/sys/hoon.hoon
View File

@ -13022,7 +13022,7 @@
(cold [%end %stet] duz) :: == end of markdown
::
(cold [%one %rule] ;~(plug hep hep hep)) :: --- horizontal ruler
(cold [%one %fens] ;~(plug tec tec tec)) :: ``` code fence
(cold [%one %fens] ;~(plug tic tic tic)) :: ``` code fence
(cold [%one %expr] mic) :: ;sail expression
::
(cold [%new %head] ;~(plug (star hax) ace)) :: # heading
@ -13035,7 +13035,7 @@
==
::
::
++ calf :: cash but for tec tec
++ calf :: cash but for tic tic
|* tem=rule
%- star
;~ pose
@ -13146,7 +13146,7 @@
::
:: `classic markdown quote`
::
(stag %code (ifix [tec tec] (calf tec)))
(stag %code (ifix [tic tic] (calf tic)))
::
:: ++arm, +-arm, +$arm, +*arm, ++arm:core, ...
::
@ -13268,22 +13268,22 @@
%+ cold [[%hr ~] ~]~
;~(plug (star ace) hep hep hep (star hep) (just '\0a'))
::
++ tecs
;~(plug tec tec tec (just '\0a'))
++ tics
;~(plug tic tic tic (just '\0a'))
::
++ fens
|= col/@u ~+
=/ ind (stun [(dec col) (dec col)] ace)
=/ ind-tecs ;~(plug ind tecs)
=/ ind-tics ;~(plug ind tics)
%+ cook |=(txt/tape `tarp`[[%pre ~] ;/(txt) ~]~)
::
:: leading outdent is ok since container may
:: have already been parsed and consumed
%+ ifix [;~(plug (star ace) tecs) ind-tecs]
%+ ifix [;~(plug (star ace) tics) ind-tics]
%^ stir "" |=({a/tape b/tape} "{a}\0a{b}")
;~ pose
%+ ifix [ind (just '\0a')]
;~(less tecs (star prn))
;~(less tics (star prn))
::
(cold "" ;~(plug (star ace) (just '\0a')))
==
@ -13563,16 +13563,16 @@
(cold [%base %cell] ket)
==
:- '`'
;~ pfix tec
;~ pfix tic
;~ pose
%+ cook
|=({a/@ta b/hoon} [%ktls [%sand a 0] [%ktls [%sand %$ 0] b]])
;~(pfix vat ;~(plug mota ;~(pfix tec wide)))
;~(pfix vat ;~(plug mota ;~(pfix tic wide)))
;~ pfix tar
(stag %kthp (stag [%base %noun] ;~(pfix tec wide)))
(stag %kthp (stag [%base %noun] ;~(pfix tic wide)))
==
(stag %kthp ;~(plug wyde ;~(pfix tec wide)))
(stag %ktls ;~(pfix lus ;~(plug wide ;~(pfix tec wide))))
(stag %kthp ;~(plug wyde ;~(pfix tic wide)))
(stag %ktls ;~(pfix lus ;~(plug wide ;~(pfix tic wide))))
(cook |=(a/hoon [[%rock %n ~] a]) wide)
==
==

2
pkg/arvo/sys/zuse.hoon
View File

@ -7108,7 +7108,7 @@
++ ptok :: 2616 token
;~ pose
aln zap hax buc cen pad say tar lus
hep dot ket cab tec bar sig
hep dot ket cab tic bar sig
==
:: :: ++scem:de-purl:html
++ scem :: 2396 scheme