ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-17 20:01:32 +03:00
Code Issues Packages Projects Releases Wiki Activity

merged in now-id hack to resolve write path issues

Browse Source
This commit is contained in:
Anthony 2018-03-06 10:36:16 -08:00
commit 830f20c716
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
app/collections.hoon
View File

@ -64,6 +64,10 @@
ta-done:(ta-update:ta (fall old *@da)) ta-done:(ta-update:ta (fall old *@da))
[mow ..prep(upd now.bol)] [mow ..prep(upd now.bol)]
:: ::
++ now-id
:: HACK "sanitized" now for id use, can't get mistaken for file with extension in url
`@da`(sub now.bol (div (mod now.bol ~s1) 2))
::
++ poke-noun ++ poke-noun
|= a=$@(?(~ @da) [p=@da q=@da]) |= a=$@(?(~ @da) [p=@da q=@da])
^- (quip move _+>) ^- (quip move _+>)
@ -73,7 +77,7 @@
(ta-create:ta ['a description' publ=& visi=& comm=& xeno=& ~]) (ta-create:ta ['a description' publ=& visi=& comm=& xeno=& ~])
?@ a ?@ a
(ta-submit:ta a 'a topic' ~['with contents']) (ta-submit:ta a 'a topic' ~['with contents'])
(ta-comment:ta p.a q.a now.bol ~['a comment' 'yo']) (ta-comment:ta p.a q.a now-id ~['a comment' 'yo'])
:: ::
++ writ ++ writ
|= {wir/wire rit/riot:clay} |= {wir/wire rit/riot:clay}
@ -142,12 +146,12 @@
|= cof/config |= cof/config
^+ +> ^+ +>
::XX unhandled kind ::XX unhandled kind
(ta-write /config now.bol %collections-config !>(cof)) (ta-write /config now-id %collections-config !>(cof))
:: ::
++ ta-submit ++ ta-submit
|= {col/time tit/cord wat/wain} |= {col/time tit/cord wat/wain}
=/ top/topic [tit src.bol wat] =/ top/topic [tit src.bol wat]
(ta-write /topic [col now.bol] %collections-topic !>(top)) (ta-write /topic [col now-id] %collections-topic !>(top))
:: ::
++ ta-resubmit ++ ta-resubmit
|= {col/time wen/@da tit/cord wat/wain} |= {col/time wen/@da tit/cord wat/wain}
@ -158,12 +162,12 @@
++ ta-comment ++ ta-comment
|= {col/time top/@da com/?(~ @da) wat/wain} |= {col/time top/@da com/?(~ @da) wat/wain}
^+ +> ^+ +>
?~ com $(com now.bol) :: new comment ?~ com $(com now-id) :: new comment
=; res/$@(~ _+>.$) ?^(res res +>.$) =; res/$@(~ _+>.$) ?^(res res +>.$)
%+ biff (ta-get-topic col top) %+ biff (ta-get-topic col top)
|= [^ cos=(map @da {@da comment}) ~] |= [^ cos=(map @da {@da comment}) ~]
=/ old/{@da comment} =/ old/{@da comment}
(fall (~(get by cos) com) [now.bol src.bol wat]) (fall (~(get by cos) com) [now-id src.bol wat])
?. =(who.old src.bol) ..ta-comment ::REVIEW error? ?. =(who.old src.bol) ..ta-comment ::REVIEW error?
%^ ta-write /comment %^ ta-write /comment
[col top com] [col top com]