ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 18:12:47 +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 [%end %stet] duz) :: == end of markdown
:: ::
(cold [%one %rule] ;~(plug hep hep hep)) :: --- horizontal ruler (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 [%one %expr] mic) :: ;sail expression
:: ::
(cold [%new %head] ;~(plug (star hax) ace)) :: # heading (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 |* tem=rule
%- star %- star
;~ pose ;~ pose
@ -13146,7 +13146,7 @@
:: ::
:: `classic markdown quote` :: `classic markdown quote`
:: ::
(stag %code (ifix [tec tec] (calf tec))) (stag %code (ifix [tic tic] (calf tic)))
:: ::
:: ++arm, +-arm, +$arm, +*arm, ++arm:core, ... :: ++arm, +-arm, +$arm, +*arm, ++arm:core, ...
:: ::
@ -13268,22 +13268,22 @@
%+ cold [[%hr ~] ~]~ %+ cold [[%hr ~] ~]~
;~(plug (star ace) hep hep hep (star hep) (just '\0a')) ;~(plug (star ace) hep hep hep (star hep) (just '\0a'))
:: ::
++ tecs ++ tics
;~(plug tec tec tec (just '\0a')) ;~(plug tic tic tic (just '\0a'))
:: ::
++ fens ++ fens
|= col/@u ~+ |= col/@u ~+
=/ ind (stun [(dec col) (dec col)] ace) =/ ind (stun [(dec col) (dec col)] ace)
=/ ind-tecs ;~(plug ind tecs) =/ ind-tics ;~(plug ind tics)
%+ cook |=(txt/tape `tarp`[[%pre ~] ;/(txt) ~]~) %+ cook |=(txt/tape `tarp`[[%pre ~] ;/(txt) ~]~)
:: ::
:: leading outdent is ok since container may :: leading outdent is ok since container may
:: have already been parsed and consumed :: 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}") %^ stir "" |=({a/tape b/tape} "{a}\0a{b}")
;~ pose ;~ pose
%+ ifix [ind (just '\0a')] %+ ifix [ind (just '\0a')]
;~(less tecs (star prn)) ;~(less tics (star prn))
:: ::
(cold "" ;~(plug (star ace) (just '\0a'))) (cold "" ;~(plug (star ace) (just '\0a')))
== ==
@ -13563,16 +13563,16 @@
(cold [%base %cell] ket) (cold [%base %cell] ket)
== ==
:- '`' :- '`'
;~ pfix tec ;~ pfix tic
;~ pose ;~ pose
%+ cook %+ cook
|=({a/@ta b/hoon} [%ktls [%sand a 0] [%ktls [%sand %$ 0] b]]) |=({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 ;~ 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 %kthp ;~(plug wyde ;~(pfix tic wide)))
(stag %ktls ;~(pfix lus ;~(plug wide ;~(pfix tec wide)))) (stag %ktls ;~(pfix lus ;~(plug wide ;~(pfix tic wide))))
(cook |=(a/hoon [[%rock %n ~] a]) wide) (cook |=(a/hoon [[%rock %n ~] a]) wide)
== ==
== ==

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

@ -7108,7 +7108,7 @@
++ ptok :: 2616 token ++ ptok :: 2616 token
;~ pose ;~ pose
aln zap hax buc cen pad say tar lus 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:de-purl:html
++ scem :: 2396 scheme ++ scem :: 2396 scheme