Merge remote-tracking branches 'curtis/swaggle', 'anton/fix-init-no-data' and 'anton/fix-generators'

Conflicts:
	gen/hood/begin.hoon
	gen/moon.hoon

Fix ++swag electroplating-induced bug
Fix boot process for galaxies
Finish 151izing the source tree
This commit is contained in:
Raymond Pasco 2016-02-17 19:30:13 -05:00
commit 259eb79cb8
131 changed files with 188 additions and 533 deletions

View File

@ -1,7 +1,7 @@
::
:::: /hoon/ask/app
::
/? 314
/? 310
/+ sole
[. sole]
|%
@ -15,7 +15,7 @@
|= path
^- (quip {bone card} +>)
~| [%not-in-whitelist src.bow]
?> (~(has in (sa (limo ~zod our.bow ~talsur-todres ~))) src.bow)
?> (~(has in (sy ~zod our.bow ~talsur-todres ~)) src.bow)
:_ +>.$(sos (~(put by sos) ost.bow *sole-share))
=- [(effect %mor pro+[& %$ "<listening>"] -)]~
=+ all=adrs

View File

@ -1,11 +1,12 @@
!:
::
:::: /hoon/curl/app
::
/? 314
|_ [[^ ^ ost=@ ^] ~]
++ poke |*(a=[mark *] :_(+> [ost %hiss / %wain a]~))
::++ poke-purl |=(a=purl :_(+> [ost %hiss / %wain %purl a]~))
++ poke-noun |=(a=tape (poke %purl (scan a auri:epur)))
++ sigh-wain |=([* a=wain] ~&(a `+>))
++ sigh-tang |=([* a=tang] (mean a))
/? 310
!:
|_ {{^ ^ ost/@ ^} $~}
++ poke |*(a/{mark *} :_(+> [ost %hiss / %wain a]~))
::++ poke-purl |=(a/purl :_(+> [ost %hiss / %wain %purl a]~))
++ poke-noun |=(a/tape (poke %purl (scan a auri:epur)))
++ sigh-wain |=({* a/wain} ~&(a `+>))
++ sigh-tang |=({* a/tang} (mean a))
--

View File

@ -1,7 +1,7 @@
:: :: ::
:::: /hoon/dojo/app :: ::::
:: :: ::
/? 314 :: arvo kelvin
/? 310 :: arvo kelvin
/- sole :: console structures
/+ sole :: console library
[. sole]

View File

@ -1,7 +1,7 @@
:: :: ::
:::: /hoon/hood/app :: ::
:: :: ::
/? 314 :: zuse version
/? 310 :: zuse version
/+ sole, talk, helm, kiln, drum, write :: libraries
[. helm kiln drum]
:: :: ::

View File

@ -1,7 +1,7 @@
:: :: ::
:::: /hoon/talk/app :: ::
:: :: ::
/? 314
/? 310
/- talk, sole
/+ talk, sole
/= seed /~ !>(.)

View File

@ -1,337 +0,0 @@
::
:::: /hoon/work/app
::
/? 314
/- work
/+ talk
!:
::::
::
[. work]
|%
++ move (pair bone card) :: all actions
++ card :: general card
$% [%diff %work-report client] ::
[%peer wire dock path] ::
[%poke wire dock pear] ::
== ::
++ pear :: poke fruit
$% [%talk-command command:talk] ::
== ::
--
!:
::::
::
|_ $: bowl
client
connected=_| :: subscribed to talk
count=@ud :: # messages from talk
unordered=(map ,[@uvH @u] (pair ship flesh:work-stuff:talk))
==
++ at
|= client-task
=| moves=(list move)
|%
++ abet
^- [(list move) _+>.$]
[(flop moves) +>.$(tasks (~(put by tasks) id.tax +<.$))]
::
++ abut
^- [(list move) _+>.$]
[(flop moves) +>.$]
::
++ send-audience
|= [to=(set station:talk) action=duty:work-stuff:talk]
%_ +>.$
eny (sham eny action)
moves
:_ moves
^- move
:* ost %poke
/sending/(scot %uv id.tax)/(scot %ud version.tax)
[our %talk]
%talk-command
=> [. talk] ^- command:talk
:- %publish
|- ^- (list thought)
:_ ~
:+ (shaf %task eny)
%- mo ^- (list ,[partner envelope delivery])
%+ turn (~(tap in to))
|=(sat=station [[%& sat] [*envelope %pending]])
[now *bouquet [%tax action]]
==
==
::
++ send
|= action=duty:work-stuff:talk
(send-audience audience action)
::
++ send-archive
|= to=(set station:talk)
(send-audience to %archive id.tax)
::
++ send-create (send %create tax)
++ send-change |* *
?: =(our creator.tax)
(send-update +(version.tax) our +<)
%+ send-audience
[[creator.tax (main:talk creator.tax)] ~ ~]
[%change id.tax +<]
++ send-update |*(* (send %update id.tax +<))
++ process-update
|= up=update
^+ +>
?- -.up
%add ?>(?=(%comment +<.up) (send-change %add-comment our +>.up))
%doer
?- +<.up
%release (send-change %set-doer ~)
%claim (send-change %set-doer `our)
==
::
%set
?- +<.up
%audience (process-audience to.up)
%date-due (send-change %set-date-due +>.up)
%title (send-change %set-title +>.up)
%description (send-change %set-description +>.up)
%tags (send-change %set-tags +>.up)
%done (send-change %set-done +>.up)
==
==
++ process-audience
|= to=(set station:talk)
^+ +>
=. +>.$ (send-archive (~(dif in audience) to))
=. +>.$ (send-audience (~(dif in to) audience) %create tax)
+>.$(audience to)
--
::
++ prep
|= $= old
$_
=< $
%- unit
$: client
_|
@ud
(map ,[@uvH @u] (pair ship flesh:work-stuff:talk))
==
^- [(list move) _+>.$]
initialize(+<+ ?~(old +<+.+>.$ u.old))
::
++ initialize
^- [(list move) _.]
?: connected
[~ .]
:_ .(connected %&) :_ ~
[ost %peer /peering [our %talk] /f/(main:talk our)/(scot %ud count)]
::
++ process-duty
|= [when=@da her=ship from=(set station:talk) action=duty:work-stuff:talk]
^- [(list move) _+>.$]
=- =^ mof con mirror-to-web:con
[(welp mof mos) con]
^- [mos=(list move) con=_+>.$]
?- -.action
%create
=+ existing-task=(~(get by tasks) id.tax.action)
?: ?& ?=(^ existing-task)
!=(tax.action tax.u.existing-task)
!archived.u.existing-task
==
~& :* %new-task-with-old-id
her=her
from=from
new-task=tax.action
existing-task=u.existing-task
==
[~ +>.$]
?. =(her creator.tax.action)
~& :* %created-with-bad-creator
her=her
from=from
new-task=tax.action
existing-task=existing-task
==
[~ +>.$]
=. tasks
%^ ~(put by tasks) id.tax.action |
:_ tax.action
?~ existing-task from
(~(uni in audience.u.existing-task) from)
=. sort ?^(existing-task sort [id.tax.action sort])
[~ +>.$]
::
%archive
=+ tax=(~(get by tasks) id.action)
?~ tax
~& :* %archive-for-nonexistent-task
her=her
from=from
action=action
==
[~ +>.$]
?: !=(her creator.tax.u.tax)
~& :* %archiver-not-creator
her=her
from=from
action=action
tax=tax
==
[~ +>.$]
=. tasks
%+ ~(put by tasks) id.action
:* =(~ (~(dif in audience.u.tax) from))
(~(dif in audience.u.tax) from)
tax.u.tax
==
[~ +>.$]
::
%change
=+ tax=(~(get by tasks) id.action)
?~ tax
~& :* %change-for-nonexistent-task
her=her
from=from
action=action
==
[~ +>.$]
?: !=(our creator.tax.u.tax)
~& :* %me-not-creator
her=her
from=from
action=action
tax=tax
==
[~ +>.$]
abet:(send-update:(at u.tax) +(version.tax.u.tax) her meat.action)
::
%update
=+ tax=(~(get by tasks) id.action)
?~ tax
~& :* %update-for-nonexistent-task
her=her
from=from
action=action
==
[~ +>.$]
?: !=(her creator.tax.u.tax)
~& :* %her-not-creator
her=her
from=from
action=action
tax=tax
==
[~ +>.$]
?. =(version.action +(version.tax.u.tax))
~& :* %update-bad-version
her
from=from
action=action
tax=tax
==
?: (lte version.action version.tax.u.tax)
~& %really-bad-version
[~ +>.$]
:- ~
%_ +>.$
unordered
%+ ~(put by unordered)
[id.action version.action]
[her.action meat.action]
==
|-
=. tasks
%+ ~(put by tasks) id.action
:+ archived.u.tax
(~(uni in audience.u.tax) from)
=. version.tax.u.tax version.action
=. date-modified.tax.u.tax when
?- -.meat.action
%set-doer tax.u.tax(doer her.meat.action)
%set-date-due tax.u.tax(date-due wen.meat.action)
%set-tags tax.u.tax(tags tag.meat.action)
%set-title tax.u.tax(title til.meat.action)
%set-description tax.u.tax(description des.meat.action)
%set-done tax.u.tax(done ?.(don.meat.action ~ `when))
%add-comment
%= tax.u.tax
discussion [[when [who com]:meat.action] discussion.tax.u.tax]
==
==
=+ ooo=(~(get by unordered) id.action +(version.action))
?~ ooo
[~ +>.^$]
%= $
version.action +(version.action)
her.action p.u.ooo
meat.action q.u.ooo
==
==
::
++ mirror-to-web
^- [(list move) _.]
~& [%mirroring sort=(turn sort |=(a=@uv `@uv`(rsh 2 25 a)))]
:_ .
%+ murn (~(tap by sup))
|= [ust=bone her=ship pax=path]
^- (unit move)
?:(?=([%sole *] pax) ~ `[ust full-report])
::
++ full-report [%diff %work-report tasks sort]
++ peer-repo |=(path [[ost full-report]~ +>.$])
++ coup
|= [way=wire saw=(unit tang)]
^- [(list move) _+>.$]
?> ?=(~ saw)
[~ +>.$]
::
++ quit-peering |=(way=wire ?>(?=(~ way) initialize(connected |)))
++ reap-peering
|= [way=wire saw=(unit tang)]
^- [(list move) _+>.$]
?> ?=([~ ~] +<)
[~ +>.$]
::
++ poke-work-command
|= cod=command
?. =(our src)
~|([%wrong-user our=our src=src] !!)
?- -.cod
%sort mirror-to-web(sort p.cod)
%old
=^ mow +>.$
=+ (at (~(got by tasks) id.cod))
abet:(process-update:- dif.cod)
=^ mov +>.$ mirror-to-web
[(welp mov mow) +>.$]
%new
=. +>.cod +>.cod(date-created now, version 0, date-modified now)
abut:send-create:(at | +.cod)
==
::
:: XX test the disconnection case
++ diff-talk-report
|= [way=wire rep=report:talk]
^- [(list move) _+>.$]
?> ?=(%grams -.rep)
|- ^- [(list move) _+>.^$]
?~ q.rep [~ +>.^$]
=. count +(count)
=* her p.i.q.rep
=* when p.r.q.i.q.rep
=* said r.r.q.i.q.rep
?. ?=(%tax -.said)
$(p.rep +(p.rep), q.rep t.q.rep)
=+ ^- from=(set station:talk)
%- sa ^- (list station:talk)
%+ murn (~(tap by q.q.i.q.rep))
=> talk
|= [par=partner *]
`(unit station)`?.(?=(%& -.par) ~ `p.par)
=^ mos +>.^$ (process-duty when her from +.said)
=^ mof +>.^$ $(p.rep +(p.rep), q.rep t.q.rep)
[(weld mos mof) +>.^$]
--

View File

@ -937,15 +937,10 @@
++ lamp :: normalize version
|= {cof/cafe bem/beam}
^- (bolt beam)
%+ cope
?: ?=($ud -.r.bem) (fine cof bem)
=+ von=(syve [151 %noun] ~ %cw bem(s ~))
?~ von [p=cof q=[%1 [%w bem ~] ~ ~]]
(fine cof bem(r [%ud ((hard @) +.+:(need u.von))]))
|= {cof/cafe bem/{{ship desk $ud r/@u} s/spur}}
?: =(0 r.bem)
(flaw cof [leaf+"ford: no data: {<(tope bem(s ~))>}"]~)
(fine cof bem)
?: ?=($ud -.r.bem) (fine cof bem)
=+ von=(syve [151 %noun] ~ %cw bem(s ~))
?~ von [p=cof q=[%1 [%w bem ~] ~ ~]]
(fine cof bem(r [%ud ((hard @) +.+:(need u.von))]))
::
++ lave :: validate
|= {cof/cafe for/mark som/*}
@ -988,9 +983,11 @@
++ liar :: load cage
|= {cof/cafe bem/beam}
^- (bolt cage)
?: =([%ud 0] r.bem)
(flaw cof [leaf+"ford: no data: {<(tope bem(s ~))>}"]~)
=+ von=(syve [151 %noun] ~ %cx bem)
?~ von
[p=*cafe q=[%1 [[%x bem ~] ~ ~]]]
[p=cof q=[%1 [[%x bem ~] ~ ~]]]
?~ u.von
(flaw cof leaf+"file not found" (smyt (tope bem)) ~)
(fine cof u.u.von)

View File

@ -778,7 +778,7 @@
::
++ swag :: infix
|* {{a/@ b/@} c/(list)}
(scag b (slag a c))
(scag +<-> (slag +<-< c))
::
++ turn :: transform
~/ %turn

View File

@ -2,7 +2,7 @@
::
:::: /hoon/cat/gen
::
/? 314
/? 310
// /%%/ls/subdir
// /%/pretty
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/pretty/cat/gen
::
/? 314
/? 310
!:
|%
++ pretty-noun

View File

@ -1,7 +1,7 @@
::
:::: /hoon/change/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/curl/gen
::
/? 314
/? 310
/- sole
[sole]
:- %get |= {^ {a/tape $~} $~}

View File

@ -1,7 +1,7 @@
::
:::: /hoon/hello/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/ask/hood/gen
::
/? 314
/? 310
:- %say
|= {^ {mel/cord $~} $~}
=+ adr=(star ;~(less (mask "\"\\()[],:;<>@") prn))

View File

@ -1,7 +1,7 @@
::
:::: /hoon/autoload/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/begin/hood/gen
::
/? 314
/? 310
/- sole
::
::::
@ -13,7 +13,7 @@
[sole .]
:- %ask
|= $: {now/@da eny/@uvI bec/beak}
arg/$~
{arg/_(scug *@ *{his/@p tic/@p $~})}
safety/?($on $off)
==
^- (sole-result (cask begs))

View File

@ -1,7 +1,7 @@
::
:::: /hoon/breload/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/cancel/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,6 +1,6 @@
::
:::: /hoon/cp/hood/gen
::
/? 314
/? 310
:- %say
|=({^ {input/path output/path $~} $~} kiln-cp+[input output])

View File

@ -1,7 +1,7 @@
::
:::: /hoon/deset/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,6 +1,6 @@
::
:::: /hoon/hi/hood/gen
::
/? 314
/? 310
:- %say
|=({^ {who/ship mez/$@($~ {a/tape $~})} $~} helm-send-hi+[who ?~(mez ~ `a.mez)])

View File

@ -1,7 +1,7 @@
::
:::: /hoon/invite/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/label/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/link/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/mass/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/merge/hood/gen
::
/? 314
/? 310
!:
|%
++ beaky {knot knot knot $~}
@ -31,9 +31,9 @@
::
{* ^ $~}
:- (pars-src syd.arg)
=+((pars bek.arg) [who dez (opt-case caz) gem])]
=+((pars bek.arg) [who dez (opt-case caz) gem])
==
++ opt-case |=(a=case ?:(=(*case cas) a cas)) :: override
++ opt-case |=(a/case ?:(=(*case cas) a cas)) :: override
++ pars |=(a/beaky `{{who/ship dez/desk caz/case} *}`(need (tome a)))
++ pars-src
|= syd/$@(desk beaky)

View File

@ -1,7 +1,7 @@
::
:::: /hoon/mount/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,6 +1,6 @@
::
:::: /hoon/mv/hood/gen
::
/? 314
/? 310
:- %say
|=({^ {input/path output/path $~} $~} kiln-mv+[input output])

View File

@ -1,7 +1,7 @@
::
:::: /hoon/overload/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/rc/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/reboot/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/reload-desk/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/reload/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/reset/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/rf/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,6 +1,6 @@
::
:::: /hoon/rm/hood/gen
::
/? 314
/? 310
:- %say
|=({^ {input/path $~} $~} kiln-rm+input)

View File

@ -1,6 +1,6 @@
::
:::: /hoon/schedule/hood/gen
::
/? 314
/? 310
:- %say
|=({^ {where/path tym/@da eve/@t $~} $~} kiln-schedule+[where tym eve])

View File

@ -1,13 +1,13 @@
::
:::: /hoon/serve/hood/gen
::
/? 314
/? 310
::
::::
!:
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[[pax=$|(term [i=knot t=path]) ~] ~]
|= $: {now/@da eny/@uvI bec/beak}
{{pax/$@(term {i/knot t/path}) $~} $~}
==
:- %helm-serve
?@ pax pax

View File

@ -1,7 +1,7 @@
::
:::: /hoon/start/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/sync/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,13 +1,13 @@
::
:::: /hoon/track/hood/gen
::
/? 314
/? 310
::
::::
!:
:- %say
|= $: [now=@da eny=@uvI bec=beak]
[arg=[syd=@tas her=@p sud=@tas ~] ~]
|= $: {now/@da eny/@uvI bec/beak}
{arg/{syd/@tas her/@p sud/@tas $~} $~}
==
:- %kiln-track
[syd her sud]:arg
[syd her sud]:arg

View File

@ -1,7 +1,7 @@
::
:::: /hoon/unlink/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/unmount/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/unsync/hood/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/verb/hood/gen
::
/? 314
/? 310
/- sole
::
::::

View File

@ -2,7 +2,7 @@
::
:::: /hoon/ls/gen
::
/? 314
/? 310
// /%/subdir
!:
::::

View File

@ -1,7 +1,7 @@
::
:::: /hoon/subdir/ls/gen
::
/? 314
/? 310
|%
++ subdir
|= {pax/path des/(map @t $~)}

View File

@ -1,6 +1,6 @@
::
:::: /hoon/make/gen
::
/? 314
/? 310
:- %say
|=({^ arg/(list @) foo/_`@`1 bar/_`@`2} noun+[arg foo bar])

View File

@ -1,7 +1,7 @@
::
:::: /hoon/moon/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/pope/gen
::
/? 314
/? 310
:: Input twitter keys
/- sole
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/solid/gen
::
/? 314
/? 310
::
::::
!:

View File

@ -1,7 +1,7 @@
::
:::: /hoon/load/talk/gen
::
/? 314
/? 310
::
::::
!:
@ -9,4 +9,4 @@
|= $: {now/@da eny/@uvI byk/beak}
{{man/knot $~} $~}
==
[%talk-load man]
[%talk-load man]

View File

@ -1,12 +1,12 @@
::
:::: /hoon/log/talk/gen
::
/? 314
/? 310
::
::::
!:
:- %say
|= $: [now=@da eny=@uvI byk=beak]
[[man=knot ~] ~]
|= $: {now/@da eny/@uvI byk/beak}
{{man/knot $~} $~}
==
[%talk-log man]
[%talk-log man]

View File

@ -1,7 +1,7 @@
::
:::: /hoon/save/talk/gen
::
/? 314
/? 310
::
::::
!:
@ -9,4 +9,4 @@
|= $: {now/@da eny/@uvI byk/beak}
{{man/knot $~} $~}
==
[%talk-save man]
[%talk-save man]

View File

@ -1,12 +1,12 @@
::
:::: /hoon/unlog/talk/gen
::
/? 314
/? 310
::
::::
!:
:- %say
|= $: [now=@da eny=@uvI byk=beak]
[[man=knot ~] ~]
|= $: {now/@da eny/@uvI byk/beak}
{{man/knot $~} $~}
==
[%talk-unlog man]
[%talk-unlog man]

View File

@ -1,7 +1,7 @@
::
:::: /hoon/ticket/gen
::
/? 314
/? 310
::
::::
!:
@ -10,4 +10,4 @@
{{her/@p $~} $~}
==
:- %noun
.^(@p /a/(scot %p p.bec)/tick/(scot %da now)/(scot %p her))
.^(@p /a/(scot %p p.bec)/tick/(scot %da now)/(scot %p her))

View File

@ -2,7 +2,7 @@
::
:::: /hoon/tree/gen
::
/? 314
/? 310
!:
::::
::
@ -12,7 +12,7 @@
=+ rend=?^(fla smyt |=(a/path (smyt (slag len a))))
:- %tang %- flop
|- ^- tang
=+ ark=.^(arch cy+pax))
=+ ark=.^(arch cy+pax)
=- ?~ fil.ark -
[(rend pax) -]
%- zing

View File

@ -1,7 +1,7 @@
::
:::: /hoon/down-jet/lib
::
/? 314
/? 310
/- markdown
::
::::

View File

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

View File

@ -2,7 +2,7 @@
::
:::: /hoon/rend/down-jet/lib
::
/? 314
/? 310
!:
|%
++ into-inner

View File

@ -1,7 +1,7 @@
::
:::: /hoon/frontmatter/lib
::
/? 314
/? 310
!:
|%
++ atr-lines

8
lib/map-to-json.hoon Normal file
View File

@ -0,0 +1,8 @@
:: hoon data to json
::
:::: /hoon/map-to-json/lib
::
/? 310
|* {a/_cord b/_json} :: XX {a/$-(* cord) b/$-(* json)}
|= c/(map _+<.a _+<.b)
(jobe (turn (~(tap by c)) |*(d/^ [(a -.d) (b +.d)])))

View File

@ -1,7 +1,7 @@
::
:::: /hoon/react/lib
::
/? 314
/? 310
|%
++ react-elems :: XX /~
~+ %- silt ^- (list term)
@ -118,8 +118,7 @@
;: weld
"React.createElement("
?^ n.g.src !! :: namespaces unsupported
?: (react-vale n.g.src)
~! n.g.src
?: (react-vale n.g.src)
"'{(trip n.g.src)}'"
(trip n.g.src)
", "

View File

@ -3,7 +3,7 @@
::
:: This file is in the public domain.
::
/? 314
/? 310
/- talk
!:
::::

View File

@ -12,12 +12,6 @@
~[ele]
(zing (turn c.ele ..$))
::
++ map-to-json :: hoon data to json
|* {a/$-(* cord) b/$-(* json)}
|* c/(map) ^- json :: XX c=(map _+<.a _+<.b)
~! c
(jobe (turn (~(tap by c)) |*(* [(a +<-) (b +<+)])))
::
:: a.b_c.d => [[%a %b] [%c %d]]
:: a.b_c, a_b__c => [[%a %b] %c]
:: a_b_c, a__b_c => [%a [%b %c]]

View File

@ -1,7 +1,7 @@
::
:::: /hoon/urb-split/lib
::
/? 314
/? 310
|= {dep/@uvH urb/manx} ^- {hed/{@uvh marl} bod/{@uvH marl}}
~| [%malformed-urb urb] :: XX types
?> ?=({{$html $~} {{$head $~} *} {{$body $~} *} $~} urb)

View File

@ -2,7 +2,7 @@
::
:::: /hoon/write/lib
::
/? 314
/? 310
|%
++ part {$write $0 pith} :: no state
++ pith $~

View File

@ -1,7 +1,7 @@
::
:::: /hoon/ask-mail/mar
::
/? 314
/? 310
|_ txt/cord
::
++ grab :: convert from

View File

@ -1,7 +1,7 @@
::
:::: /hoon/atom/mar
::
/? 314
/? 310
!:
:::: A minimal atom mark
|_ ato/@

View File

@ -1,7 +1,7 @@
::
:::: /hoon/coffee/mar
::
/? 314
/? 310
|_ mud/@t
++ grow
|%

View File

@ -1,6 +0,0 @@
::
:::: /hoon/comment-md/mar
::
/? 314
::
// /===/mar/md :: alias

View File

@ -1,7 +1,7 @@
::
:::: /hoon/css/mar
::
/? 314
/? 310
|_ mud/@t
++ grow :: convert to
|% ++ mime [/text/css (taco mud)] :: convert to %mime

View File

@ -1,7 +1,7 @@
::
:::: /hoon/belt/dill/mar
::
/? 314
/? 310
/- kyev, sole
!:
::::

View File

@ -1,7 +1,7 @@
::
:::: /hoon/blit/dill/mar
::
/? 314
/? 310
/- sole
[sole .]
|_ dib/dill-blit

View File

@ -1,7 +1,7 @@
::
:::: /hoon/down/mar
::
/? 314
/? 310
/- markdown
/+ down-jet, frontmatter
::

View File

@ -1,7 +1,7 @@
::
:::: /hoon/elem/mar
::
/? 314
/? 310
|_ own/manx
::
++ grow :: convert to

View File

@ -1,7 +1,7 @@
::
:::: /hoon/front/mar
::
/? 314
/? 310
!:
::::
::

View File

@ -1,7 +1,7 @@
::
:::: /hoon/helm-hi/mar
::
/? 314
/? 310
|_ txt/cord
::
++ grab :: convert from

View File

@ -1,7 +1,7 @@
::
:::: /hoon/hoon/mar
::
/? 314
/? 310
!:
|_ own/@t
::

View File

@ -1,7 +1,7 @@
::
:::: /hoon/html/mar
::
/? 314
/? 310
::
:::: compute
::

View File

@ -1,7 +1,7 @@
::
:::: /hoon/httr/mar
::
/? 314
/? 310
!:
|_ hit/httr
++ grow |% ++ wall (turn wain trip)

View File

@ -1,7 +1,7 @@
::
:::: /hoon/hymn/mar
::
/? 314
/? 310
|_ own/manx
::
++ grow :: convert to

View File

@ -1,7 +1,7 @@
::
:::: /hoon/jam/mar
::
/? 314
/? 310
!:
|_ mud/@
++ grow

View File

@ -1,7 +1,7 @@
::
:::: /hoon/js/mar
::
/? 314
/? 310
!:
|_ mud/@
++ grow

View File

@ -1,7 +1,7 @@
::
:::: /hoon/json/mar
::
/? 314
/? 310
::
:::: compute
::

View File

@ -1,7 +1,7 @@
::
:::: /hoon/markdown/mar
::
/? 314
/? 310
::
|_ mud/@t
++ grow

View File

@ -1,7 +1,7 @@
::
:::: /hoon/md/mar
::
/? 314
/? 310
::
|_ mud/@t
++ grow

View File

@ -1,7 +1,7 @@
::
:::: /hoon/mime/mar
::
/? 314
/? 310
!:
|_ own/mime
++ grab :: convert from

View File

@ -1,7 +1,7 @@
::
:::: /hoon/purl/mar
::
/? 314
/? 310
|_ url/purl
::
++ grow |% ++ hiss [url %get ~ ~]

View File

@ -1,7 +1,7 @@
::
:::: /hoon/quri/mar
::
/? 314
/? 310
|_ url/quri
::
++ grow |% ++ mime [text+/x-uri (tact (apex:earn url))]

6
mar/rss-xml.hoon Normal file
View File

@ -0,0 +1,6 @@
::
:::: /hoon/rss-xml/mar
::
/? 310
::
// /===/mar/xml :: alias

View File

@ -1,7 +1,7 @@
::
:::: /hoon/snip/mar
::
/? 314
/? 310
!:
|%
++ words 1

View File

@ -1,7 +1,7 @@
::
:::: /hoon/action/sole/mar
::
/? 314
/? 310
/- sole
!:
::::

View File

@ -1,7 +1,7 @@
::
:::: /hoon/effect/sole/mar
::
/? 314
/? 310
/- sole
!:
::::

View File

@ -1,7 +1,7 @@
::
:::: /hoon/command/talk/mar
::
/? 314
/? 310
/- talk
!:
[talk .]

View File

@ -1,7 +1,7 @@
::
:::: /hoon/report/talk/mar
::
/? 314
/? 310
/- talk
/+ talk
!:

View File

@ -1,9 +1,9 @@
::
:::: /hoon/telegrams/talk/mar
::
/? 314
/? 310
/- talk
/+ talk
/+ talk,map-to-json
!:
=+ talk
|_ gam/(list telegram)
@ -127,20 +127,12 @@
++ jope |=(a/ship (jape +:<a>)) ::[%s (crip +:(scow %p a))])
++ joke |=(a/tank [%s (role (turn (wash 0^80 a) crip))])
++ jode |=(a/time (jone (div (mul (sub a ~1970.1.1) 1.000) ~s1)))
++ jome :: stringify keys
|* {a/_cord b/_json}
|= c/(map _+<.a _+<.b)
(jobe (turn (~(tap by c)) (both a b)))
::
++ both :: cons two gates
|* {a/_* b/_*}
|=(c/_[+<.a +<.b] [(a -.c) (b +.c)])
::
++ thot
|= thought
(jobe serial+(jape <p>) audience+(audi q) statement+(stam r) ~)
::
++ audi (jome parn jove)
++ audi (map-to-json parn jove)
++ bouq
|= a/bouquet
a+(turn (~(tap in a)) |=(b/path a+(turn b |=(c/knot s+c))))

View File

@ -1,7 +1,7 @@
::
:::: /hoon/tang/mar
::
/? 314
/? 310
!:
|_ tan/(list tank)
::

View File

@ -1,7 +1,7 @@
::
:::: /hoon/tree-include/mar
::
/? 314
/? 310
/- tree-include
|_ tree-include
++ grab |% ++ noun tree-include

View File

@ -1,7 +1,7 @@
::
:::: /hoon/elem/tree/mar
::
/? 314
/? 310
|_ own/manx
::
++ grow |% ++ elem own :: alias

Some files were not shown because too many files have changed in this diff Show More