Reorganize ++markup to ++eyre.

This commit is contained in:
C. Guy Yarvin 2016-10-31 17:12:56 -07:00
parent c66ac763d6
commit 35e20fcca6
20 changed files with 44 additions and 38 deletions

View File

@ -488,7 +488,7 @@
$http
?> ?=($mime p.cay)
=+ mim=;;(mime q.q.cay)
=+ maf=(~(add ja *math) %content-type (moon:markup p.mim))
=+ maf=(~(add ja *math) %content-type (moon:bytes:eyre p.mim))
(dy-eyre /show q.p.mad [r.p.mad p.p.mad maf ~ q.mim])
::
$show

View File

@ -5,7 +5,7 @@
/- talk, sole
/+ talk, sole, time-to-id, twitter
/= seed /~ !>(.)
=, markup
=, js:eyre
::
::::
::

View File

@ -588,7 +588,7 @@
^- $&
?> (melt new old)
?> .= (shaf %meld (sham q.new))
(need (sure:as:(haul:test r.q.old) *code p.new))
(need (sure:as:(haul:suite r.q.old) *code p.new))
%&
::
++ melt :: proper connect
@ -624,7 +624,7 @@
|= wed/deyd
^- $&
?> =+ rac=(clan r.p.q.wed)
=+ loy=(haul:test r.q.wed)
=+ loy=(haul:suite r.q.wed)
?: &(r.wed =(rac %czar)) %&
?> =(0 p.p.q.wed)
?> =(fig:ex:loy ?+(rac !! $czar (zeno r.p.q.wed), $pawn r.p.q.wed))
@ -639,7 +639,7 @@
?> ?& ?=(^ law)
(lth p.p.q.i.law 9) :: 9-lives rule
=(p.p.q.i.law p.i.mac)
=(r.q.i.law pub:ex:(weur:test q.i.mac))
=(r.q.i.law pub:ex:(weur:suite q.i.mac))
==
$(mac t.mac, law t.law)
==
@ -1004,7 +1004,7 @@
?. =(fak.ton r.i.lew.wod.dur) ~|([%client-wrong-fake her] !!)
:+ p.p.q.i.lew.wod.dur
q.q.i.lew.wod.dur
(haul:test r.q.i.lew.wod.dur)
(haul:suite r.q.i.lew.wod.dur)
::
++ clon
^- life
@ -1257,7 +1257,7 @@
|- ^- (list ship)
?:((lth our 256) ~ =+(seg=(sein our) [seg $(our seg)]))
::
(turn mac |=({p/life q/ring} [p q (weur:test q)]))
(turn mac |=({p/life q/ring} [p q (weur:suite q)]))
wil
~
~
@ -1323,13 +1323,13 @@
:- p
%= q
val
(turn val.q |=({p/life q/ring r/acru} [p q (weur:test q)]))
(turn val.q |=({p/life q/ring r/acru} [p q (weur:suite q)]))
==
==
++ come :: come:am
|= {ges/(unit @t) wid/@ bur/@ fak/?} :: instantiate pawn
^- {p/{p/ship q/@uvG} q/fort}
=+ loy=(bruw:test wid bur)
=+ loy=(bruw:suite wid bur)
=+ rig=sec:ex:loy
=+ our=`@p`fig:ex:loy
=+ syp=[[0 ~ our now] [%en %pawn ges] pub:ex:loy]
@ -1351,7 +1351,7 @@
::
:: fake uses carrier #
::
=+ loy=?:(fak (bruw:test 2.048 her) (bruw:test 2.048 ger))
=+ loy=?:(fak (bruw:suite 2.048 her) (bruw:suite 2.048 ger))
=+ fim==(fig:ex:loy (zeno her))
?: &(!fak !fim) !! :: not fake & bad fig
=+ mac=`mace`[[0 sec:ex:loy] ~]

View File

@ -4,7 +4,9 @@
|= pit/vase
=, ^gall
=, crypto:ames
=, markup
=, bytes:eyre
=, js:eyre
=, xml:eyre
=> =~
|% :: interfaces
++ gift gift-eyre :: out result <-$

View File

@ -16,10 +16,10 @@
:: - task for converting invites to tickets
::
|= pit/vase
=, crypto
=, pki:^jael
=, rights:^jael
=, moves:^jael
=, crypto:ames
=, jael
:: ::::
:::: # models :: data structures

View File

@ -1793,12 +1793,12 @@
:: XX: ++bruw, ++haul and ++weur are obsolete crua interfaces;
:: delete or restructure
|%
:: :: ++trsa:test:crypto
++ trua :: test rsa
:: :: ++trua:test:crypto
++ trua :: test crua
|= msg/@tas
^- @
=+ ali=(bruw 1.024 (shax 'ali'))
=+ bob=(bruw 1.024 (shax 'bob'))
=+ ali=(bruw:suite 1.024 (shax 'ali'))
=+ bob=(bruw:suite 1.024 (shax 'bob'))
=+ tef=(sign:as.ali [0 msg])
=+ lov=(sure:as.ali [0 tef])
?. &(?=(^ lov) =(msg u.lov))
@ -1863,7 +1863,8 @@
=+ [mag=(end 3 1 a) bod=(rsh 3 1 a)]
?> =('A' mag)
(nol:nu:crua bod)
--
-- :: suite
-- :: crypto
:: ::
:::: ## number:ames :: misc number theory
:: ::::
@ -2181,7 +2182,7 @@
=< |= a/cord
%+ biff (rush a (more sepa elem))
|= b/(list _(wonk *elem)) ^- (unit date)
=- ?.((za:jo:markup -) ~ (some (zp:jo:markup -)))
=- ?.((za:jo:js:eyre -) ~ (some (zp:jo:js:eyre -)))
^+ =+ [*date u=unit]
*{(u _[a y]) (u _m) (u _d.t) (u _+.t) $~}
:~

View File

@ -3,7 +3,7 @@
:::: /hoon/parse/down-jet/lib
::
/? 310
=, markup
=, xml:eyre
=+ =~
|%
++ loca |*(a/_* {p/@u q/a})

View File

@ -5,4 +5,4 @@
/? 310
|* {a/_cord b/_json} :: XX {a/$-(* cord) b/$-(* json)}
|= c/(map _+<.a _+<.b)
(jobe:markup (turn (~(tap by c)) |*(d/^ [(a -.d) (b +.d)])))
(jobe:js:eyre (turn (~(tap by c)) |*(d/^ [(a -.d) (b +.d)])))

View File

@ -2,7 +2,7 @@
:::: /hoon/react/lib
::
/? 310
=, markup
=, xml:eyre
|%
++ react-elems :: XX /~
~+ %- silt ^- (list term)

View File

@ -6,7 +6,9 @@
/- twitter
/+ interpolate, hep-to-cab
=+ sur-twit:^twitter :: XX
=, markup
=, bytes:eyre
=, js:eyre
=, xml:eyre
!:
:::: functions
::

View File

@ -74,7 +74,7 @@
::
++ poke-paste
|= {typ/?($hoon $md $txt) txt/@t} ^+ abet
(poke--data [`typ /web/paste/(scot %da now)] %mime / (taco txt))
(poke--data [`typ /web/paste/(scot %da now)] %mime / (taco:bytes:eyre txt))
::
++ poke-comment
|= {sup/spur him/ship txt/@t} ^+ abet
@ -84,7 +84,7 @@
'## `' (scot %p him) '`'
'\0a' txt
==
(poke--data [`%md pax] %mime / (taco txt))
(poke--data [`%md pax] %mime / (taco:bytes:eyre txt))
::
++ poke-fora-post
|= {sup/spur him/ship hed/@t txt/@t} ^+ abet
@ -103,7 +103,7 @@
{(trip txt)}
"""
(poke--data [`%md pax] %mime / (taco txt))
(poke--data [`%md pax] %mime / (taco:bytes:eyre txt))
::
++ ames-secret
^- @t
@ -115,7 +115,7 @@
?> ?=($& -.hot)
=. p.hot (scag 2 p.hot) :: ignore subdomain
=. dat (scot %uw (en:crua:crypto:ames ames-secret dat))
(poke--data [`%atom [%sec p.hot]] %mime / (taco dat))
(poke--data [`%atom [%sec p.hot]] %mime / (taco:bytes:eyre dat))
::
++ poke--data
|= {{ext/(unit @t) pax/path} dat/data} ^+ abet

View File

@ -2,14 +2,14 @@
:::: /hoon/elem/mar
::
/? 310
=, markup
=, js:e
|_ own/manx
::
++ grow :: convert to
|%
++ hymn ;html:(head body:"+{own}") :: convert to %hymn
++ html (crip (poxo hymn)) :: convert to %html
++ mime [/text/html (taco html)] :: convert to %mime
++ hymn ;html:(head body:"+{own}") :: convert to %hymn
++ html (crip (poxo:xml:eyre hymn)) :: convert to %html
++ mime [/text/html (taco:js:eyre html)] :: convert to %mime
--
++ garb /snip :: grabbed by
++ grab |% :: convert from

View File

@ -7,7 +7,7 @@
::
++ grow :: convert to
|%
++ mime `^mime`[/text/x-hoon (taco own)] :: convert to %mime
++ mime `^mime`[/text/x-hoon (taco:bytes:eyre own)] :: convert to %mime
++ elem :: convert to %html
;div:pre(urb_codemirror "", mode "hoon"):"{(trip own)}"
:: =+ gen-id="src-{<`@ui`(mug own)>}"

View File

@ -5,7 +5,7 @@
::
:::: compute
::
=, markup
=, js:eyre
|_ jon/json
::
++ grow :: convert to

View File

@ -12,7 +12,8 @@
++ grab :: convert from
|%
++ noun mime :: clam from %noun
++ tape |=(a/_"" [/application/x-urb-unknown (tact a)])
++ tape
|=(a/_"" [/application/x-urb-unknown (tact:bytes:eyre a)])
--
++ grad
|%

View File

@ -2,7 +2,7 @@
:::: /hoon/snip/mar
::
/? 310
=, markup
=, xml:eyre
|%
++ words 1
++ hedtal

View File

@ -6,7 +6,7 @@
=, differ:^clay
=, differ:clay
=, lines:clay
=, markup
=, bytes:eyre
|_ txt/wain
::
++ grab :: convert from

View File

@ -3,7 +3,7 @@
::
/? 310
/= urb-wasp-data-js /: /%/wasp-data /js/
=, markup
=, xml:eyre
!:
|_ {{dep/@uvH hed/marl} {dep-bod/@uvH bod/marl}}
++ grow :: convert to

View File

@ -6,7 +6,7 @@
/= dat-sen /| /: /%%/ /% /tree-json/ :: default include
/~ ~
==
=, markup
=, xml:eyre
^- marl
;= ;script(type "text/javascript"): window.tree = {(pojo (jobe data+dat sein+dat-sen ~))}
;div#tree;

View File

@ -8,7 +8,7 @@
/= dat /^ tree-include /tree-include/
/= kid /^ (map knot tree-include)
/_ /tree-include/
=, markup
=, js:eyre
!:
::::
::