ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-21 07:28:30 +03:00
Code Issues Packages Projects Releases Wiki Activity

claiming works without sanity checks

Browse Source
This commit is contained in:
Philip C Monk 2015-08-20 15:04:52 -04:00
parent fd98366f3a
commit 29340a3b30
2 changed files with 49 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
ape/work.hoon
View File

@ -54,10 +54,29 @@
[now *bouquet [%tax action]] [now *bouquet [%tax action]]
== ==
== ==
++ claim
%_ .
eny (sham eny %direct)
moves
:_ ~
^- move
:* ost %poke
/claiming/(scot %uw id)
[our %talk]
%talk-command
^- command:talk
:- %publish
|- ^- (list thought)
:_ ~
:+ (shaf %task eny)
[[[%& owner (main owner)] [*envelope %pending]] ~ ~]
[now *bouquet [%tax %claim id]]
==
==
++ create (send `duty:work-stuff:talk`[%create `task`tax]) ++ create (send `duty:work-stuff:talk`[%create `task`tax])
++ send-update |*(* (send %update id +(version) +<)) ++ send-update |*(* (send %update id +(version) +<))
++ announce (send-update %announce ~) ++ announce (send-update %announce ~)
++ release (cury send-update %announce) ++ release (cury send-update %release)
++ accept (send-update %accept ~) ++ accept (send-update %accept ~)
++ delete (send-update %delete ~) ++ delete (send-update %delete ~)
++ set-date-due (cury send-update %set-date-due) ++ set-date-due (cury send-update %set-date-due)
@ -67,7 +86,6 @@
++ set-done (cury send-update %set-done) ++ set-done (cury send-update %set-done)
++ add-comment (cury send-update %add-comment) ++ add-comment (cury send-update %add-comment)
++ set-audience ~|(%not-implemented !!) ++ set-audience ~|(%not-implemented !!)
++ claim ~|(%not-implemented !!)
++ process-update ++ process-update
|= up=update |= up=update
^+ +> ^+ +>
@ -98,9 +116,11 @@
++ 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]
^- [(list move) _+>.$] ^- [(list move) _+>.$]
=< mirror-to-web =- =^ mof con mirror-to-web:con
[(welp mos mof) con]
^- [mos=(list move) con=_+>.$]
?- -.action ?- -.action
%create %create :: XX should verify ownership
=+ existing-task=(~(get by tasks) id.p.action) =+ existing-task=(~(get by tasks) id.p.action)
~? ?& ?=(^ existing-task) ~? ?& ?=(^ existing-task)
!=(p.action task.u.existing-task) !=(p.action task.u.existing-task)
@ -116,7 +136,10 @@
?~ existing-task from ?~ existing-task from
(~(uni in audience.u.existing-task) from) (~(uni in audience.u.existing-task) from)
=. sort ?~(existing-task sort [id.p.action sort]) =. sort ?~(existing-task sort [id.p.action sort])
+>.$ [~ +>.$]
::
%claim
abet:(release:(at (~(got by tasks) id.action)) her)
:: ::
%update %update
=+ tax=(~(get by tasks) id.action) =+ tax=(~(get by tasks) id.action)
@ -126,7 +149,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
@ -134,7 +157,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)
@ -149,21 +172,23 @@
task.u.tax task.u.tax
?- -.meat.action ?- -.meat.action
%announce task.u.tax(status %announced) %announce task.u.tax(status %announced)
%release task.u.tax(owner p.meat.action, status %released) %release task.u.tax(owner her.meat.action, status %released)
%accept task.u.tax(status %accepted) %accept task.u.tax(status %accepted)
%delete !! %delete ~|(%not-implemented !!)
%set-date-due task.u.tax(date-due p.meat.action) %set-date-due task.u.tax(date-due wen.meat.action)
%set-tags task.u.tax(tags p.meat.action) %set-tags task.u.tax(tags tag.meat.action)
%set-title task.u.tax(title p.meat.action) %set-title task.u.tax(title til.meat.action)
%set-description task.u.tax(description p.meat.action) %set-description task.u.tax(description des.meat.action)
%set-done task.u.tax(done `when) %set-done task.u.tax(done ?.(don.meat.action ~ `when))
%add-comment %add-comment
%= task.u.tax %= task.u.tax
discussion [[when her p.meat.action] discussion.task.u.tax] discussion [[when her com.meat.action] discussion.task.u.tax]
== ==
== ==
(~(uni in audience.u.tax) from) (~(uni in audience.u.tax) from)
+>.$ ?: =([%release our] meat.action)
abet:accept:(at (~(got by tasks) id.action))
[~ +>.$]
== ==
:: ::
++ mirror-to-web ++ mirror-to-web

15
sur/talk.hoon
View File

@ -82,20 +82,21 @@
|% :: |% ::
++ duty :: ++ duty ::
$% [%create p=task] :: create new task $% [%create p=task] :: create new task
[%claim id=@uvH] :: claim task
$: %update :: operate on task $: %update :: operate on task
id=@uvH :: which task id=@uvH :: which task
version=@u :: version version=@u :: version
$= meat :: $= meat ::
$% [%announce ~] :: make available $% [%announce ~] :: make available
[%release p=ship] :: pass to new owner [%release her=ship] :: pass to new owner
[%accept ~] :: accept pass [%accept ~] :: accept pass
[%delete ~] :: delete task [%delete ~] :: delete task
[%set-date-due p=(unit ,@da)] :: set due date [%set-date-due wen=(unit ,@da)] :: set due date
[%set-tags p=(set ,@t)] :: set tags [%set-tags tag=(set ,@t)] :: set tags
[%set-title p=@t] :: set title [%set-title til=@t] :: set title
[%set-description p=@t] :: set description [%set-description des=@t] :: set description
[%set-done p=?] :: set done [%set-done don=?] :: set done
[%add-comment p=@t] :: add comment [%add-comment com=@t] :: add comment
== :: == ::
== :: == ::
== :: == ::