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

fix comment ownership

Browse Source
This commit is contained in:
Philip C Monk 2015-09-08 19:31:42 -04:00
parent 1b10c2e204
commit 30e1b9e9a4
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ape/work.hoon
View File

@ -83,7 +83,7 @@
|= up=update |= up=update
^+ +> ^+ +>
?- -.up ?- -.up
%add ?>(?=(%comment +<.up) (send-change %add-comment +>.up)) %add ?>(?=(%comment +<.up) (send-change %add-comment our +>.up))
%doer %doer
?- +<.up ?- +<.up
%release (send-change %set-doer ~) %release (send-change %set-doer ~)
@ -258,7 +258,7 @@
%set-done tax.u.tax(done ?.(don.meat.action ~ `when)) %set-done tax.u.tax(done ?.(don.meat.action ~ `when))
%add-comment %add-comment
%= tax.u.tax %= tax.u.tax
discussion [[when her com.meat.action] discussion.tax.u.tax] discussion [[when [who com]:meat.action] discussion.tax.u.tax]
== ==
== ==
=+ ooo=(~(get by unordered) id.action +(version.action)) =+ ooo=(~(get by unordered) id.action +(version.action))

3
lib/talk.hoon
View File

@ -52,7 +52,8 @@
%set-tags =+(feh "{(tr-term -.feh)} {<tag>}") %set-tags =+(feh "{(tr-term -.feh)} {<tag>}")
%set-title =+(feh "{(tr-term -.feh)} {<(trip til)>}") %set-title =+(feh "{(tr-term -.feh)} {<(trip til)>}")
%set-description =+(feh "{(tr-term -.feh)} {<(trip des)>}") %set-description =+(feh "{(tr-term -.feh)} {<(trip des)>}")
%add-comment =+(feh "{(tr-term -.feh)} {<(trip com)>}") %add-comment =+ feh
"{(tr-term -.feh)} {(scow %p who)} {<(trip com)>}"
== ==
-- --
-- --

2
sur/talk.hoon
View File

@ -93,7 +93,7 @@
[%set-title til=@t] :: set title [%set-title til=@t] :: set title
[%set-description des=@t] :: XX (list ,@t) :: set description [%set-description des=@t] :: XX (list ,@t) :: set description
[%set-done don=?] :: set done [%set-done don=?] :: set done
[%add-comment com=@t] :: XX (list ,@t) :: add comment [%add-comment who=@p com=@t] :: XX (list ,@t) :: add comment
== :: == ::
++ task :: ++ task ::
$: id=@uvH :: $: id=@uvH ::