ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-28 19:55:53 +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]]
==
==
++ 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])
++ send-update |*(* (send %update id +(version) +<))
++ announce (send-update %announce ~)
++ release (cury send-update %announce)
++ release (cury send-update %release)
++ accept (send-update %accept ~)
++ delete (send-update %delete ~)
++ set-date-due (cury send-update %set-date-due)
@ -67,7 +86,6 @@
++ set-done (cury send-update %set-done)
++ add-comment (cury send-update %add-comment)
++ set-audience ~|(%not-implemented !!)
++ claim ~|(%not-implemented !!)
++ process-update
|= up=update
^+ +>
@ -98,9 +116,11 @@
++ process-duty
|= [when=@da her=ship from=(set station:talk) action=duty:work-stuff:talk]
^- [(list move) _+>.$]
=< mirror-to-web
=- =^ mof con mirror-to-web:con
[(welp mos mof) con]
^- [mos=(list move) con=_+>.$]
?- -.action
%create
%create :: XX should verify ownership
=+ existing-task=(~(get by tasks) id.p.action)
~? ?& ?=(^ existing-task)
!=(p.action task.u.existing-task)
@ -116,7 +136,10 @@
?~ existing-task from
(~(uni in audience.u.existing-task) from)
=. sort ?~(existing-task sort [id.p.action sort])
+>.$
[~ +>.$]
::
%claim
abet:(release:(at (~(got by tasks) id.action)) her)
::
%update
=+ tax=(~(get by tasks) id.action)
@ -126,7 +149,7 @@
from=from
action=action
==
+>.$
[~ +>.$]
?. =(version.action +(version.task.u.tax))
~& :* %update-bad-version
her
@ -134,7 +157,7 @@
action=action
tax=tax
==
+>.$
[~ +>.$]
=. tasks
%^ ~(put by tasks) id.action
?: ?& ?=(?(%announce %release %accept) -.meat.action)
@ -149,21 +172,23 @@
task.u.tax
?- -.meat.action
%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)
%delete !!
%set-date-due task.u.tax(date-due p.meat.action)
%set-tags task.u.tax(tags p.meat.action)
%set-title task.u.tax(title p.meat.action)
%set-description task.u.tax(description p.meat.action)
%set-done task.u.tax(done `when)
%delete ~|(%not-implemented !!)
%set-date-due task.u.tax(date-due wen.meat.action)
%set-tags task.u.tax(tags tag.meat.action)
%set-title task.u.tax(title til.meat.action)
%set-description task.u.tax(description des.meat.action)
%set-done task.u.tax(done ?.(don.meat.action ~ `when))
%add-comment
%= 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)
+>.$
?: =([%release our] meat.action)
abet:accept:(at (~(got by tasks) id.action))
[~ +>.$]
==
::
++ mirror-to-web

15
sur/talk.hoon
View File

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