ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-29 04:04:02 +03:00
Code Issues Packages Projects Releases Wiki Activity

works without frontend

Browse Source
This commit is contained in:
Philip C Monk 2015-08-19 21:37:09 -04:00
parent eef09135c2
commit 4c9bf1f489
5 changed files with 45 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ape/talk.hoon
View File

@ -1677,6 +1677,9 @@
:: ::
%app %app
"[{(trip p.sep)}]: {(trip q.sep)}" "[{(trip p.sep)}]: {(trip q.sep)}"
::
%tax
<sep>
== ==
-- --
:: ::

36
ape/work.hoon
View File

@ -1,3 +1,4 @@
:: XX need to deal with versions and date modified
:: ::
:::: ::::
:: ::
@ -47,7 +48,7 @@
|- ^- (list thought) |- ^- (list thought)
:_ ~ :_ ~
:+ (shaf %task eny) :+ (shaf %task eny)
[[[%& our %porch] [*envelope %pending]] ~ ~] [[[%& our (main our)] [*envelope %pending]] ~ ~]
[now *bouquet [%tax action]] [now *bouquet [%tax action]]
== ==
== ==
@ -89,8 +90,8 @@
:: ::
++ initialize ++ initialize
^- [(list move) _.] ^- [(list move) _.]
:_ . :_ ~ :_ .(connected %&) :_ ~
[ost %peer /peering [our %talk] /f/porch/0] [ost %peer /peering [our %talk] /f/(main our)/0]
:: ::
++ process-duty ++ process-duty
|= [when=@da her=ship from=(set station:talk) action=duty:work-stuff:talk] |= [when=@da her=ship from=(set station:talk) action=duty:work-stuff:talk]
@ -98,10 +99,9 @@
=< mirror-to-web =< mirror-to-web
?- -.action ?- -.action
%create %create
:- ~
=+ existing-task=(~(get by tasks) id.p.action) =+ existing-task=(~(get by tasks) id.p.action)
~? ?& ?=(^ existing-task) ~? ?& ?=(^ existing-task)
!=(p.action u.existing-task) !=(p.action task.u.existing-task)
== ==
:* %new-task-with-old-id :* %new-task-with-old-id
her=her her=her
@ -124,7 +124,7 @@
from=from from=from
action=action action=action
== ==
[~ +>.$] +>.$
?. =(version.action +(version.task.u.tax)) ?. =(version.action +(version.task.u.tax))
~& :* %update-bad-version ~& :* %update-bad-version
her her
@ -132,7 +132,7 @@
action=action action=action
tax=tax tax=tax
== ==
[~ +>.$] +>.$
=. tasks =. tasks
%^ ~(put by tasks) id.action %^ ~(put by tasks) id.action
?: ?& ?=(?(%announce %release %accept) -.meat.action) ?: ?& ?=(?(%announce %release %accept) -.meat.action)
@ -166,10 +166,20 @@
:: ::
++ mirror-to-web ++ mirror-to-web
^- [(list move) _.] ^- [(list move) _.]
~& [%mirroring tasks=tasks sort=sort]
:_ . :_ .
%+ turn (~(tap by sup)) %+ murn (~(tap by sup))
|= [ust=bone *] |= [ust=bone her=ship pax=path]
[ust %diff %work-report tasks sort] ^- (unit move)
?: ?=([%sole *] pax)
~
`[ust %diff %work-report tasks sort]
::
++ coup
|= [way=wire saw=(unit tang)]
^- [(list move) _+>.$]
?> ?=(~ saw)
[~ +>.$]
:: ::
++ reap-peering ++ reap-peering
|= [way=wire saw=(unit tang)] |= [way=wire saw=(unit tang)]
@ -187,14 +197,14 @@
?- -.cod ?- -.cod
%new abet:create:(at +.cod) %new abet:create:(at +.cod)
%old abet:(process-update:(at (~(got by tasks) id.cod)) dif.cod) %old abet:(process-update:(at (~(got by tasks) id.cod)) dif.cod)
%sort !! %sort ~|(%not-implemented !!)
== ==
[(welp mos mof) +>.$] [(welp mos mof) +>.$]
:: ::
:: XX maybe need to check that we haven't received this message before :: XX maybe need to check that we haven't received this message before
:: by keeping a counter of last message received :: by keeping a counter of last message received
++ diff-peering ++ diff-talk-report
|= [way=wire %talk-report rep=report] |= [way=wire rep=report:talk]
^- [(list move) _+>.$] ^- [(list move) _+>.$]
?> ?=(%grams -.rep) ?> ?=(%grams -.rep)
|- ^- [(list move) _+>.^$] |- ^- [(list move) _+>.^$]

28
mar/work/command.hoon
View File

@ -21,24 +21,29 @@
++ ship (su fed:ag) ++ ship (su fed:ag)
++ coma (of new/task old/(ot id/id dif/uppd ~) sort/(ar id) ~) ++ coma (of new/task old/(ot id/id dif/uppd ~) sort/(ar id) ~)
++ task ++ task
%- ot :~ %^ ot
id/id date-created/di :- %task
version/ni date-modified/di %- ot :~
owner/ship status/(ci (soft status) so) id/id date-created/di
tags/(as so) due-date/(mu di) title/so version/ni date-modified/di
description/so discussion/(ar (ot date/di ship/ship body/so ~)) owner/ship status/(ci (soft status) so)
== tags/(as so) date-due/(mu di)
done/(mu di) title/so
description/so discussion/(ar (ot date/di ship/ship body/so ~))
==
audience/(as (ot ship/ship span/so ~))
~
++ uppd ++ uppd
%- of :~ %- of :~
own/(of announce/ul claim/ul ~) own/(of announce/ul claim/ul ~)
add/(of comment/(ot date/di body/so ~) ~) add/(of comment/so ~)
:- %set :- %set
%- of :~ %- of :~
due-date/di date-due/(mu di)
title/so title/so
description/so description/so
tags/(as so) tags/(as so)
done/(mu di) done/bo
audience/(as (ot ship/ship span/so ~)) audience/(as (ot ship/ship span/so ~))
== ==
== ==
@ -57,7 +62,8 @@
:: owner:'fyr', :: owner:'fyr',
:: status:'gave', :: status:'gave',
:: tags:['tag'], :: tags:['tag'],
:: due-date:null, :: date-due:null,
:: done:XX
:: title:'Test task', :: title:'Test task',
:: description:'The converter owrks right?', :: description:'The converter owrks right?',
:: discussion:[{date:1440011611215,ship:'sondel',body:'hi'}] :: discussion:[{date:1440011611215,ship:'sondel',body:'hi'}]

2
sur/talk.hoon
View File

@ -90,7 +90,7 @@
[%release p=ship] :: pass to new owner [%release p=ship] :: pass to new owner
[%accept ~] :: accept pass [%accept ~] :: accept pass
[%delete ~] :: delete task [%delete ~] :: delete task
[%set-date-due p=@da] :: set due date [%set-date-due p=(unit ,@da)] :: set due date
[%set-tags p=(set ,@t)] :: set tags [%set-tags p=(set ,@t)] :: set tags
[%set-title p=@t] :: set title [%set-title p=@t] :: set title
[%set-description p=@t] :: set description [%set-description p=@t] :: set description

2
sur/work.hoon
View File

@ -35,7 +35,7 @@
== ==
++ update ++ update
$% $: %set $% $: %set
$% [%date-due p=@da] $% [%date-due p=(unit ,@da)]
[%title p=@t] [%title p=@t]
[%description p=@t] [%description p=@t]
[%tags p=(set ,@t)] [%tags p=(set ,@t)]