mirror of
https://github.com/ilyakooo0/urbit.git
synced 2025-01-04 21:33:41 +03:00
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:
commit
259eb79cb8
@ -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
|
||||
|
@ -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))
|
||||
--
|
||||
|
@ -1,7 +1,7 @@
|
||||
:: :: ::
|
||||
:::: /hoon/dojo/app :: ::::
|
||||
:: :: ::
|
||||
/? 314 :: arvo kelvin
|
||||
/? 310 :: arvo kelvin
|
||||
/- sole :: console structures
|
||||
/+ sole :: console library
|
||||
[. sole]
|
||||
|
@ -1,7 +1,7 @@
|
||||
:: :: ::
|
||||
:::: /hoon/hood/app :: ::
|
||||
:: :: ::
|
||||
/? 314 :: zuse version
|
||||
/? 310 :: zuse version
|
||||
/+ sole, talk, helm, kiln, drum, write :: libraries
|
||||
[. helm kiln drum]
|
||||
:: :: ::
|
||||
|
@ -1,7 +1,7 @@
|
||||
:: :: ::
|
||||
:::: /hoon/talk/app :: ::
|
||||
:: :: ::
|
||||
/? 314
|
||||
/? 310
|
||||
/- talk, sole
|
||||
/+ talk, sole
|
||||
/= seed /~ !>(.)
|
||||
|
337
app/work.hoon
337
app/work.hoon
@ -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) +>.^$]
|
||||
--
|
@ -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)
|
||||
|
@ -778,7 +778,7 @@
|
||||
::
|
||||
++ swag :: infix
|
||||
|* {{a/@ b/@} c/(list)}
|
||||
(scag b (slag a c))
|
||||
(scag +<-> (slag +<-< c))
|
||||
::
|
||||
++ turn :: transform
|
||||
~/ %turn
|
||||
|
@ -2,7 +2,7 @@
|
||||
::
|
||||
:::: /hoon/cat/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
// /%%/ls/subdir
|
||||
// /%/pretty
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/pretty/cat/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
!:
|
||||
|%
|
||||
++ pretty-noun
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/change/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/curl/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
/- sole
|
||||
[sole]
|
||||
:- %get |= {^ {a/tape $~} $~}
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/hello/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/ask/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
:- %say
|
||||
|= {^ {mel/cord $~} $~}
|
||||
=+ adr=(star ;~(less (mask "\"\\()[],:;<>@") prn))
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/autoload/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -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))
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/breload/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/cancel/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,6 +1,6 @@
|
||||
::
|
||||
:::: /hoon/cp/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
:- %say
|
||||
|=({^ {input/path output/path $~} $~} kiln-cp+[input output])
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/deset/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,6 +1,6 @@
|
||||
::
|
||||
:::: /hoon/hi/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
:- %say
|
||||
|=({^ {who/ship mez/$@($~ {a/tape $~})} $~} helm-send-hi+[who ?~(mez ~ `a.mez)])
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/invite/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/label/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/link/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/mass/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -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)
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/mount/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,6 +1,6 @@
|
||||
::
|
||||
:::: /hoon/mv/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
:- %say
|
||||
|=({^ {input/path output/path $~} $~} kiln-mv+[input output])
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/overload/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/rc/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/reboot/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/reload-desk/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/reload/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/reset/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/rf/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,6 +1,6 @@
|
||||
::
|
||||
:::: /hoon/rm/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
:- %say
|
||||
|=({^ {input/path $~} $~} kiln-rm+input)
|
||||
|
@ -1,6 +1,6 @@
|
||||
::
|
||||
:::: /hoon/schedule/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
:- %say
|
||||
|=({^ {where/path tym/@da eve/@t $~} $~} kiln-schedule+[where tym eve])
|
||||
|
@ -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
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/start/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/sync/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -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
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/unlink/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/unmount/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/unsync/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/verb/hood/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
/- sole
|
||||
::
|
||||
::::
|
||||
|
@ -2,7 +2,7 @@
|
||||
::
|
||||
:::: /hoon/ls/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
// /%/subdir
|
||||
!:
|
||||
::::
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/subdir/ls/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
|%
|
||||
++ subdir
|
||||
|= {pax/path des/(map @t $~)}
|
||||
|
@ -1,6 +1,6 @@
|
||||
::
|
||||
:::: /hoon/make/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
:- %say
|
||||
|=({^ arg/(list @) foo/_`@`1 bar/_`@`2} noun+[arg foo bar])
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/moon/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/pope/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
:: Input twitter keys
|
||||
/- sole
|
||||
!:
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/solid/gen
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
::::
|
||||
!:
|
||||
|
@ -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]
|
@ -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]
|
@ -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]
|
@ -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]
|
@ -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))
|
@ -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
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/down-jet/lib
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
/- markdown
|
||||
::
|
||||
::::
|
||||
|
@ -2,7 +2,7 @@
|
||||
::
|
||||
:::: /hoon/parse/down-jet/lib
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
=+ =~
|
||||
|%
|
||||
++ loca |*(a/_* {p/@u q/a})
|
||||
|
@ -2,7 +2,7 @@
|
||||
::
|
||||
:::: /hoon/rend/down-jet/lib
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
!:
|
||||
|%
|
||||
++ into-inner
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/frontmatter/lib
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
!:
|
||||
|%
|
||||
++ atr-lines
|
||||
|
8
lib/map-to-json.hoon
Normal file
8
lib/map-to-json.hoon
Normal 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)])))
|
@ -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)
|
||||
", "
|
||||
|
@ -3,7 +3,7 @@
|
||||
::
|
||||
:: This file is in the public domain.
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
/- talk
|
||||
!:
|
||||
::::
|
||||
|
@ -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]]
|
||||
|
@ -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)
|
||||
|
@ -2,7 +2,7 @@
|
||||
::
|
||||
:::: /hoon/write/lib
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
|%
|
||||
++ part {$write $0 pith} :: no state
|
||||
++ pith $~
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/ask-mail/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
|_ txt/cord
|
||||
::
|
||||
++ grab :: convert from
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/atom/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
!:
|
||||
:::: A minimal atom mark
|
||||
|_ ato/@
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/coffee/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
|_ mud/@t
|
||||
++ grow
|
||||
|%
|
||||
|
@ -1,6 +0,0 @@
|
||||
::
|
||||
:::: /hoon/comment-md/mar
|
||||
::
|
||||
/? 314
|
||||
::
|
||||
// /===/mar/md :: alias
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/css/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
|_ mud/@t
|
||||
++ grow :: convert to
|
||||
|% ++ mime [/text/css (taco mud)] :: convert to %mime
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/belt/dill/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
/- kyev, sole
|
||||
!:
|
||||
::::
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/blit/dill/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
/- sole
|
||||
[sole .]
|
||||
|_ dib/dill-blit
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/down/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
/- markdown
|
||||
/+ down-jet, frontmatter
|
||||
::
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/elem/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
|_ own/manx
|
||||
::
|
||||
++ grow :: convert to
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/front/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
!:
|
||||
::::
|
||||
::
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/helm-hi/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
|_ txt/cord
|
||||
::
|
||||
++ grab :: convert from
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/hoon/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
!:
|
||||
|_ own/@t
|
||||
::
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/html/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
:::: compute
|
||||
::
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/httr/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
!:
|
||||
|_ hit/httr
|
||||
++ grow |% ++ wall (turn wain trip)
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/hymn/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
|_ own/manx
|
||||
::
|
||||
++ grow :: convert to
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/jam/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
!:
|
||||
|_ mud/@
|
||||
++ grow
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/js/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
!:
|
||||
|_ mud/@
|
||||
++ grow
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/json/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
:::: compute
|
||||
::
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/markdown/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
|_ mud/@t
|
||||
++ grow
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/md/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
::
|
||||
|_ mud/@t
|
||||
++ grow
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/mime/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
!:
|
||||
|_ own/mime
|
||||
++ grab :: convert from
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/purl/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
|_ url/purl
|
||||
::
|
||||
++ grow |% ++ hiss [url %get ~ ~]
|
||||
|
@ -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
6
mar/rss-xml.hoon
Normal file
@ -0,0 +1,6 @@
|
||||
::
|
||||
:::: /hoon/rss-xml/mar
|
||||
::
|
||||
/? 310
|
||||
::
|
||||
// /===/mar/xml :: alias
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/snip/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
!:
|
||||
|%
|
||||
++ words 1
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/action/sole/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
/- sole
|
||||
!:
|
||||
::::
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/effect/sole/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
/- sole
|
||||
!:
|
||||
::::
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/command/talk/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
/- talk
|
||||
!:
|
||||
[talk .]
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/report/talk/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
/- talk
|
||||
/+ talk
|
||||
!:
|
||||
|
@ -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))))
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/tang/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
!:
|
||||
|_ tan/(list tank)
|
||||
::
|
||||
|
@ -1,7 +1,7 @@
|
||||
::
|
||||
:::: /hoon/tree-include/mar
|
||||
::
|
||||
/? 314
|
||||
/? 310
|
||||
/- tree-include
|
||||
|_ tree-include
|
||||
++ grab |% ++ noun tree-include
|
||||
|
@ -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
Loading…
Reference in New Issue
Block a user